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EINLEITUNG 


Warum Ad venture? 


W enn des Nachts jemand 
angespannt über einer 
Tastatur und einem Monitor 
hängt, dann ist meist ein Adven- 
ture im Spiel. Ein Adventure, ein 
Abenteuerspiel, ist eine Be¬ 
schäftigung mit Computern, wie 
es keine andere gibt. Man kann 
mit einem Adventure in eine 
andere Haut schlüpfen, zum Zau¬ 
berer, Weltraumpiloten, Detektiv, 

Barbaren oder Geheimagenten 
werden. Der Spieler trifft oft lebenswichtige Ent¬ 
scheidungen und steigert sich mit seiner Phanta¬ 
sie derart in die Story rein, daß er mit dem Helden 
zusammen die wildesten Abenteuer erlebt. 

Adventures sind wie Bücher, aber ganz spezielle 
Bücher, denn hier kann man bestimmen, was als 
nächstes passiert. Adventures sind für viele wohl 
die schönste Art von Computerspielen. 

Natürlich wollen viele Leute Adventures nicht nur 
spielen. Irgendwann taucht in einem der Gedan¬ 
kenblitz auf, selber ein Abenteuerspiel zu schrei¬ 
ben. Vielleicht ist es eine neue Idee, eine, die bis¬ 
her in keinem Adventure verwirklicht wurde. Sie 
fangen an, Pläne zu machen, Skizzen anzufertigen, 
Grafiken auszutüfteln. Doch spätestens, wenn man 
sich vor den Computer setzt, kommt man ins Grü¬ 
beln. Das WAS ist nicht so schwer, doch das WIE 
stellt einem vor Probleme. Deshalb entstand die¬ 
ses Sonderheft. Michael Nickles, der einen großen 
Schatz an Erfahrungen in der Programmierung von 
Adventures besitzt, gibt sein Wissen an Sie weiter. 

Michael hat es sich in diesem Heft zur Aufgabe 
gemacht, das Abenteuer der Adventure-Program- 
mierung zu untersuchen, zu entschlüsseln und 
verständlich zu machen. Begonnen damit hat er 
schon vor Jahren. Die Grundbegriffe der Adven- 
turetechnik erklärte er im 64’er-Sonderheft 2/85. 


Dieses neue Heft ist allerdings 
keine reine Fortsetzung, denn es 
nutztauch denen, die den ersten 
Kurs noch nicht kennen. Wer 
allerdings Probleme mit diesem 
Kurs hat, sollte vielleicht das 
Sonderheft 2/86 noch einmal 
zur Hand nehmen. 

Wer nicht selber programmie¬ 
ren, sondern nur spielen möchte, 
der bekommt mit diesem Heft die 
besten Adventures zum Abtip¬ 
pen. In einem langdauernden Prozeß haben wir für 
Sie die interessantesten Spiele herausgesucht, 
mit denen Sie voll auf Ihre Kosten kommen werden. 
Wir hoffen, daß Sie mit dem großen Kurs und den 
ausgezeichneten Programmen auch auf den 
Geschmack gekommen sind und jetzt das Rüst¬ 
zeug besitzen, um ebenfalls gleich gute oder sogar 
noch bessere Adventures zu schreiben. Lassen 
Sie es uns ruhig wissen und scheuen Sie sich 
nicht, sie uns zuzuschicken. Wer wagt, gewinnt. 

(Georg Klinge/Boris Schneider) 


Programm-Service 

Wer keine Zeit oder Lust hat, alle Programme 
selbst in mühevoller Kleinarbeit abzuschreiben, 
kann wieder auf den bewährten Programm- 
Service zurückgreifen. Alle Programme, die mit 
dem Diskettensymbol im Inhaltsverzeichnis 
gekennzeichnet sind, gibfs auf Diskette. 
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EINLEITUNG 


Willkommen 
im Innd 

des Abenteuers 

Abenteuerspiele sind eine fantastische Sache. 
Nicht nur für Spieler, sondern auch für Program¬ 
mierer eröffnet sich ein weites Feld für kreative 
Schöpfungen. Wir möchten Ihnen das notwen¬ 
dige Rüstzeug dazu geben. 


L ieber Adventure-Freund, auf den folgenden Seiten 
möchte ich Ihnen gerne erläutern, worum es in diesem 
Kurs geht - wo Schwerpunkte gesetzt werden, was Sie 
Neues lernen werden etc. Einige von Ihnen werden sich viel¬ 
leicht schon mit dem Abenteuerspiele-Programmierkurs, der 
im Rahmen des 64’er-Sonderheftes 2/85 veröffentlicht 
wurde, beschäftigt haben. Wer will, kann den folgenden Kurs 
als eine Fortsetzung beziehungsweise Ergänzung des ersten 
Kurses betrachten. Lassen Sie mich noch einmal kurz zusam¬ 
menfassen, worum es im ersten Programmierkurs ging: 

Im ersten Abschnitt wurde erklärt, was Adventures sind, 
wie man sich diese Spiele ausdenkt, sich auf die Program¬ 
mierung derselben vorbereitet und schließlich, wie man 
Spielpläne erstellt. 

Im folgenden Abschnitt wurde dann ausführlich beschrie¬ 
ben, wie man komfortable Befehlseingabe-, Codier- und Ana¬ 
lyseprogramme schreibt. So entstand schließlich ein Pro¬ 
grammodul, das in der Lage war, eingegebene Befehlssätze 
wie zum Beispiel »Nimm das Schwert und geh nach Norden« 
in einzelne Worte zu zerlegen, um es anschließend in VERB-, 
OBJEKT-, GEGENSTANDS- und PERSONENzahl zu codie¬ 
ren. 

Im zweiten Hauptteil des Kurses ging es dann um die 
Actionprogrammierung in Abenteuerspielen - also wie man 
Spielhandlungen programmiert. 

Am Ende dieses Kurses war schließlich jeder Teilnehmer 
(hoffe ich doch!) in der Lage, Adventures mit den folgenden 
Eigenschaften zu programmieren: 

- Verständnis von ganzen deutschen Sätzen 
- Realtime (computergesteuerte Personen wie zum Beispiel 
Monster im Spiel) 

- Programmieren der Adventures ausschließlich mit 
38 KByte Basic-RAM 

- Speichermedium: Datasette ausreichend. 

Kurzum, mit dem anhand des Kurses erworbenen Wissen 
konnte man die Art von Adventure mit relativ gutem Sprach¬ 
verständnis (Parser) programmieren. 

Wozu also nun wieder ein Adventure-Programmierkurs? 
Um es gleich auf einen Nenner zu bringen: Die damals 
erlernten Programmiertechniken entsprechen nicht mehr 
dem neuesten Stand derer, die heute unter Einsatz von 
Floppy-Laufwerken etc. möglich sind. 

Während man den ersten Kurs noch komplett mit C 64 und 
Datasette bewältigen konnte, ist es nun unbedingt erforder¬ 
lich, mit einem Floppy-Laufwerk zu arbeiten. Man beachte 
lediglich die Tatsache, daß heuer fast keine professionellen 
Adventures mehr auf Kassette veröffentlicht werden. Dies ist 
nicht nur deshalb der Fall, weil die Datasette zu langsam ist, 


sondern vielmehr darin zu begründen, daß die Datenmengen, 
die für ein Super-Adventure benötigt werden, nur noch mit 
Hilfe eines Disketten-Laufwerks zu bewältigen sind. Beach¬ 
ten Sie doch einmal die folgende Tatsache: 

Ein C 64 mit Datasette verfügt im Endeffekt über 64 KByte 
RAM, die man ordentlich verwalten kann (sequentielle 
Dateien auf Band sind für die Programmierung von großen 
Adventures unbrauchbar). 


Viel Speicher für Adventures 


Ein C 64 mit Floppy-Laufwerk im Gegensatz kann mit den 64 
KByte RAM des C 64 und einer Disk-Seite, die eine Kapazität 
von zirka 170 KByte hat, einen Datenbereich von 234 KByte 
verwalten. Schon heute gibt es allerdings Adventures wie 
zum Beispiel Dragonworld, Fahrenheit 451 und Amazon, die 
auf 4 Diskseiten gespeichert sind und somit einen Umfang 
von 4 mal 170 KByte - also 680 KByte haben. Diese riesige 
Speicherkapazität kommt letztendlich durch die zahlreichen 
Grafiken zustande, die diese Adventures der Firma Telarium 
aufweisen. Würde man auf Grafik verzichten (ä la Infocom), 
hätte man 680 KByte für Text zur Verfügung. 680 KByte - 
das sind nicht mehr und nicht weniger als 200 vollgeschrie¬ 
bene A4-Schreibmaschinenseiten! Eine Textfülle dieser Art 
ist bisher jedoch noch nie bei einem Adventure aufgetreten. 
Werfen wir doch einmal einen kurzen Blick auf die Infocom- 
Textadventures. Diese Spiele sind lediglich auf einer Disk- 
Seite abgespeichert, das heißt, die Spiele verfügen über 
maximal 60 Seiten Text (wobei ein Filecompactor schon mit¬ 
berechnet ist). Wenn es nun doch schon möglich ist - warum 
schreibt denn niemand Super-Adventures mit unglaublichem 
Textui i .f mg? Ganz einfach - Adventure-Spiele entwerfen und 
gestalten ist viel Arbeit. Kaum ein Programmierer würde ein 
Infocom-ähnlichesText-Adventure aus reinem Enthusiasmus 
beziehungsweise »just for fun« programmieren, da die dafür 
benötigte Arbeitszeit nicht zu bezahlen wäre - oder würden 
Sie vielleicht 500 Mark für ein Adventure ausgeben, das den 
5fachen Textumfang eines 10O-Mark-Programms hat und Sie 
auch 5mal so viel Zeit zur Lösung kosten würde? 

Vielleicht ja, aber der Programmierer muß auch die Tatsa¬ 
che berücksichtigen, daß sein Spiel wahrscheinlich schon 
wenige Tage nach seinem Erscheinen geknackt wird und 
somit illegal auf den Markt kommt. Auch ist es sehr schwer 
abzuschätzen, ob ein Super-Adventure, an dem man etwa ein 
Jahr lang arbeitet, nach seiner Fertigstellung immer noch 
etwas Besonderes darstellt, beziehungsweise ob es dann 
noch aktuell ist. Kurz gesagt, sogenannte Super-Adventures 
mit riesigem Textumfang, deren Realisierung zwar schon 
möglich ist, wird es wohl auch in absehbarer Zeit nicht geben. 
Ein gutes Adventure, das heute auf den Markt kommt, sollte 
folgende Eigenschaften aufweisen können: 

- Guter Textumfang. 

- Eventuell ausgezeichnete HiRes-Grafiken. 

- Ein Parser, der über ein Vokabular von über 1000 Wörter 
verfügt und auf jedes Spielkommando intelligent reagiert - 
also nie einfach nur stupide Antworten gibt wie zum Bei¬ 
spiel »Das geht nicht« auf ein Kommando wie etwa »Nimm 
das Zimmer«, sondern vielmehr auch begründet, warum 
dies nicht geht - also zum Beispiel »Sie befinden sich 
selbst im Zimmer und können es somit auch nicht nehmen«. 

- Das Spiel sollte einen so großen Umfang haben, daß ein 
durchschnittlicher Abenteuerfan zirka 30-40 intensive 
Stunden zum Lösen des Spiels benötigt. 

Ein neuer Trend ist es, Bücher in Adventures umzusetzen. Ein 
solches Adventure braucht nicht unbedingt viel knifflige Rät¬ 
sel enthalten, die den Spieler in Verzweiflung bringen. Es 
geht im Prinzip nur darum, ein Buch in einem neuen Medium 
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- also dem Computer - zu präsentieren. Ein Spielen dieses 
Adventures kann somit gleich dem Lesen des Buches 
gesetzt werden - mit der Ausnahme jedoch, daß sich der 
Spieler frei »im Buch« bewegen kann und somit noch mehr mit 
in die Handlung der Geschichte einbezogen wird. Solche 
Spiele werden dann auch meistens unter Mitarbeit der ent¬ 
sprechenden Buchautoren in Abenteuerspiele umgesetzt. 

Zwei erwähnenswerte Spiele dieser Art sind Infocoms 
»Hitchhikers Guide to The Galaxy« sowie Telariums »Fahren¬ 
heit 451«. Besonders lobenswert ist die Umsetzung von Dou¬ 
glas Adams »Hitchhikers Guide«. Wer die Bücher gelesen hat 
und dann das Spiel spielt, wird viele identische Textstellen 
des Buches wiederfinden. Trotzdem hilft es einem im Spiel 
kaum weiter, wenn man die Bücher kennt, denn hier werden 
witzige Aufgaben gestellt, die zwar voll und ganz dem Buch¬ 
stil entsprechen, aber trotzdem nur durch viel Knobeln gelöst 
werden können. Ein Beispiel dafür ist zum Beispiel eine spre¬ 
chende Tür in einem Raumschiff. Ich stehe vor der Tür und 
gebe als Kommando »open door« ein. Die Tür jedoch antwor¬ 
tet ganz frech, daß sie nur demjenigen Durchlaß gewährt, der 
seine Intelligenz beweisen könnte. Mittels »Inventory« 
erfahre ich schließlich, daß ich neben vielem Krimskrams und 
dem Bademantel, mit dem ich bekleidet bin, auch noch eine 
Zahnbürste bei mir habe. 

Gelangweilt gebe ich den meiner Ansicht nach unsinnigen 
Kommentar »Show door the toothbrush« ein, ohne zu hoffen, 
daß dieser Kommentar vom Programm verstanden wird. Zur 
Verblüffung jedoch teilt die Tür mir freundlich mit: »Thafs only 
a normal toothbrush - everyone can have thatl«. Mehr zu den 
Infocom-Spielen später. 

Wenn Sie sich für die Programmierung dieser neuen 
Adventure-Generation interessieren, dann ist der nun fol¬ 
gende Kurs genau das Richtige für Sie. 


Benötigte Grundlagen 


Wer diesen Kurs komplett durcharbeiten möchte, benötigt 
unbedingt einen C 64 oder C128 mit Disketten-Laufwerk. Im 
Prinzip ist kein spezielles Grundwissen erforderlich, abgese¬ 
hen von der Praxis im Umgang mit Basic natürlich. 

Der Kurs enthält zwar zahlreiche Maschinenroutinen, die 
jedoch so gut beschrieben werden, daß jeder sie benützen 
und in eigenen Programmen anwenden kann. Wer diese Rou¬ 
tinen gemäß eigenen Vorstellungen modifizieren will, muß 
sich allerdings mit Assembler auskennen. Leichter wird sich 
noch derjenige tun, der sich mit dem Speicheraufbau - also 
der Speicherlandschaft des C 64 auskennt. Zwar werde ich 
auch hier kurz auf die Grundlagen eingehen, es ist jedoch 
sehr empfehlenswert, vorher Kurse aus der Zeitschrift 64’er 



wie zum Beispiel den Grafik-Programmierkurs oder 
»Memory-Map mit Wandervorschlägen« durchgearbeitet zu 
haben. Wer sich mit Basic im Rahmen von Stringoperationen 
etc. noch nicht so gut zurechtfindet, dem möchte ich an die¬ 
ser Stelle noch den entsprechenden Programmierkurs im 
ersten Abenteuerspiele-Sonderheft empfehlen. 

Wie baut sich der folgende Kurs auf? Wie bereits erwähnt, 
werden drei große Bereiche behandelt: Dateiverwaltung, 
Programmierung von künstlicher Intelligenz und Adventure- 
Programmierung für Fortgeschrittene. 

Es bietet sich daher an, einmal zu betrachten, in welchem 
Zusammenhang diese drei Bereiche stehen, beziehungs¬ 
weise warum gerade diese drei Bereiche für diesen Kurs aus¬ 
gesucht wurden. 

Dateiverwaltung: Wie es der Name schon sagt, geht es hier 
um die Verwaltung von Dateien - also irgendwelchen Daten¬ 
mengen. Effektive Dateiverwaltung ist nur mit einem großen 
Speicher möglich. Dies ist auch der Grund, warum hierzu 
unbedingt eine Diskettenstation erforderlich ist. 

Was hat Dateiverwaltung denn nun mit der Programmie¬ 
rung mit Abenteuerspielen zu tun? Ganz einfach - betrachten 
wir doch einmal ein Textabenteuerspiel. Der reine Text 
bezieht sich auf folgende Dinge: 

- Text als Raumbeschreibung 

- Text als Beschreibung von Objekten 

- Text als Beschreibung von Aktion. 

Hierzu einige Beispiele: 

Raumbeschreibung: Land of shadow 

You are in a land of dark shadows and 
shallow hills, wicht Stretch out in all 
directions. To the west, the land dips 
sharply. 

Objektb^schreibung: A strage grey machine, shaped 
somewhat like a clothes dryer, is on 
one side of the room. 

Aktionsbeschreibung: A familiär voice calls down to you. 

»Are you still there?« he bellows with 
a coarse laugh. »Well, then, grab onto 
the rope and weil see what we can 
do.« The rope drops to within your 
reach. 

Diese Beispiele habe ich - wie es alle Adventure-Freaks 
sicherlich bemerkt haben - dem Infocom Adventure ZORKIII 
entnommen. 

Was ich anhand dieser Beispiele zeigen möchte, ist, daß 
bei Text-Adventures der gesamte Text in drei Bereichen 
gegliedert wird, der dann mittels Tabellen verwaltet wird. So 
gibt es zum Beispiel unter anderem eine Raumbeschrei¬ 
bungstabelle, in der genau steht, an welcher Stelle auf der 
Diskette (auf der der Text gespeichert ist) sich die Raumbe¬ 
schreibung zu jedem im Spiel vorkommenden Raum befindet. 
Angenommen, der Computer benötigt die Beschreibung zum 
Raum X. Er schaut dann einfach in seiner Tabelle nach, wo 
sich auf Disk die Beschreibung zu Raum X befindet. 

Nun benötigt er noch ein Unterprogramm, das in der Lage 
ist, den Text von Raum X anhand des von der Tabelle ermittel¬ 
ten Zeiger-Wertes von der Diskette zu lesen. 

Ob man nun Adressen, Lagerbestandsteile oder Raumbe¬ 
schreibungen auf Diskette speichern und verwalten will, 
spielt keine Rolle - die Grundlagen der Dateiverwaltung sind 
auf alle Bereiche anwendbar. 

Auch im Rahmen der künstlichen Intelligenz (oder abge¬ 
kürzt Kl) ist Dateiverwaltung unbedingt erforderlich. 

Kl-Programme: Gerade Kl-Programme benötigen einen 
großen Vorrat, aus dem sie ihr »Wissen« beziehungsweise 
ihren »Einfallsreichtum« schöpfen können. Ich beziehe mich 
hierbei weniger auf Rechenprogramme als Mastermind- 
Knacker, sondern vielmehr von ELIZA-artigen Programmen - 
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als Programme, die in der Lage sind, menschliche Befehle 
und Fragen zu interpretieren, zu analysieren, um schließlich 
eine logische Antwort beziehungsweise intelligente »Ver¬ 
legenheitsaussage« zu geben. 

Abenteuerspiele: Auch bei Abenteuerspielen erlangten 
bei der Programmierung die Dateiverwaltung und die Künstli¬ 
che Intelligenz immer größer werdende Rollen. Ich spreche 
hierbei von den sogenannten Super-Adventures, also Adven- 
tures mit großem Textumfang und fantastischem Sprachver¬ 
ständnis. 

Nun aber zum eigentlichen Kursaufbau. 

Kursaufbau 


Dateiverwaltung: Hier lernen Sie alle Möglichkeiten der 
Dateiverwaltungsprogrammierung kennen. Es werden 
Dateien innerhalb von Basic behandelt, sequentielle Dateien 
auf Disk und Band, relative Dateien auf Disk sowie Handha¬ 
bung von index-sequentiellen Dateien. Außerdem erfahren 
Sie Interessantes über verschiedene Sortieralgorithmen 
sowie Suchroutinen, die später zum Verwalten des Wort¬ 
schatzes benötigt werden. Im Rahmen dieses Abschnitts 
wird auch ein Zeichen-Editor vorgestellt, mit dem wir für die 
späteren Kapitel einen deutschen Zeichensatz erstellen wer¬ 
den. In einem besonderen Kapitel werde ich auch auf alle 
Möglichkeiten des Textraffens zu sprechen kommen - also, 
wie man Text so kürzt, daß man möglichst viel davon auf einer 
Disk-Seite unterbringen kann. 

Unterstützt wird dieser Kurs-Bereich durch einige kurze, 
aber äußerst effektvolle Maschinenprogramme, die die Pro¬ 
grammierung von Dateiverwaltungen erheblich unterstützen. 

Krönung dieses Kursabschnitts ist schließlich ein anwen¬ 
dungsfreundlicher Texteditor, mit dem es möglich ist, Dateien 
auf Disk zu erstellen (auch speziell in bezug auf Text- 
Adventures), Dateien auf andere Dateien zu übertragen, 
Dateien zu sortieren, Dateien auf Drucker auszugeben etc. 
Dieser Super-Texteditor wird für den ganzen Kurs ein unent¬ 
behrliches Hilfsmittel sein. 

Adventures: Im Rahmen des Adventure-Kursteils lernen 
Sie alles, was man zur Programmierung von Super- 
Adventures wissen muß. Sie erfahren zunächst, wie man 
Texte für Adventures ausarbeitet und mittels dem Texteditor 
auf einer Diskette als relative Datei speichert. 

Kern dieses Kursabschnittes ist jedoch zweifellos der Par¬ 
ser 5.0. Mit Hilfe dieses Parsers ist es möglich, Adventures 
zu schreiben, die mit über 1000 gespeicherten Wörtern 
nahezu jeden Spielerbefehl verstehen können - also fast den 
gesamten deutschen Grundwortschatz. Sie erfahren, wie 
der Parser 5.0 direkt mit dem Texteditor zusammenarbeitet 
und der Clou: Trotz des unglaublich großen (bei deutschen 
Text-Adventures bisher zweifellos unerreichten Vokabulars) 
bleiben dem Programmierer satte 38 KByte Basic-RAM zur 
absolut freien Verfügung! 

Das heißt, jeder kann mit Hilfe des Texteditors und den Parser 
5.0 sowie einigen Maschinenroutinen mit einfachen Basic- 
Kenntnissen Super-Adventures programmieren, wie es sie 
zur Zeit noch gar nicht gibt! 

Damit aber noch nicht genug. Im Rahmen der Adventure- 
Programmierung wird noch ein anderes kurzes, aber äußerst 
effektvolles Programm präsentiert: Der Adventure-Cracker - 
ein Programm, mit dem die Lösung fast jeden Adventures zum 
reinsten Kinderspiel wird - einfach Adventure-Cracker- 
Programm starten, Diskette eines Adventures (zum Beispiel 
Dragonworld, Fahrenheit 451 etc.) einlegen und sich den 
gesamten Textinhalt des Adventures auf Drucker bezie¬ 
hungsweise Bildschirm ausgeben lassen! 

Selbstverständlich lernen Sie gleich anschließend, wie Sie 
Ihre eigenen Adventures gegen solche Text-Cracker absolut 
schützen können: Mit Hilfe einer Textverschlüsselung. 


Wer glaubt, daß damit genug wäre, irrt - auch die Grafik- 
Freaks kommen diesmal voll und ganz auf Ihre Kosten. Ich 
werde ausführlich erläutern, wie Grafik-Bilder der professio¬ 
nellen Spiele entstehen (zum Beispiel die fantastischen Gra¬ 
fiken der Telarium-Adventures). Neben Grundlagen erfahren 
Sie einiges über Bilder-Digitalisierung etc. Jeder kennt sie - 
verschiedene Malprogramme wie Koala-Painter und Paint 
Magic, die zwar alle ihre Vorteile haben, jedoch untereinander 
nicht kompatibel sind. Auch hier wird mit einigen Übertra¬ 
gungsprogrammen endgültig Abhilfe geschaffen. HiRes- 
Bilder der bekanntesten Malprogramme in eigenen Adventu¬ 
res einbauen? - kein Problem! 

Und zu guter Letzt: Ein Maschinenprogramm, das auf dem 
Bildschirm ein Text- und ein Grafikfenster darstellt. Anhand 
einiger Maschinenroutinen können Sie dann zum Beispiel ein 
Bild mit einem Digitizer erstellen, auf Paint-Magic-Förmat 
umwandeln, neu bearbeiten, dann ins Fensterformat umwan¬ 
deln, um es letztendlich ins eigene Adventure einzubauen. 

Kl-Programme: Dieser Kursbereich bezieht sich natürlich 
auf das Programmieren von künstlicher Intelligenz (englisch: 
artificial intelligence). Es werden Programme erläutert, die 
diverse Spiele wie etwa NIM spielen können. Dies hat eigent¬ 
lich nicht mehr sehr viel mit Adventures und Dateiverwaltung 
zu tun, ist als Einführung zu diesem Thema jedoch nicht weg¬ 
zudenken. Interessant wird es allerdings, wenn wir zusam¬ 
men Programme schreiben, die menschliche Befehlseinga¬ 
ben verstehen, interpretieren und darauf antworten können. 
Wenngleich wir auch erstaunliche Resultate erzielen werden, 
so sollten Sie Ihre Erwartungen nicht zu hoch stecken! Auch 
die geschicktesten Programmiermethoden können aus 
Ihrem C64 keinen emotionellen Gesprächspartner für ein¬ 
same Stunden oder lange Winterabende machen. Es wird 
auch nicht möglich sein, den C 64 innerhalb dieses Kurses im 
Rahmen der Kl total bis ins letzte Bit auszuschöpfen. Um Pro¬ 
gramme zu schreiben, die den gesamten deutschen Grund¬ 
wortschatz beherrschen, müßte man zunächst einmal diesen 
Grundwortschatz in den Computer eingeben. Daß dieser 
Wortschatz jedoch nicht so einfach in dieser Zeitschrift zum 
Abtippen gedruckt werden kann, dürfte wohl jedem klar sein. 
Ich werde Ihnen zwar einige sehr nette Eliza-artige Pro¬ 
gramme vorstellen, aber wer sich an ganz große Projekte her¬ 
anwagen will, muß dies mit viel Eigeninitiative tun. Selbstver¬ 
ständlich wird er auch dann im Kurs viele Tips und Tricks, die 
zum Angehen eines solchen Programms nötig sind, erfahren. 


...und vieles andeve mehr 


Hiermit dürften Sie einen guten Einblick in den Aufbau und 
Inhalt des Kurses haben. Natürlich werden noch viele Tips 
und Tricks auftauchen, die ich an dieser Stelle noch nicht 
erwähnt habe. Wer glaubt, daß dieser Kurs nüchtern und 
langweilig wird, muß seinen Irrtum spätestens dann zugeben, 
wenn wir in Kürze folgendes Problem gelöst haben werden: 

Halten Sie es für möglich, daß in manchen Fällen ein 
gewöhnlicher Spiegel ein unentbehrliches Hilfsmittel zum 
Programmieren eines Computers sein kann? 

Denken Sie mal nach! 

Nun genug der langen Einleiterei. Bitte führen Sie folgende 
Aktionen in der richtigen Reihenfolge aus: 

- Kühlschrank öffnen, Kühlmittel beschaffen (Cola, Bier, 
etc.) 

- Grundnahrungsmittel bereitstellen (Kartoffelchips) 

- Computer, Floppy, Monitor einschalten 

- Sessel zurechtrücken und gemütlich machen 

- Auf Seite 10 blättern 

- Kurs durcharbeiten 

Los geht’s.... (M. Nickles/bs) 
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Hier mein 
»Lebenslauf«: 

Geboren wurde ich am 18.9.1966 in Erlenbach am 
Main. Bis zu meinem 10. Lebensjahr besuchte ich den 
Kindergarten und anschließend die Grundschule. Dann 
begann die schwärzeste Zeit meines Lebens, der ich in 
zirka 3 Monaten mit dem Abitur ein Ende bereiten werde: 
Ich kam ins Gymnasium. Eines der wenigen positiven 
Dinge, die mir dort begegneten, war ein PET 2001, an 
dem ich mit 14 Jahren meine ersten Programmierkennt¬ 
nisse sammelte. Ich war damals ein absoluter Computer¬ 
freak und verbrachte die meisten Nachmittage mit die¬ 
sem PET. Mein Traumcomputer war damals der Atari 
800, den ich mir aufgrund des hohen Preises (ca. 2000 
Mark) nicht leisten konnte. Drei Jahre später hatte ich 
endlich genug Geld für einen Homecomputer gespart: 
natürlich den C 64. Ich stellte schnell fest, daß Computer 
ein teures Hobby sind, weil man mit der Zeit alle nur 


erdenklichen Pheripheriegeräte haben will. Um mit dem 
C64 Geld zu verdienen, begann ich Adventures zu 
schreiben. Nach zahlreichen Wegwerf-Programmen 
gelang es mir, ein wirklich gutes Adventure zu schreiben: 
Gordon Saga I. 1984 ging ich mit diesem Programm zur 
Commodore-Messe in Frankfurt. Bei Happy Software 
fand ich schnell einen Vertrag für das Spiel. Gleichzeitig 
lernte ich dort einen 64'er-Redakteur kennen. Ich 
erzählte ihm von meinen Erfahrungen im Bereich Adven- 
tureprogrammierung, und es entstand so letztendlich 
mein erster Programmierkurs im 64’er-Sonderheft 2/85. 
Jetzt, ein Jahr später, schrieb ich meinen zweiten Kurs, 
den Sie im vorliegenden Sonderheft finden. 

Trotz meiner aktiven Beschäftigung mit Computern 
bezeichne ich mich keineswegs als Computerfreak, da 
ich noch zahlreiche andere Hobbys habe: Ich interes¬ 
siere mich fürs Filmemachen und bin aktives Mitglied der 
besten Punk-Gruppe (Musik) der Welt: Brutallica. 

Den größten Teil meiner Freizeit verbringe ich im 
Freundeskreis auf Parties, in Kneipen, Konzerten, im 
Kino etc. Kälte kann ich nicht ausstehen und fahre bzw. 
trampe so oft es geht in südliche Länder wie Frankreich 
und Italien. Mein derzeitiges Idol ist der Programmierer 
vom Davids Midnight Magic - er hat angeblich schon sei¬ 
nen zweiten Porsche 911... 

Ich wünsche Ihnen viel Spaß und Erfolg beim Lesen 
meines zweiten Programmierkurses, der voraussichtlich 
das Letzte ist, was ich mit meinem C 64 gemacht habe. 
Mein nächster Computer ist der Atari 520ST. 

(Michael Nickles) 
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C64 


Dateiverwaltung komplett 

Wenn der Speicherplatz im Computer nicht mehr reicht, muß man auf das Diskettenlaufwerk 
ausweichen. Wir zeigen, wie man Daten sinnvoll und effektiv verwalten kann. 


D ie einfachste Methode, Dateien innerhalb eines Basic- 
Programmes zu verwalten, ist, den Text (im Fall einer 
Datei für Texte) einfach in DATA-Zeilen beziehungs¬ 
weise dimensionierten Stringfeldern abzulegen. 

Zunächst wollen wir einmal von einem ganz einfachen Bei¬ 
spiel ausgehen: Wie auch in späteren Kapiteln dieses Kurses 
stellen wir uns hierzu eine Aufgabe beziehungsweise geben 
uns eine Datei vor, an der wir anschließend arbeiten werden. 

Gehen wir einmal von folgender Datei aus: 

01 BANANE 
02 ORANGE 
03 TRAUBE 
04 APFEL 
05 BIRNE 
06 COCA COLA 
07 ERDBEERE 
08 MANDARINE 
09 

10 HIMBEERE 
11 PFLAUME 
12 BIRNE 
13 BROMBEERE 

Zugegeben, dies ist keine besonders glückliche Datei 
(nicht etwa, weil sie 13 Elemente enthält), sondern vielmehr 
eine ungeordnete Liste von Früchten. Einige von Ihnen wun¬ 
dern sich bestimmt auch schon, was Amerikas bestverkauf¬ 
tes Getränk in dieser Liste zu suchen hat - dazu jedoch spä¬ 
ter. 

Lassen Sie mich einmal kurz aufzählen, was für eine ideale 
Datei charakteristisch ist: 

1. Die Datei bezieht sich auf genau einen Bereich, bezie¬ 
hungsweise ist in einzelne Gruppen unterteilt. Das heißt, in 
einer Datei, mit der man zum Beispiel Videokassetten ordnen 
und verwalten will, haben Elemente wie Stromabrechnung 
oder Zeitschrifteninhaltsverzeichnisse nichts zu suchen. 
Genauso ist Coca Cola in unserer Beispielsdatei, mit der wir 
arbeiten wollen und die sich auf das Verwalten von Früchten 
bezieht, total fehl am Platz. 

2. Eine Datei kann in einzelne Gruppen unterteilt werden. 
Wenn man zum Beispiel eine Datei zum Verwalten eines 
Haushaltes eröffnen möchte, kann man sie in die Gruppen 
Stromabrechnung, Wasserabrechnung, Telefongebühren 
etc. unterteilen. Diese einzelnen Gruppen stehen dann in 
festgelegten Bereichen der Haushaltsdatei und dürfen sich 
nicht überschneiden. 

3. Es bietet sich an, die Dateien nach bestimmten Kriterien 
wie zum Beispiel alphabetisch zu sortieren. 

Unsere Beispielsdatei sieht auf den ersten Blick zwar wie 
eine relativ vernünftige Aufzählung von Früchten aus, ist 
jedoch noch lange keine ideale Datei in bezug auf die obigen 
drei Definitionen. 

Aufbau einer Datei 


Hier einige Betrachtungen zum Aufbau unserer Früchtedatei: 
- Die Datei besteht aus 13 SÄTZEN. Unter einem SATZ ver¬ 
stehen wir eine Information (zum Beispiel APFEL in unserer 
Früchtedatei), die an einer bestimmten Stellen der Datei zu 
finden ist. Entprechend unserer Beispielsdatei könnte man 
also sagen »SATZ Nummer 1 heißt BANANE« oder »BANANE 


steht in SATZ 1 der Früchtedatei« beziehungsweise 
»BANANE steht an erster STELLE in der Früchtedatei«. 

- In der Früchtedatei sind drei Beerenarten vertreten - 
ERDBEERE, HIMBEERE und BROMBEERE. 

- Satz 9 der Datei ist leer beziehungsweise an Stelle 9 der 
Früchtedatei ist eine Lücke. 

- In SATZ 6 steht ein Element (COCA COLA), das nicht in 
diese Datei gehört (da COCA COLA ein Getränk ist und in 
unserer Früchtedatei nur Früchte Vorkommen sollen). 

- Die Datei ist weder alphabetisch noch nach einem anderen 
erkennbaren Kriterium sortiert beziehungsweise geordnet. 

Bevor wir mit unserer Datei arbeiten können, müssen wir 
sie zunächst einmal in den Computer bringen. 

Wir legen die »Früchte« hierzu in DATA-Zeilen ab und lesen 
sie dann in ein dimensioniertes Stringfeld D$ ein (Listing 1). 

Mit der Anweisung GOSUB10000 wird unsere Früchteda¬ 
tei definiert und kann dann bearbeitet werden. 


10000 

REM FRUECHTE—DATEI DEFFINIEREN - 



— 



<026> 

10010 

SZ=13 :REM 

ANZAHL DER SAETZE 

< 133> 

10020 

DIM DS(SZ):REM 

STRING-FELD 

< 163> 

10030 

FOR 

=1 TO SZ 


<073> 

10040 

: READ DSCI) 


<073> 

100N* 

4EXT 

I 


<228> 

10100 

DATA 

BANANE 


<123> 

10105 

DATA 

ORANGE 


<023> 

10110 

DATA 

TRAUBE 


<132> 

10115 

DATA 

APFEL 


<045> 

10120 

DATA 

BIRNE 


<009> 

10125 

DATA 

COCA COLA 


<060> 

10130 

DATA 

ERDBEERE 


<245> 

10135 

DATA 

MANDARINE 


<050> 

10140 

DATA 



<248> 

10145 

DATA 

HIMBEERE 


<172> 

10150 

DATA 

PFLAUME 


<066> 

10155 

DATA 

BIRNE 


<044> 

10160 

DATA 

BROMBEERE 


'<226> 

10190 

RETURN 


<086> 


Listing 1. Definition der Früchtedatei 


10 60SUB 10000: REM DATEI DEFFINIEREN <103> 

100 REM STEUERPROGRAMM - 

- < 020 > 

110 INPUT"WELCHEN SATZ ";SA <054> 

120 IF SA<0 OR SA>SZ THEN PRINT"DIESER SAT 

Z EXISTIERT NICHT!":GOTO 110 <09B> 

130 PRINT:PRINT D#(SA) <112> 

140 GOTO 100 <068> 


Listing 2. Lesen eines Datensatzes 


10 GOSUB 10000: REM DATEI DEFFINIEREN 

< 103> 

100 

REM STEUERPROGRAMM - 

<020> 

110 

..INPUT"WELCHEN BEGRIFF SOLL ICH S 


UCHEN ";X* 

<254> 

120 

FOR SA=1 TO SZ 

<039> 

130 

: IF X*=D*(SA) THEN PRINT"DER GESUCHTE 



BEGRIFF STEHT IN SATZ ";SA 

<00B> 

140 

NEXT SA 

<06B> 

150 

GOTO 110 

<094> 


Listing 3. Suche nach einem Datensatz 


10 


SONDERHEFT 4/86 



















C64 


DATEIVERWALTUNG 


Erste Gehversuche 


Wir wollen nun einige Experimente mit unserer Datei durch¬ 
führen. 

Das Unterprogramm zur Definition ist immer das gleiche. 
Sie müssen lediglich jeweils die anderen Programmzeilen 
anpassen. 

SATZ lesen 

Unser erstes »Experiment« ist so einfach, daß sich jegliche 
Erklärungen erübrigen. Bitte ergänzen Sie nun um die Zeilen 
aus Listing 2. 

Dieses Steuerprogramm verlangt also die Eingabe von 
Satzzahlen und gibt daraufhin den entsprechenden Satz aus. 

SATZ suchen 

Hier geht es darum, einen bestimmten SATZ innerhalb der 
Datei zu finden. Man gibt als Suchbegriff zum Beispiel 
ERDBEERE ein und erhält als Antwort SATZ 7 - also der 
gesuchte Begriff ERDBEERE steht in SATZ 7 der Früchteda¬ 
tei. Das Steuerprogramm hierfür finden Sie in Listing 3. 

Auch dieses Programm ist noch sehr einfach. Nach Ein¬ 
gabe des gesuchten Begriffs als X$ durchläuft eine Schleife 
SA die gesamte Datei D$(1) bis D$(SZ) - wobei SZ der höch¬ 
ste SATZ der Datei ist - und überprüft bei jedem Schritt, ob 
X$ gleich D$(SA) ist. Wird eine Übereinstimmung gefunden, 
so erhält man den entsprechenden Satzwert SA. 


10 GOSUB 10000: REM DATEI DEFFINIEREN <103> 

100 REM STEUERPROGRAMM-—- 

- < 020 > 

110 X$=”INPUT"WELCHEN BEGRIFF SOLL ICH S 

UCHEN ";XS <254> 

120 IC=0:FOR SA=1 TO SZ <160> 

130 : IF X*=D*(SA) THEN PRINT"DER GESUCHTE 

BEGRIFF STEHT IN SATZ ";SA:IC=IC+1 <101> 

140 NEXT SA <068> 

142 IF IC=0 THEN PRINT"DIESER BEGRIFF IST 

IN DER FRUECHTEDATEI NICHT ENTHALTEN!" <045> 
144 IF IOl THEN PR INT "ACHTUNG, DER BEGRIF 

F ";X*;" KOMMT";IC;"MAL VOR!" <087> 

150 GOTO 110 <094> 


Listing 4. Suchen eines Datensatzes 


10 I*="ABCDEFGHIJKLMNOPQRSTUVWXYZ" <098> 

20 X*="":PRINT"<CLR>" <230> 

30 X*=X*+"BEI DER BUCHSTABENFOLGE " <044> 

40 X*=XS+LEFTS(IS,INT(23*RND<1)>+l) <076> 

50 X*=X*+“ HANDELT ES SICH UM EINEN TEIL D 

ES ALPHABETS." <071> 

60 PRINT X* <166> 

70 PRINT"<2D0WN>BITTE EINE TASTE DRUECKEN! 

” < 212 > 

80 POKE 198,0:WAIT 198,1 <052> 

90 GOTO 20 <020> 


Listing 5. Das PRINT-Problem 


20000 REM FORMATIERTE TEXTAUSGABE 


<251 > 

20010 IF XS=""THEN 20090 <204> 

20020 IF LEN(XS)<40 THEN PRINT XS:GOTO 200 

90 <239> 

20030 IF LEN(X#>=40 THEN PRINT X*;:GOTO 20 

090 <125> 

20040 I*=LEFT*<X*,41):IC=0:FOR 1=1 TO LEN < 

I»):IF MID*<IS,I,1>=" "THEN IC=I <247> 

20050 NFXT I:IF IC=0 THEN PRINT XS:GOTO 20 

090 <062> 

20060 I*=LEFT*(I*,IC-1):IF LENCI*>=40 THEN 

PRINT IS; <051> 

20070 IF LEN(IS)<40 THEN PRINT IS <121> 

20080 XS=RIGHTS < XS,LEN(XS)—IC):GOTO 20010 <243> 

20090 RETURN <080> 


Listing 6. Formatierte Textausgabe 


Im Falle einer idealen Datei würde dieses Steuerprogramm 
optimal funktionieren. Bei unserer momentan noch etwas 
chaotischen Datei kann es jedoch noch zu Schwierigkeiten 
kommen. Betrachten wir einmal folgende Fälle: 

- Suchen Sie doch einmal den Begriff »PFIRSICH«. Selbst¬ 
verständlich werden Sie keine Antwort erhalten, da diese 
Frucht in unserer Früchtedatei nicht aufgeführt wird. Unser 
Steuerprogramm kann also insofern verbessert werden, daß 
es mit »Dieser Begriff ist in der Früchtedatei nicht enthalten!« 
antwortet. Diese Änderung läßt sich noch einfach vorneh¬ 
men, aber es gilt auch noch ein anderes Problem zu lösen: 

- Geben wir als Suchbegriff »BIRNE« ein, so erhalten wir zwei 
Antworten. Einmal, daß der Begriff in SATZ 5 steht und einmal 
in SATZ 12. Diese Antwort des Steuerprogramms ist völlig 
korrekt, da der Begriff beziehungsweise die Frucht BIRNE in 
unserer Früchtedatei zweimal auftritt - nämlich in den SÄT¬ 
ZEN 5 und 12. 

Allerdings ist es ziemlich unsinnig, bei unserer Früchteda¬ 
tei eine Frucht zweimal aufzuführen. Warum habe ich die 
Frucht BIRNE eigentlich zweimal aufgeführt, sollten Sie sich 
jetzt fragen. Ganz einfach - wenn man sehr lange Listen ein¬ 
tippen muß (zum Beispiel Ersatzteile-Bestandsliste für einen 
Kfz-Betrieb) kann es sehr leicht passieren, daß man einen 
Satz versehentlich mehrmals eintippt. Spätestens das 
Dateiverwaltungs-Programm sollte dann soviel »Intelligenz« 
(Anführungszeichen deshalb, da dies noch lange nichts mit 
Kl (künstliche Intelligenz) zu tun hat) haben, um den Fehler zu 
erkennen und auf ihn aufmerksam zu machen. Es gibt selbst¬ 
verständlich auch Dateiverwaltungen, bei denen es sinnvoll 
ist, Begriffe doppelt auszuführen (zum Beispiel Objekt- und 
Wortschatztabellen für Abenteuerspiele) - dazu jedoch spä¬ 
ter. 

Wir wollen unser derzeitiges Steuerprogramm also noch so 
verbessern, daß es einen Hinweis gibt, wenn ein Begriff 
mehi ii.als auftaucht. 

Versuchen Sie zur Übung einmal diese beiden Verbesse¬ 
rungen am Steuerprogramm selbst durchzuführen, bevor Sie 
die Lösung abtippen. Die Lösung finden Sie in Listing 4. 

Dieses Steuerprogramm ist schon relativ brauchbar. Es 
kann Begriffe innerhalb unserer Datei suchen, erkennt, wenn 
ein gesuchter Begriff in der Datei überhaupt nicht vorkommt 
und es teilt uns mit, wenn ein Begriff in der Datei mehrmals 
enthalten ist (zum Beispiel BIRNE). 

Bisher haben wir bei unseren Beispielprogrammen noch 
keinen Wert auf eine schöne Darstellung beziehungsweise 
Formatierung der Textausgaben auf dem Bildschirm geach¬ 
tet. Im Laufe des Kurses wollen wir uns jedoch auch diesem 
Problem zuwenden. 

Wenn man bei unserer Früchtedatei den Begriff BIRNE 
sucht, so erhalten wir die Antwort »Achtung, der Begriff 
kommt 2mal vor!«. 

Auf dem Monitor sieht dieser Satz allerdings nicht sehr gut 
dargestellt aus, wenn man einmal das Wort »vor« am Ende des 
Satzes betrachtet. Das »v« des Wörtchens steht am Ende 
einer Bildschirmzeile, während das »or« zu Beginn der näch¬ 
sten Zeile steht. 

Viel deutlicher noch wird das Problem einer formatierten 
Textausgabe im Beispiel von Listing 5. 

Dieses Programm macht nichts anderes, als einfach einen 
zufällig erzeugten Text auf dem Bildschirm auszugeben. Das 
heißt, Anfang und Ende des Textes sind immer gleich, der 
mittlere Teil stellt jedoch eine zufällige, aus dem Alphabetaus¬ 
gewählte Buchstabenfolge dar. Durch die zufällige Auswahl 
des mittleren Textteils variiert die Gesamtlänge des Textes 
stark - es kommt so zu einer unkontrollierten, unformatierten 
Bildschirmausgabe. Einige Computer haben in ihrem Basic 
PRINT-Anweisungen mit »Intelligent Space« zur Verfügung, 
mit deren Hilfe es sehr einfach ist, Text formatiert auf den Bild¬ 
schirm zu bringen. Eine derartige Routine ist im Basic des 
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Commodore 64 leider nicht enthalten. Sie läßt sich jedoch 
mit nur geringem Aufwand als Basic-Unterprogramm pro¬ 
grammieren, wie es Listing 6 zeigt. 

Nun wollen wir dieses Unterprogramm in unser letztes Bei¬ 
spielsprogramm einbauen. Hierzu müssen lediglich folgende 
Änderungen durchgeführt werden: 

60 GOSUB 20000 

Wenn Sie das Programm nun erneut starten, werden alle 
Textausgaben formatiert auf den Bildschirm gebracht. Was 
die formatierte Textausgabe anbelangt, so wollen wir es 
zunächst bei diesem Unterprogramm belassen. 

Eine MERGE-Routine 


Wie Sie sicherlich bereits bemerkt haben, kommen in diesem 
Kurs Routinen vor, auf die wir ständig zurückgreifen werden. 
Um sich viel Tipparbeit zu ersparen, bietet es sich daher an, 
die einzelnen Routinen einzeln abzuspeichern, um sie bei 
Bedarf wieder laden zu können. Hierbei ist es nützlich, wenn 
Sie mit einem MERGE-Befehl arbeiten, der es erlaubt, ein¬ 
zelne Programmteile nacheinander zusammen »zu laden«. 
Sie können hierzu Basic-Erweiterungen ä la G-Basic, Simons 
Basic oder auch Toolkits ä la KFC Super 64 verwenden. Mit 
fortlaufendem Kurs werden wir jedoch soviel Speicherplatz 
benötigen beziehungsweise das Betriebssystem des C64 
derartig »umkrempeln« und erweitern, daß es sich mit keiner 
dieser Basic-Erweiterungen mehr verträgt. Es bietet sich 
sodann die folgende MERGE-Routine, die Sie im Direkt- 
Modus durchführen können, an (sowohl für Disklaufwerk als 
auch Datasette). 

Dieser Direktmodus-MERGE geht so: 

A. Programm A laden. Dann notieren Sie sich den Inhalt der 
Speicherzellen 43 und 44 - also PEEK(43) und 
PEEK(44). 

B. Geben Sie nun im Direktmodus ein: 


POKE 43,(PEEK(45) + 256*PEEK(46)-2)AND255 
(RETURN) 

POKE 44,(PEEK(45) + 256*PEEK(46) -2/256) 
(RETURN) 

C. Programm B laden. Dann die notierten Werte wieder in die 
Speicherzellen 43 und 44 POKEn. 

Fertig - beide Programme sind jetzt gemeinsam im Speicher. 

Bei diesem Vorgang ist zu beachten, daß zuerst das Pro¬ 
gramm mit den niedrigeren Zeilennummern geladen wird 
(Programm A) - ansonsten kann es zu Schwierigkeiten kom¬ 
men beziehungsweise das MERGEn klappt einfach nicht. 

Wir werden deshalb schon sehr bald auf die beste Datei¬ 
verwaltungsmethode zu sprechen kommen, die auf dem 
C64 überhaupt möglich ist: Relative Dateien mit Hilfe des 
Diskettenlaufwerks 1541. 

Würde man auf Disk eine Datei mit 2000 Sätzen anlegen 
und in dieser dann einen Begriff suchen, der an letzter Stelle 
der Datei steht, so würde man bei Verwenden unserer bishe¬ 
rigen Suchroutine eine viel größere Suchzeit als 14 Sekun¬ 
den in Kauf nehmen müssen. Auch eine Programmierung in 
Assembler würde keine befriedigenden Suchzeiten erge¬ 
ben, da bei relativen Dateien auf Disk noch ein anderer Faktor 
eine wesentliche Rolle spielt: Die Zugriffzeit des Floppy- 


10 

DIM X*<2000> 




<005> 

20 

X*<20001="MIKE” 




< 114> 

30 

REM SUCHRGUTINE 




<014> 

35 

TI*="000000":REM STOPPUHR AUF NULL 

<110> 

40 

FOR 1=1 TO 2000 




<091> 

50 

:IF X* CI)="MIKE' 

THEN PRINT 

'MIKE 

STEHT 

I 


N SATZ";I:PRINT' 

BENOETIGTE 

ZEIT; 

";TI* 

<165> 

60 

NEXT I 




< 144> 


Llsting 7. Suchvorgang gestoppt 


Laufwerks - also die Zeit, die das Disketten-Laufwerk 
braucht, um auf bestimmte Sätze einer relativen Datei zuzu¬ 
greifen. Diese Zugriffszeit, die vom Floppy-Laufwerk bean¬ 
sprucht wird, läßt sich auch mit Assembler nicht beeinflus¬ 
sen. Auch Hypra-Load-Fans werden enttäuscht sein, da 
Hypra-Load wie auch alle anderen ähnlichen Programme 
(Ausnahme: Parallelübertragung ä la SpeedDos etc.) die 
Zugriffszeit auf relative Dateien in keinster Weise beeinflus¬ 
sen. Hier auch gleich eine Anmerkung für alle, die ihr altes 
Betriebssystem durch ein Betriebssystem mit Hypra-Load 
ersetzt haben (beziehungsweise Umschaltplatine im Compu¬ 
ter haben): Hypra-Load beansprucht den Datasetten-Puffer 
von 828-1019. Diesen Bereich werde ich ab und zu für kleine 
MP-Routinen beanspruchen. Es ist daher unbedingt erfor¬ 
derlich, daß Sie dann das alte Betriebssystem im Computer 
haben beziehungsweise auf dieses umschalten! 

Nun aber zurück zum Sortieren. 

Bevor wir unsere erste Sortierroutine programmieren, müs¬ 
sen wir uns noch einiges an Theorie zu Gemüte führen. 

Betrachten wir hierzu noch einmal unsere Früchtedatei. 
Bisher haben wir immer nur einzelne Begriffe gesucht. Was 
aber nun, wenn wir aus unserer Früchtedatei alle Früchte 
heraussuchen wollen, die einer Beerensorte angehören? Wir 
müßten als Antwort dann ERDBEERE, HIMBEERE und 
BROMBEERE erhalten. Woher in aller Welt soll unser C64 
aber wissen, was Beeren sind beziehungsweise welche 
Früchte als Beeren bezeichnet werden können? 

Die einfachste Lösung wäre die folgende: 

Alle Beerenarten in unserer Datei haben die Endung 
BEERE gemeinsam. Es liegt nun nahe, beim Suchvorgang 
einfach zu überprüfen, ob die letzten 5 Zeichen jedes Früch¬ 
tenamens gleich »BEERE« ist; also: 

IF RIGHT$(D$,5)=X$ THEN 
wobeiX$= "BEERE" ist. 

Um aie Suchroutine (Listing 4) entsprechend zu ändern, 
müssen Sie lediglich Zeile 130 modifizieren; 

130 : IF RIGHT$(D$(SA),LEN(X$))=X$THENPRINTD$(SA): 
IC=IC+1 

Die erste Hürde bei der Einführung von Dateiverwaltungs¬ 
programmierung wäre nun geschafft. Sie wissen jetzt, wie 
man einfache Dateien innerhalb von Basic tabellenartig ver¬ 
waltet, und Sie haben die einfachste und schlechteste Such¬ 
routine kennengelernt, die es gibt. 

Ohne Sortieren geht es nicht 


Bisher haben wir unsere Früchtedatei von Anfang bis Ende 
durchsucht, um schließlich eine bestimmte Frucht zu finden 
oder zu erfahren, daß sie in der Datei gar nicht beziehungs¬ 
weise mehrmals auftritt. Das ging bisher auch ziemlich 


30000 

REM QUICKSORT - 



— 

<087> 

30001 

DIM LG(100),RG <100):Z=0:LG(1)=1:RG <1 



>=SZ 

< 177> 

30010 

Z-Z+lsIF LG < Z)>=RG(Z)THEN 30120 

< 166> 

30020 

X=LG(Z):Y=RG <Z > 

<0U> 

30030 

VG*=D*<INT<(X+Yl/2)) 

< 188> 

30040 

IF X>Y THEN 30100 

<205> 

30050 

IF D* C X)< VG*THEN X = X + l:GOTO 30050 

<214> 

30060 

IF DS(Y> >VG*THEN Y=Y-l:GOTO 30060 

<064> 

30070 

IF X>Y THEN 30100 

<235> 

300B0 

S*=D*<X>:D*<X)=D*(Y):D*(Y)=S* 

< 130> 

30070 

X=X+1:Y=Y—1:GOTO 30040 

<099> 

30100 

RG<Z+1)=Y:LG<Z+l)=LG<Z):GOSUB 30010 

< 1B4> 

30110 

LG(Z+1)=X:RG(Z+1)=RG<Z):GOSUB 30010 

<104> 

30120 

Z=Z-1:RETURN 

< 161 > 


Listing 8. Der legendäre Quicksort 
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schnell, in Bruchteilen von Sekunden. Was aber nun, wenn 
wir riesige Dateien mit mehreren tausend Sätzen verwalten 
wollen? 

Die »Schwäche« unserer bisherigen Suchroutine wird bei 
dem Demo-Programm in Listing 7 besonders deutlich: 

Hier wird in einer Datei mit 2000 Sätzen der Name »Mike« 
gesucht, der unglücklicherweise an letzter Stelle der Datei 
steht. Das Programm sucht 14 Sekunden, bis es den Namen 
endlich gefunden hat. Ein kleiner Tip am Rande: SYS 65499 
bewirkt das gleiche wie der Befehl TIS= "000000". 

Diese Zeit ist sogar noch akzeptabel, wenn man bedenkt, 
daß sich auf unsere Früchtedatei keine andere vernünftige 
beziehungsweise schnellere Suchroutine als die obig vorge¬ 
stellte anwenden läßt. 

Warum? Ganz einfach - vernünftige Suchroutinen lassen 
sich nur bei Dateien anwenden, die nach einem bestimmten 
Kriterium sortiert sind (zum Beispiel nach der alphabetischen 
Grundordnung). 

Wir müssen unsere Früchtedatei also zunächst sortieren, 
bevor wir eine bessere Suchroutine programmieren können. 

»Warum programmieren wir die obige Suchroutine nicht 
einfach in Maschinensprache?« könnte jetzt einer rufen! Er 
hätte auch recht - die obige Routine wäre in Assembler derar¬ 
tig schnell, daß wir uns über die Programmierung von Such¬ 
routinen keine Gedanken machen müßten. 

Es muß also noch andere Gründe geben, warum ich das 
Zeitproblem nicht einfach mit einer Maschinensprache- 
Routine unter den Tisch kehre und stattdessen einen Umweg 
über die Programmierung von Sortieralgorithmen mache. 
Und der ist wie folgt: Sie müssen sich lediglich vor Augen hal¬ 
ten, daß wir es im Moment nur mit einfachen Dateien inner¬ 
halb von Basic zu tun haben. Diese Dateien sind zwar sehr gut 
zu handhaben, aber ihre Verwaltungskapazität ist zu stark 
eingeschränkt - nämlich auf 38 KByte Basic-RAM beim 
C64. 

Wenn Sie das Programm nun starten und als Suchbegriff 
»BEEREN« eingeben, so gibt die Suchroutine alle Sätze aus, 
die mit »BEEREN« enden - also alle Beerensorten. Genauso¬ 
gut können Sie als Suchbegriff »COLA« eingeben und erhal¬ 
ten dann alle in der Datei vorkommenden Cola-Sorten aufgeli¬ 
stet. Diese Suchmethode funktioniert im Moment zwar ganz 
gut, ist jedoch viel zu sehr eingeschränkt, da sich Dateien nur 
in ganz seltenen Fällen nach ihren Satzendungen sortieren 
lassen. Angenommen, Sie möchten eine Datei program¬ 
mieren, in der Computerprogramme verwaltet werden (zum 
Beispiel für ein Softwarehaus). Man müßte dann nach ver¬ 
schiedenen Kategorien einteilen: Zum Beispiel Programmart, 
Preislage, Computertyp etc. 

Ein solches Programm für einen Software-Händler müßte 
folgende Bedingungen aufweisen: 

1. Feststellen, ob ein bestimmtes Programm geführt wird. 

2. Datei nach bestimmten Kriterien sortieren: 

- Programmart 

- Preislage etc. 

3. Lagerbestand kontrollieren - also wieviele Exemplare 

eines Programmes noch vorrätig sind etc. 

Man müßte die Dateiverwaltung in Form einer Tabelle auf¬ 
bauen, die so aussehen könnte: 


1. Schlüssel 
Programmname 

2. Schlüssel 
Art 

3. Schlüssel 
Preis 

4. Schlüssel 
Vorrat 

vizawrite 

1 

200.00 

24 

wordpro 

1 

1155.50 

13 

space invaders 

2 

39.00 

67 

jumpman 

2 

249.00 

34 

simons basic 

3 

99.00 

65 

g-basic 

3 

3140.00 

45 

gordon saga 

4 

39.00 

89 

deadline 

4 

99.00 

34 


Die einzelnen Spalten beziehungsweise Kategorien einer 
solchen Tabelle/Datei bezeichnet man als Schlüssel. Wenn 
ich die Software-Datei zum Beispiel nach dem 3. Schlüssel 
sortiere, so sortiere ich nach dem Kriterium Preis. Beim 1. 
Schlüssel - dem Programmnamen - würde ich alphabetisch 
sortieren. 

Bevor man nun zur Programmierung übergeht, muß man 
sich noch einige andere Gedanken über den Aufbau der 
Tabelle machen. Man muß so zum Beispiel genau festlegen, 
aus wieviel Zeichen der Programmname maximal bestehen 
darf. Auch für alle anderen »Schlüssel« muß genau festgelegt 
werden, welche Länge sie einnehmen dürfen. Betrachten wir 
einmal den zweiten Schlüssel: Um zwischen 9 Programmar¬ 
ten unterscheiden zu können, benötige ich ein Zeichen Platz. 
Lege ich jedoch 2 Zeichen als maximale Länge fest, so kann 
ich bis zu 99 (also zweistellige Zahlen) Arten unterscheiden. 
Unsinnig wäre es sicherlich, 4 Stellen zu reservieren, da man 
wohl kaum seine Programme in 9999 verschiedene Arten 
einteilen will. Auch wenn ich momentan nur 9 Programmarten 
unterscheide (also nur 1 Zeichen Platz benötige), ent¬ 
scheide ich mich für 2 Zeichen Reservierung, damit meine 
Datei möglichst ausbaufähig bleibt. 

Für den 2. Schlüssel muß ich noch eine weitere Tabelle 
anlegen: 

1 = Textverarbeitungsprogramm 

2 = Actionsspiel 

3 = Basic-Erweiterung 

4 = Abenteuerspiel 

Nach einigen Überlegungen lege ich schließlich folgendes 
fest: 

Programmnamenlänge : max. 15 Zeichen 

2. Schlüssel : max. 2 Zeichen 

3. Schlüssel : max. 6 Zeichen 

4. Schlüssel : max. 2 Zeichen 

Die Tabelle, wie sie später im Computer sein soll, ist damit 
festgelegt wie in Bild 1. 



Lassen Sie mich noch einmal kurz zu unserer Früchtedatei 
zurückkehren. Diese Datei läßt sich besonders einfach sor¬ 
tieren, da sie aus nur einem Schlüssel besteht (dem Frucht¬ 
namen). 

Zum Sortieren braucht man einen möglichst guten Sortier- 
Algorithmus - am besten in Form eines Basic-Unterpro- 
gramms, das Sie später einfach in Ihrem eigenen Programm 
einbauen können. 

Ich halte es nicht für sinnvoll, in diesem Kurs lange und breit 
auf die Funktion der einzelnen Sortieralgorithmen einzuge¬ 
hen beziehungsweise diese vorzustellen. Der schnellste 
Sortieralgorithmus ist der Quicksjlfort. Ihn wollen wir immer 
dann im Kurs anwenden, wenn irgendetwas sortiert werden 
muß. Wer sich für die Grundlagen der Sortieralgorithmen 
interessiert, den möchte ich auf den Kurs »Effektives Pro¬ 
grammieren« hinweisen, der im Jahre 1985 in der Zeitschrift 
64'er veröffentlicht worden ist. Dort erfahren Sie alles Wis- 
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senswerte über die Programmierung und Funktion dieser 
Algorithmen. 

Listing 8 zeigt das Unterprogramm zum Quicksort-Algorith¬ 
mus. 

Der Quicksort ist wie bereits gesagt der schnellste, aber 
auch der am schwierigsten verständliche Algorithmus zum 
Sortieren. Für den Verlauf dieses Kurses ist es lediglich not¬ 
wendig, daß Sie wissen, wie das Quicksort-Unterprogramm 
angewendet wird beziehungsweise welche Parameter man 
ihm übergeben muß. 

Beachten Sie bitte die beiden DIMs in Zeile 30001. Wenn 
Sie innerhalb eines Programmes den Quicksort mehrmals 
verwenden wollen, also das Unterprogramm mit 
GOSUB30000 aufrufen, müssen Sie diese beiden DIMs an 
einer anderen Stelle im Programm (am besten am Anfang) 
unterbringen, daß es nicht zu einem REDIM’D ARRAY 
ERROR kommt. 

Das Unterprogramm benötigt folgende Parameter: 

- das Feld, das sortiert werden soll, muß D$(1)-D$(?) sein. 
Sie können im Unterprogramm natürlich auch D$ durch etwas 
anderes ersetzen! 

- In der Variablen SZ steht die Anzahl der Sätze der Datei/des 
Feldes. 

- LG(1) und RG(1) geben Anfang und Ende des Bereiches 
des Feldes, das sortiert werden soll, an. 

Ist LG(1) = 1 und RG(1)=SZ, so heißt das, daß das gesamte 
Feld D$ sortiert werden soll. Ist LG( 1) = 10 und RG(1)=40, so 
wird vom lOten bis zum 40sten Satz sortiert etc. 

Das Beispielprogramm in Listing 9 zeigt, wie sich unsere 
Früchtedatei mit Hilfe des Quicksort-Unterprogramms alpha¬ 
betisch sortieren läßt. 

An diesem Programm braucht nicht viel erklärt werden - 
einfach Abtippen und RUN. 

Interessant ist vielleicht, was mit unserem Satz Nummer 9 
der Früchtedatei passiert ist (der leere Satz). Er steht nach 
dem Sortiervorgang an erster Stelle der Datei. Wenn Sie 
möchten, dann können Sie leere Sätze als eine Art NOPs 
betrachten - einfache Platzhalter, in die man später noch 
etwas einbauen kann. Bei Assembler-Programmierung sind 
solche Platzhalter unentbehrlich, bei Dateiverwaltung jedoch 
relativ überflüssig, da gute Dateiverwaltungen Befehle ent¬ 
halten, innerhalb einer Datei automatisch zwischen zwei Sät¬ 
zen einen Leerraum zu schaffen. Vor dem Sortieren bietet es 
sich folglich an, die leeren Sätze aus der Datei zu eliminieren. 

Man durchläuft die gesamte Datei hierbei mit einer Schleife 
und schreibt immer dann, wenn man auf einen leeren Satz fin¬ 
det, den letzten Satz dieser Datei in den leeren Satz. Danach 
wird SZ, die Variable, die angibt, wieviele Sätze die Datei ent¬ 
hält, um den Wert 1 erniedrigt. 

Das geht so wie in Listing 10. 

Sie müssen zum Aufruf des Unterprogramms lediglich 
Listing 9 um folgende Zeile ergänzen: 

11 G0SUB20000:REM LEERE SAETZE WEG 

Nun werden vor dem Sortiervorgang alle leeren Sätze aus 
der Datei entfernt. Wir sind nun in der Lage, jede (sich kom¬ 
plett im Computer befindliche) Datei zu sortieren. Daher 
eröffnen sich uns auch völlig neue Suchroutinen: 

Die binäre und die index-sequentielle Suchmethode. 

Für unsere folgenden Experimente gibt die Früchtedatei 
nicht mehr genug her. Wir wenden uns deshalb nun der 
Software-Datei zu, die über mehrere Schlüssel verfügt. 

Zunächst wird die Datei wieder in einem Unterprogramm ab 
10000 definiert, wie es Listing 11 zeigt. 

Eigentlich haben wir unsere Dateien bisher immer doppelt 
im Speicher stehen: einmal innerhalb von DATA-Zeilen und 
zum anderen in einem dimensionierten Stringfeld. Wir gehen 
bisher also ziemlich verschwenderisch mit dem geringen 
Speicher unseres C64 um (gering in Anbetracht der Tat¬ 
sache, daß es heute schon Computer zu Homecomputer- 


10 SOSUB 10000:REM TABELLE DEFFINIEREN <247> 
20 PRINT"<CLR>TABELLE VOR DEM SORTIEREN: <042> 
30 FOR 1=1 TO SZ <235> 
40 :PRINT I,D*(I> <118> 
50 NEXT I <134> 
60 PRINT“<DOWN>CRETURN3":POKE 198,0:WAIT 1 

98,1 <220> 
65 PRINT"BITTE WARTEN!” <000> 
70 SOSUB 30000:REM D*(1)-D*(SZ) SORTIEREN <009> 
80 PRINT“<CLR>TABELLE NACH DEM SORTIEREN: <21B> 
90 FOR 1=1 TO SZ <039> 
100 :PRINT I,D*<I> <17B> 
110 NEXT I <194> 
120 END <122> 


Listing 9. Steuerprogramm zu Quicksort 


20000 REM LEERE SAETZE AUS EINER DATEI ELI 
MINIEREN - 

<0B8> 

20020 1=0: REM ZAEHLER AUF NULL <039> 

20030 1=1+1:IF I=SZ THEN RETURN <163> 

20040 :IF D*(I)=""THEN D*<I)=D*<SZ>:SZ=SZ— 

1:BOTO 40 <222> 

20050 GOTO 20030 <146> 


Listing 10. Aufräumen einer Datei 


10000 REM ^R UEC I tT g D ATEI DEFFINIEREN- 

-tr-JOFflf-fä - i - 

<026> 

10010 SZ=8 :REM ANZAHL DER SAETZE <038> 

10020 DIM D*(SZ):REM STRING-FELD <163> 

10030 FOR 1=1 TO SZ <073> 

10040 : READ D*(I> <073> 

10050 NEXT I <228> 

10100 DATA"VIZAWRITE<6SPACE>01200.0024" <086> 

10105 DATA"WORDPRO<8SPACE>01155.5013" <036> 

10110 DATA"SPACE INVADERS 02 39.0067" <175> 

10115 DATA"JUMPMAN<8SPACE102 49.0034" <111> 

10120 DATA“SIMONS BASIC<3SPACE>03 99.0065" <230> 
10125 DATA"G—BASIC£8SPACE>03140.0045" <1B6> 

10130 iiATA"GORDON SAGAC4SPACEJ04 39.0089" <093> 

10135 DATA“DEADLINEC7SPACE>04 99.0034" <132> 

10140 RETURN <036> 


Listing 11. Dateidefinition einmal anders 


10 REM D#<1)-D*<SZ> ALS SEQ-FILE - 

- <061> 

20 GOSUB 10000: REM TABELLE DEFFINIEREN <001> 

30 OPEN 2,8,2,"DATEN—FILE,S,W" <242> 

40 FOR 1=1 TO SZ <245> 

50 :PRINT#2,D*<I> <007> 

60 NEXT I <144> 

65 CLOSE 2 <084> 

70 PRINT"*** FERTIG ***" <079> 

80 END <0B2> 


Listing 12. So speichert man die Datei auf Disk 


10000 REM FRUECHTE—DATEI DEFFINIEREN 


<026> 

10010 SZ=B :REM ANZAHL DER SAETZE <038> 
10020 DIM D$(SZ):REM STRING-FELD <163> 
10030 OPEN 2,8,2,"DATEN-FILE,S,R" <206> 
10040 FOR 1=1 TO SZ <083> 
10050 :1NPUT#2,D* <I> <197> 
10060 NEXT I <238> 
10070 CLOSE 2 <1B3> 
10080 RETURN <232> 


Listing 13. Lesen einer Datei von Disk 

Preisen gibt, die auf 512 KByte RAM aufgestockt werden 
können!). Es wird also höchste Zeit, sich um eine bessere 
Unterbringung unserer Tabellen zu bemühen. 

In der Tat - sind die DATA-Zeilen erst einmal in ein Stringfeld 
eingelesen, werden sie nicht mehr weiter benötigt und 
blockieren lediglich freien Speicherplatz. 

Oh, soeben habe ich einen kleinen Fehler in Listing 11 ent¬ 
deckt: Die REM-Zeile 10000 darf nicht länger Früchte-Datei 
heißen, sondern muß jetzt Software-Datei lauten. Wir müssen 
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Zeile 10000 deshalb folgendermaßen abändern: 

10000 REM SOFTWARE-DATEI DEFINIEREN 
Vielleicht werden sich einige (mit gutem Recht) wundern, 
warum ich hier lange und breit auf diesen lächerlichen »Feh¬ 
ler« eingehe und nicht einfach mein Manuskript verbes¬ 
sere.kein Kommentar, denn jetzt kommt wieder ein klei¬ 

ner (aber äußerst interessanter) Tip am Rande: 

Ärger beim »Replace« , n 


Selbstverständlich gehe ich jetzt davon aus, daß Sie alle 
Listings, die Sie im Rahmen dieses Kurses abtippen, auf Dis¬ 
kette speichern, um diese später wieder verwenden zu kön¬ 
nen. Nehmen wir einmal an, daß Sie auch das falsche Listing 
11 bereits gespeichert haben. Worauf ich hinaus will, ist das 
folgende: Wenn Sie das »falsche« Listing bereits gespeichert 
haben, so werden Sie es sicherlich verbessern und anschlie¬ 
ßend mit dem Befehl 
SAVE LISTING 11", 8 

wieder speichern. Wenn Ihnen nicht klar ist, was das »@« 
im Filename soll, so sind Sie noch nicht »reif« genug für den 
folgenden Tip - lesen Sie schleunigst Ihr Bedienerhandbuch 
zur VC 1541! 

Wer die Anweisung kennt und schon des öfteren ange¬ 
wandt hat, hat sicherlich auch schon unerklärbare Probleme 
damit gehabt. So kann es zum Beispiel Vorkommen, daß der 
Befehl einfach nicht funktioniert und die rote LED am Lauf¬ 
werk ähnlich einer extrem miserablen 1-Kanal-Lichtorgel im 
4 / 4 -Takt zu blinken beginnt. Die Erklärung dieses Fehlers im 
Betriebssystem ist sehr kompliziert. Für den Anwender ist nur 
eines wichtig: Niemals den @ verwenden! Sicherer ist es, mit 
»Scratch« zu löschen und dann noch einmal zu speichern. 
Also: Niemals SAVE " @" 

Nun aber schnell zurück zu unserem aktuellen Problem. 
Laden Sie bitte Listing 11, falls Sie es nicht mehr im Speicher 
haben. Nach Eingabe von CLR und PRINT FRE(0)+65000 
erhalten Sie die Antwort, daß 37928 Byte Basic RAM frei 
sind. Nach Starten des Programmes mit GOSUB 10000 im 
Direktmodus und Eingabe von PRINT FRE(O) erhalten Sie die 
Antwort, daß jetzt nur noch 37880 Bytes Basic RAM frei 
sind. Es wird also Basic-RAM benötigt, um ein Stringfeld zu 
füllen. Es macht bei unserem Programm zwar nur ein paar 
Bytes aus, aber unsere Tabelle ist ja extrem klein. Bei großen 
Dateien kann ein sehr großer Unterschied Vorkommen. 

Es bieten sich nun mehr Lösungsmöglichkeiten an. 

Man kann so zum Beispiel darauf verzichten, die DATAs in 
ein Stringfeld einzulesen. Man benötigt dann eine modifi¬ 
zierte RESTORE-Routine. Im Basic des C64 wird mittels 
RESTORE der DATA-Zeiger einfach auf die erste DATA-Zeile 
zurückgesetzt. Unter modifizierte RESTORE-Funktion ver¬ 
steht man nun die Möglichkeit, den DATA-Zeiger auf eine 
bestimmte DATA-Zeile zu setzen - RESTORE(X), wobei X für 
die DATA-Zeile steht, auf die der Zeiger gesetzt werden soll. 
Von dieser Möglichkeit, die sich hervorragend zum Program¬ 
mieren von Adventures anbietet, die komplett im Basic-RAM 
stehen (worauf Datasetten-Benutzer angewiesen sind), habe 
ich in meinem ersten Adventure-Programmierkurs im zweiten 
64’er Sonderheft regen Gebrauch gemacht. Das entspre¬ 
chende Maschinenprogramm für die modifizierte RESTORE- 
Routine finden Sie in diesem Heft. 

Für Dateiverwaltung, Kl-Programme und disketten-orien- 
tierte Adventures ist die RESTORE-Methode jedoch absolut 
ungeeignet. Die Tabelle kann innerhalb von Basic nicht aus¬ 
gebaut werden - und gerade dies ist bei Dateiverwaltung und 
selbstlernenden Kl-Programmen unvermeidlich (schon gut, 
es gibt Basic-Zeilengeneratoren, aber wir wollen uns mit 
effektvolleren Methoden vertraut machen!). 

Eine wesentlich effektvollere Methode besteht darin, die 
DATA-Zeilen durch sequentielle Dateien zu ersetzen. 


Wir ergänzen deshalb Listing 11 nun um ein Steuerpro¬ 
gramm, das D$(1) bis D$(SZ) als sequentielle Datei auf Disk 
ablegt (Listing 12). 

Die Software-Datei ist jetzt unter dem Filenamen »Daten- 
File« als SEQ-File auf Diskette gespeichert. Unter einem 
sequentiellen File versteht man eine Datenkette, die auf Dis¬ 
kette gespeichert ist - also ein String beziehungsweise Ele¬ 
ment nach dem anderen. Eine so gespeicherte Tabelle kann 
ganz einfach wieder in den Computer in ein dimensioniertes 
Feld geladen werden (Listing 13). 

Die hier vorgestellten Beispielprogramme sollen uns 
zunächst genügen. Es gibt noch einige weitere, wesentlich 
bessere Methoden, Dateien und Tabellen als sequentielle 
Files zu speichern. Tatsächlich ist es auch nicht besonders 
sinnvoll, jeden einzelnen Satz einer Tabelle mit mehreren 
Schlüsseln als einfachen String zu speichern. Wie ich Ihnen 
bereits in der Einleitung zum Kurs mitteilte, möchte ich das 
Thema Dateiverwaltung speziell auf die Bereiche Kl und fort¬ 
geschrittene Adventure-Programmierung beziehen. SEQ- 
Files sind auch mit der Datasette möglich. Beim Programmie¬ 
ren von Adventures und Kl sind sie jedoch nur äußerst 
begrenzt sinnvoll einsetzbar. Wie es der Name schon sagt, 
werden sequentielle Dateien kettenförmig gespeichert. Es 
ist somit nicht möglich, einen bestimmten Teil der Datei so mir 
nichts, dir nichts zu verändern beziehungsweise in der Mitte 
der Datei eine Lücke zu schaffen, um nachträglich etwas ein¬ 
zutragen. Zur Bearbeitung muß eine SEQ-Datei immer kom¬ 
plett in den Computer geladen werden. Dann, nach Beendi¬ 
gung der Arbeit, wird sie wieder auf Diskette gespeichert. 
Eine sequentielle Datei läßt sich nur dann effektiv modifizie¬ 
ren, wenn sie so klein (relativ betrachtet) ist, daß sie auf ein¬ 
mal in den Speicher des C 64 paßt. Dadurch ist die maximale 
Kapazität einer solchen Datei sehr eingeschränkt. 

Für k |o inere Dateien sind sequentielle Dateien jedoch emp¬ 
fehlenswert, da sie sehr einfach zu handhaben sind. Für die 
späteren Kl-Programme und Adventures werden SEQ-Files 
nur eine kleine Nebenrolle spielen. Ich möchte daher nicht 
auf alle Möglichkeiten der sequentiellen Datenspeicherung 
eingehen, zumal zu diesem Thema auch genügend geschrie¬ 
ben worden ist. 

Jetzt wird es aber höchste Zeit, einige weitere Experi¬ 
mente zum Sortieren und Suchen an unserer neuen Datei 
durchzuführen. Als Ausgangsprogramm verwenden Sie bitte 
immer Listing 11. Für unsere Beispiele lohnt es sich nicht, die 
Datei jedesmal als SEQ-file laden zu müssen. 

Sortieren mit dem Quicksort 


Wie wir anhand des Demoprogramms zur Suchzeit (Listing 7) 
festgestellt haben, ist unsere erste Suchmethode - Datei 
vom ersten bis zum Zielelement durchsuchen - viel zu lang¬ 
sam, wenn eine große Datei vorliegt, und das gesuchte Ele¬ 
ment ziemlich am Ende der Datei steht. Wir waren uns auch 
einig, daß bessere Suchmethoden nur dann sinnvoll sind, 
wenn die Datei alphabetisch beziehungsweise nach einem 
anderen Kriterium sortiert ist. Besonders deutlich kommen 
die verschiedenen Sortierkriterien anhand einer Personen¬ 
datei zum Vorschein. Wenn ich zum Beispiel wissen will, ob 
eine bestimmte Person in der Datei aufgeführt ist, so muß ich 
die Datei alphabetisch ordnen (Namen), um ein schnelles 
Suchprogramm schreiben zu können. Will ich jedoch wissen, 
wer an einem bestimmten Tag alles Geburtstag hat, so muß 
ich die Datei nach den Geburtstagen sortieren. Das Sortieren 
von Geburtstagen ist schon etwas komplizierter als das Sor¬ 
tieren nach dem Alphabet. 

Beispiel: 

Tobi 21.11.66 
Borgsi 30.05.67 
Olaf 20.03.67 
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Als String lassen sich die Geburtstage nicht so ohne weite¬ 
res sortieren. Ein kleiner Trick hilft jedoch: 

Tobi 661121 
Borgsi 670530 
Olaf 670320 

Die Geburtstage werden durch einfaches »Umdrehen« in 
sechsstellige Zahlen verwandelt. Die höchste Zahl kommt 
jetzt dem jüngsten der drei zu, die niedrigste dem ältesten. 

Jetzt können die »Geburtstage« einfach als Strings mit dem 
Quicksort oder einem anderen Sortieralgorithmus sortiert 
werden. 

Zurück zur Software-Datei. Wie wir bereits festgestellt 
haben, sind verbesserte Suchmethoden nur dann möglich, 
wenn die Datei irgendwie (nach irgendeinem Schlüssel) sor¬ 
tiert ist. Bei unserer Software-Datei bietet sich der 1. Schlüs¬ 
sel - also der Programmname - an. Listing 14 zeigt, wie die 
Datei mit dem Quicksort alphabetisch geordnet wird (1. 
Schlüssel). 

Bitte beachten Sie unbedingt die Änderungen des 
Quicksort-Unterprogramms in den Zeilen 30030, 30050 
und 30060. Diese Zeilen müssen immer dann modifiziert 
werden, wenn nicht ein ganzer String, sondern nur ein Teil¬ 
bereich des Strings als Sortierargument gelten soll. Beim 1. 
Schlüssel unserer Software-Datei sind dies die jeweils ersten 
15 Zeichen vom Gesamtstring. 

Wir stellen uns nun folgende Aufgabe: Nach Eingabe des 
Programmnamens gibt das Programm Art, Preis und Lager¬ 
bestand zu dem Programm aus. 

Eine einfache Lösung wäre es wieder, die ganze Datei nach 
dem Programmnamen zu durchsuchen. Da unsere Pro¬ 
grammnamen jedoch alphabetisch geordnet sind, können wir 
mit einer anderen Suchmethode arbeiten, mit der binären 
Suchmethode. 

Die binäre Suchmethode 


Betrachten wir einmal den geordneten Schlüssel der 
Software-Datei: 

1 DEADLINE 

2 G-BASIC 

3 G0RD0N SAGA 

4 JUMPMAN 

5 SIMONS BASIC 

6 SPACE INVADERS 

7 VIZAWRITE 

8 WORDPRO 

Wir wollen nun das Programm GORDON SAGA suchen, um 
festzustellen, in welchem Satz (Satznummer) es steht. 

Wir setzen zunächst einen Zeiger auf den mittleren Satz 
der Datei. Die Satzanzahl SZ beträgt 8. Der mittlere Satz SA 
errechnet sich als SA=INT(SZ/2). Im ersten Durchgang wird 
der Zeiger also auf 4 gesetzt. 

Nun untersuchen wir, ob unser Suchbegriff GORDON 
SAGA gleich Satz 4, kleiner als Satz 4 oder größer als Satz 
4 ist. Wir kommen zu dem Ergebnis, daß der Suchsatz kleiner 
als Satz 4 ist. Der Suchsatz muß also in der ersten Hälfte der 
Datei stehen (im Bereich Satz 1 - Satz 3). 

Wir halbieren den Restbereich und haben als neue Mitte 
Satz 2. GORDON SAGA ist jedoch größer als Satz 2. Unser 
Suchsatz kann also nur noch im Bereich von Satz 3 - Satz 3 
stehen - also in Satz 3. Damit haben wir ihn gefunden. 

Die binäre Suche besteht also darin, Bereiche nach oben 
beziehungsweise nach unten hin zu halbieren, bis der Such¬ 
satz gefunden ist. Das Schema in Bild 2 macht die binäre 
Suchmethode noch viel deutlicher. SU$ ist der Begriff 
(String), der gesucht werden soll. D$(SA) ist der Inhalt 
(String) des Satzes mit der Nummer SA beziehungsweise des 
SAten Satzes der Datei. 


10 GOSUB 10000:REM DATEI DEFFINIEREN <103> 
20 PRINT"DATEI UNGEORDNET:" <035> 
30 FOR 1=1 TO SZ:PRINT D*(I):NEXT I <120> 
40 GQSUB 30000:REM 1.SCHLUESSEL SORTIEREN <07B> 
50 PRINT"DATEI NACH 1.SCHLUESSEL SORTIERT: 

" <137> 
60 FOR 1=1 TO SZ:PRINT D*(I):NEXT I <150> 
70 END JrMr L ' Aj £ä' <072> 
10000 REM FfiUECHTE-DATEI DEFFINIEREN - 


<026> 

10010 SZ=8 :REM ANZAHL DER SAETZE <038> 
10020 DIM D*(SZ):REM STRING-FELD <163> 
10030 FOR 1=1 TO SZ <073> 
10040 : READ D*(I> <073> 
10050 NEXT I <220> 
10100 DATA" VI ZAWRITEGS.SPACE>01200.0024" <086> 
10105 DATA"WORDPRO<8SPACE>01155.5013" <036> 
10110 DATA"SPACE INVADERS 02 39.0067“ <175> 
10115 DATA“JUMPMAN<BSPACE>02 49.0034" <U1> 
10120 DATA"SIMONS BASIC<3SPACE>03 99.0065" <230> 
10125 DATA"G—BASIC <BSPACE >03140.0045" <186> 
10130 DATA"GORDON SAGA{4SPACE>04 39.0089" <093> 
10135 DATA"DEADLINE{7SPACE>04 99.0034" <132> 
10140 RETURN <036> 
30000 REM QUICKSORT - 


<087> 

30001 DIM LG(100),RG(100):Z=0:LG <1) = 1:RG(1 

>=SZ <177> 

30010 Z=Z+1:IF LG(Z)>=RG < Z)THEN 30120 <166> 

30020 X=LG(Z>:Y=RG(Z) <011> 

30030 VG*=LEFT*(D*(INT((X+Y)/2>),15) <071> 

30040 IF X>Y THEN 30100 <205> 

30050 IF LEFT*(D*(X>,15><VG*THEN X=X+l:GOT 

O 30050 <015> 

30060 IF LEFT*(D*(Y),15)>VG*THEN Y=Y-l:GOT 

O 30060 <034> 

30070 IF X>Y THEN 30100 <235> 

30080 S*=D*(X>:DS(X)=D*(Y>:D*(Y)=S* <130> 

30090 X=X+1:Y=Y—1:GOTO 30040 <099> 

30100 RG(Z+l)=Y:LG(Z+l> =LG(Z):GOSUB 30010 <184> 

30110 LG(Z+l)=X:RG(Z+l)=RG(Z):GOSUB 30010 <104> 

'ääR*?»l Z=Z-1: RETURN <161> 


Listing 14. Sortieren einer Datei 


1110 : IF SU*=MID*(D*(SA>,1,LEN(SU*)>THEN 
PRINT"SU* STEHT IN SATZ ";SA:GOTO 200 
0 <160> 

1120 : IF SU*<MID*(D*(SA),1,LEN(SU*)>THEN 

SA=SA— <2f(N—1)):GOTO 1200 <250> 

2000 REM SU* IST GEFUNDEN - AUSWERTUNG- 


< 163> 

2010 PRINT"<CLR,RVSON>";LEFT*(D*(SA) ,15);" 

tRVOFFV SPRINT <221 > 

2020 PRINT”PROGRAMMART: <201> 

2030 I=VAL(MID*(D*(SA),16,2)) <176> 

2040 IF 1=1 THEN PRINT"TEXTVERARBEITUNG" <235> 
2050 IF 1=2 THEN PRINT"ACTIONSPIEL" <055> 

2060 IF 1=3 THEN PRINT"BASIC—ERWEITERUNG" <246> 

2070 IF 1=4 THEN PRINT"ADVENTURE" <171> 

2080 PRINT"PREIS: ";MID*(D*(SA),1B,6>;" DM 

" < 111 > 

2085 PRINT"BESTAND: ";VAL(RIGHT*(D*(SA),2) 

)j"STUECK" <056> 

2090 GOTO 1000 <254> 


Listing 14b. Ergänzung zu Listing 14. 

Man setzt also jeweils einen Zeiger in die Mitte des Berei¬ 
ches, in dem sich der gesuchte Begriff befinden muß. Am 
Anfang des Suchvorgangs ist dies logischerweise die Mitte 
der gesamten Datei. Danach wird untersucht, ob er Begriff 
gefunden wurde beziehungsweise ob der sich im Bereich 
unterhalb oder überhalb des Zeigers befindet. Stellt man wie 
in unserem Bild beim 1. Vergleich fest, daß sich der gesuchte 
Begriff unterhalb des Zeigers befindet, so wird der neue Zei¬ 
ger auf die Mitte des unteren Bereiches etc. gesetzt. Was 
jedoch, wenn ein Suchbegriff überhaupt nicht in einer Datei 
vorkommt? 

Ganz einfach, man kann bei einer Datei mit bekannter Satz- 
anzahi SZ genau berechnen, wieviele Vergleiche maximal 
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gemacht werden müssen, um einen Begriff zu finden, der in 
der Datei enthalten ist. Die binäre Suchmethode beruht 
schließlich auf dem Halbieren von Bereichen. 

Gehen wir wieder einmal von der Software-Datei aus. Sie 
enthält genau 8 Elemente. Nach dem ersten Suchversuch 
wird die Datei halbiert. Es kommen dann nur noch 4 Elemente 
zur Auswahl, in deren Mitte der zweite Zeiger positioniert ist. 
Nach dem zweiten Versuch kommen nur noch 2 Elemente in 
Frage und spätestens nach dem 4. Versuch schließlich nur 
noch eine. 

Spätestens beim 4. Versuch (Halbierung) muß ein Suchbe¬ 
griff somit in der Software-Datei gefunden werden - andern¬ 
falls kommt er nicht vor. 

Die Formel, mit der sich die maximal nötige Suchvorgangs- 
Anzahl berechnen läßt, lautet so: 

N=INT(LOG(SZ)/LOG(2)) + 1 

Nach N-Versuchen muß ein Begriff also gefunden sein, 
wenn er in einer Datei mit SZ-Sätzen enthalten ist. 

Am besten läßt sich die binäre Suchroutine anhand eines 
entsprechenden Unterprogrammes (Listing 15) erklären. 

Das Unterprogramm setzt folgendes voraus: 

Das Feld, in dem gesucht werden soll, steht in D$(0)- 
D$(SZ), wobei SZ die Nummer des höchsten Satzes bezie¬ 
hungsweise die Anzahl der Sätze darstellt. 

Dokumentation: 

1010 Eingabe des Suchbegriffs SU$. 

1020 Berechnung der maximal nötigen Suchvorgänge: N 
1030 SA, der Zeiger auf die Datei wird zu Beginn des Such¬ 
vorgangs in die Mitte der Datei gesetzt. Warum berechnet 
sich die Mitte nicht einfach mit SA=SZ/2? Ganz einfach: Zum 
Halbieren »der Restbereiche« verwenden wir Potenzen von 
2 (wird gleich erläutert). Probleme würde es geben, wenn 
eine Datei aus einer ungeraden Anzahl von Sätzen bestünde. 
Man könnte dann schlecht halbieren. Eine »ungerade Datei« 
einfach mit einem »Pseudozusatzsatz« zu versehen, würde 
auch nichts bringen - früher oder später kämen beim Halbie¬ 
ren ungerade SA-Positionen zustande - und die darf’s nicht 
geben. Die Formel SA=(2xa N )/2 gewährleistet jedoch, daß 
Nmal halbiert werden kann, wobei die Restbereiche stets aus 
einer geraden Anzahl von Elementen bestehen. 

1040 Nach jedem Suchvorgang (Halbierung) wird die Varia¬ 
ble N um 1 erniedrigt. Ist sie kleiner als O, so kommt der Such¬ 
begriff in der Datei nicht vor. 

1050 - 1100 Halbierungsvorgang 

1060 Prüfen, ob D$(SA) gleich SU$ ist. Wenn ja, so ist der 
Begriff gefunden worden und die Suche wird abgebrochen. 
1070 Wenn SU$ kleiner als D$(SA) ist, so heißt dies, daß sich 
SU$ (falls es vorkommt) nur in dem Bereich über dem Zeiger 
SA befinden kann. Der Zeiger muß also auf die Mitte dieses 
Bereiches gesetzt werden. Das Versetzen geschieht mit der 
Potenzfunktion: SA=SA-(2*at N - 1 >). 

Dadurch, daß N nach jedem Suchbegriff um 1 verkleinert 
wird, werden die Restbereiche und somit die Verschiebungs¬ 
distanz des Zeigers auch immer kleiner. 

1080-1090 Diese Zeilen treten dann in Kraft, wenn SU$ grö¬ 
ßer als D$(SA) ist. Die Verschiebungsformel lautet dann: 
SA=SA+(2*(N-i)), da der Zeiger jetzt in den unteren 
Bereich verschoben werden muß. Um einen Überlauf zu ver¬ 
hindern, ist Zeile 1090 nötig. In Zeile 1030 idealisierten wir 
unsere Datei so, daß nie ungerade Zeigerwerte auftreten kön¬ 
nen. Die Datei wird also größer angenommen, als sie eigent¬ 
lich ist. Das Vergrößern der Datei ist die einzige Möglichkeit 
zum Idealisieren. Würde man sie verkleinern, so gingen Sätze 
verloren beziehungsweise würden beim Suchen außer acht 
gelassen werden. Die Zeile 1080 ruft solange rekursiv auf, 
bis der Zeiger SA sich wieder im erlaubten Bereich von O bis 
SZ befindet - falls er diesen Bereich verlassen hat. Es ist 
erlaubt, den Zeiger außerhalb des erlaubten Bereiches zu 
positionieren; es ist jedoch klar, daß ein Suchbegriff außer¬ 


1 000 

REM BINAERE SUCHROUTINE - 



- 

<046> 

1005 

INPUT SU* : REM SUCHBEGRIFF 

<209> 

1010 

N=INT(LOS(SZ)/LOS(2)>+l 



:REM MAXIMAL-FORMEL 

<137> 

1040 

SA= <2tN)/2:REM MITTE DER GES.DAT 

<071 > 

1050 

N=N-1 :REM 1.ABFRABE 

<0B6> 

1100 

: 

<060> 

1110 

: IF SU*=D*(SA)THEN PRINT"SU* STEHT I 



N SATZ ";SAsEND:REM SU* GEFUNDEN 

<033> 

1120 

s IF SU*<D*(SA)THEN SA=SA— <21(N—1)>:G 



OTO 1200 sREM •-HALBIEREN-' 

<030> 

1125 

: IF SA+(2T<N-1)>>SZ AND N>-1 THEN N= 



N-1:GOTO 1125 :REM * *UEBERLAUF'' 

<147> 

1130 

s SA=S A+ < 21 < N— 1) ) 



:REM •-HALBIEREN'• 

<246> 

1200 

s 

<160> 

1210 

:N=N-1 :REM NAECHST. HALBIEREN 

<149> 

1220 

sIF N<0 THEN PRINT-SU* GIBT'S NICHT! 
IN 1220":END :REM SU* NICHT IN DAT 



EI 

< 159> 

1225 

PRINT"SA=";SA;" N=";N 



:REM UNNOETIG !! 

<036> 

1230 

:GOTO 1100 :REM NAECHST. SUCH-VERS. 

< 123> 


Listing 15. Die binäre Suchmethode 


halb der Datei gefunden werden kann. Auch kann es nur im 
Fall SU$>D$(SA) zu einer Positionierung außerhalb des 
Datenbereiches kommen. 

1110 Nächsten Suchvorgang vorbereiten 

1120 Ist N kleiner als 0, so befindet sich SU$ nicht in der 

Datei. 

1130 kann jederzeit entfernt werden. 

Dies hört sich alles schön und gut an, ich weiß jedoch, daß 
sich viele schwer tun, wenn sie das erste Mal mit binären 
Suchsystemen konfrontiert werden. Ich rate Ihnen deshalb, 
falls Sie Schwierigkeiten haben, sich das obige Programm 
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einmal Schritt für Schritt durchzudenken. Nehmen Sie gege¬ 
benenfalls ein Blatt Papier und eine kleine Datei her und 
schreiben Sie den gesamten Programmablauf (wo sich der 
Zeiger nach jedem Suchvorgang befindet) in Form von einfa¬ 
chen Schemen auf. Hat man es erstmal verstanden, dann ist 
es ganz einfach. 

Bitte ergänzen Sie jetzt Listing 14 mit Listing 15. Außerdem 
sind folgende Änderungen vorzunehmen: 

Zeile 70 löschen. 

Ergänzen beziehungsweise ändern Sie auch die Zeilen, 
wie in Listing 14b angegeben. 

Die binäre Suchmethode ist sehr schnell. Um eine Datei 
von 1000 Sätzen nach einem Begriff zu durchsuchen, sind 
maximal 10 Halbierungen notwendig, um festzustellen, in 
welchem Satz der Begriff steht, beziehungsweise daß er 
nicht vorkommt. 

Erhöhen kann man die Suchgeschwindigkeit noch durch 
Einsatz von index-sequentiellen Dateien, wie wir sie bei Par¬ 
ser 4.0 kennenlernen werden. 

Das Programm, das Sie jetzt im Computer haben, simuliert 
eine einfache Dateiverwaltung für Software. 

Damit haben Sie den ersten Einstieg in die Dateiverwaltung 
auch schon geschafft. Wir können uns nun Dateien auf Disk 
zuwenden, die für die Programmierung von Adventures und 
Kl ein großes Hilfsmittel darstellen. 

Deutscher Zeichensotz 
im Commodore 64 


Bevor ich mich der Programmierung von relativen Dateien 
widme, möchte ich schnell noch dieses Kapitel einfügen. Wer 
professionelle deutsche Text-Adventure schreiben will (und 
das können Sie am Ende dieses Kurses!), sollte keineswegs 
auf einen deutschen Zeichensatz verzichten. 

Auch bei allen anderen Programmen mit deutschen Texten 
macht ein deutscher Zeichensatz einen besseren Eindruck. 
Natürlich gehen bei einer Zeichensatzänderung immer ein 
paar KByte-RAM flöten (der Zeichensatz muß schließlich 
vom ROM ins RAM kopiert werden), aufgrund guter Program¬ 
miertechniken, die sehr platzsparend sind, können wir die¬ 
sen Verlust jedoch getrost verschmerzen. 

Auch bei relativen Dateien bringt ein neuer Zeichensatz 
erhebliche Vorteile, wie wir schon bald sehen werden. 

Zunächst müssen wir festlegen, wo im RAM der neue Zei¬ 
chensatz liegen soll. 

Bild 3 zeigt den Speicherbelegungsplan des C64, wie er 
Ihnen wahrscheinlich bereits von anderen Kursen aus dem 
64’er-Magazin her bekannt ist. Uns interessieren nur der 
linierte Bereich und das Basic-RAM. Im Laufe des Kurses 
werden wir den gesamten linierten RAM-Bereich hernehmen 
(für Maschinenprogramme, Dateien etc.). Den Basic-RAM 


versuche ich weitgehend für Ihre eigenen Ideen und Routi¬ 
nen zur freien Verfügung zu halten. Sie sollten sich nicht wun¬ 
dern, warum bestimmte Routinen (zum Beispiel Zeichensatz) 
in bestimmte Speicherbereiche geschrieben werden, denn 
alle Routinen sollen sich am Ende des Kurses bei vollausgela- 
stetem RAM miteinander vertragen. Grübeln Sie also nicht 
lange nach, wenn ich eine Routine in einen zunächst unge¬ 
eignet anmutenden RAM-Bereich schreibe. 

Unseren deutschen Zeichensatz bringen wir im Bereich 
57344 - 61440 unter. Da der VIC jedoch nur ganze RAM- 
Blöcke von 16 KByte verwalten kann, müssen wir auch den 
Videobereich (Bildschirm) verschieben. Ihn legen wir nach 
52223 - 53248. Bitte beachten Sie, daß hierbei auch die 
Sprite-Pointer (2040 - 2047) nach 53239 - 53246 ver¬ 
schoben werden (Bild 4)1 




Video 


Deutscher 

Zeichensatz 


$A( 

100 $CC00 $D( 

)00 $EC 

300 $F 

300 


Bild 4. Hier bringen wir den deutschen Zeichensatz unter 

Bei dem Listing 16 handelt es sich um einen menüfreundli¬ 
chen Zeichensatzeditor, der speziell für den Kurs abgerichtet 
ist (also für RAM-Bereich 57344-61440). 

Dokumentation zum Listing 16 
Der Zeichensatzeditor ist lediglich ein Utility zum Kurs. Ich 
besc h ' inke mich daher auf das Wesentliche. 

Interessant ist im Prinzip nur das Abändern des Listings 
zum Erstellen für Zeichensätze in andere RAM-Bereiche als 
die Vorgeschlagenen. Ich bin mir jedoch ziemlich sicher, daß 
der Zeichensatz im Bereich von 57344 - 61440 sehr gut 
untergebracht ist, wie ich Ihnen schon bald zeigen werde. 

Um den Editor für andere Bereiche umzuschrauben, müs¬ 
sen lediglich folgende Zeilen abgewandelt werden: 

55 IZ = Startadresse im RAM (ist momentan 57344) 

122 siehe Listing 
124 siehe Listing 
201 VIDEO = 52223 
1030 und 1040 siehe Listing 
2010 siehe Listing 

Es müssen also nur Anfangs- und Endadressen vom ZS- 
Bereich und gegebenenfalls vom Video modifiziert werden. 

Bedienungsanleitung 

Nach dem Programmstart meldet sich das Hauptmenü mit 
drei Auswahlmöglichkeiten: 



$0000 


$0800 


$A000 $C000 $D000 $E000 $FFFF 


$0400 


Bild 3. So sieht die Speicherbelegung des C64 aus 
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CHRS (174) 


CHR$ (176) 


CHR$ (181) 


CHRS (182) 



CHRS (184) 


CHRS (185) 


Bild 5. So sehen die deutschen Zeichen aus 


■■ 


Geänderte Zeichen 

ä = m + 0 ä = 

ö = m + s ö = 

ü = 1] + 0 Ü = 


+ m 
+ m 
+ m 


B = _ 

ii = m 

: =m 

/ =B 


+ 


NEUEN Z.SATZ ERSTELLEN: Durch diese Wahl wird der 
Zeichensatz vom ROM in den RAM-Bereich ab 57344 
kopiert. 

ALTH«' Z.SATZ ÄNDERN: Ein bereits bestehender Zei¬ 
chensatz kann geladen werden, um weiter verändert zu wer¬ 
den. 

DEUTSCHEN Z.SATZ GENERIEREN: Der Editor erstellt 
hier automatisch einen deutschen Zeichensatz, den Sie 
anschließend speichern können. Bild 5 zeigt Ihnen, welche 
Zeichen wie geändert wurden. Ich bin mir sicher, daß Sie sich 
schnell an die neue Tastaturbelegung gewöhnen werden. 
Daß auch Zeichen wie ", und : neu definiert wurden, hat sei¬ 
nen Grund: den erfahren Sie im nächsten Kapitel! 

Nach der Wahl von einem der drei Hauptmenüpunkten 
gelangen Sie ins nächste Menü. 


0 REM ***************************** <012> 

1 REM ZEICHENSATZ-EDITOR (C) 1785 <146> 

2 REM ***************************** <014> 

3 IF 1=1 THEN 100 <221> 

4 VIDE0=52223:REM START BILDSCHIRM <012> 

5 POKE 53280,0:POKE 532B1,0:PRINT"<YELLOW> 

<235> 

10 REM MODIFIZIERTE PEEK-FUNKTION - <054> 

11 FOR 1=704 TO 751: READ X-.POKE I,X:NEXT:P 

DKE 785,192:POKE 7B6,2:REM USR-VEKTOR <009> 

12 DATA 165,20,72,165,21,72,32,247,183,165 

,1,72,165,21,201,208,144,7,201,224 <079> 

13 DATA 176,3,169,49,44,169,52,120,133,1,1 

60,0,177,20,168,104,133,1,88,104,133 <22B> 

14 DATA 21,104,133,20,76,162,179 <191> 

30 REM MENUE- <009> 

31 PRINT"{CLR.WHITE,RVSON > ZEICHENSATZ —EDIT 

OR I{RVOFF>" <037> 

32 PRINT”{DOWN}VON MICHAEL NICKLES. <006> 

34 PR I NT 11 <3D0WN , 5SPACE, RVSON > N {RVOFF >EUEN 

ZEICHENSATZ ERSTELLEN" <216> 

35 PRINT"{DOWN,5SPACE,RVSONJA{RVOFFJLTEN Z 

EICHENSATZ AENDERN{2SPACEJ” <076> 

36 PRINT“{DOWN,5SPACE,RVSONJD{RVOFFJEUTSCH 

EN ZEICHENSATZ 6ENERIEREN{2SPACE>" <243> 

37 GET 15: IF I«>"N”AND I5<>"A"AND I*<>"D" 

THEN 37 <009> 


38 IF I*="N"THEN 50 <171> 

39 IF I5="D"THEN 50 <167> 

40 REM DEUTSCHEN ZEICHENSATZ LADEN - <178> 

41 INPUT"{3D0WNJFILENAME I* <206> 

42 IF IOl THEN 1 = 11 LOAD I*,8,l <074> 

44 POKE 648,204:POKE 53272,56:POKE 56576,0 

:PRINT"{CLRJ" <069> 

50 REM Z.S. VOM ROM INS RAM AB 57344 - <247> 

51 PRINT"{DOWNJBITTE WARTEN!" <0B0> 

53 POKE 56334,PEEK<56334)AND 254:POKE 1,PE 

EK <1)AND 251: REM INTERRUPT AUS <161> 

55 IZ=57344 <001> 

60 FOR 1=53248 TO 57344 <033> 

62 :POKE IZ,PEEK(I) <139> 

64 :IZ=IZ+l <248> 

66 NEXT I <150> 

70 POKE 1 ,PEEK <1> OR 4:POKE 56334,PEEK(5633 

4)OR 1 <223> 

80 IF I*="D"THEN 3000 <209> 

100 REM START- <226> 

105 POKE 64B,204-.POKE 53272,56: POKE 56576, 

0:PRINT"{CLRjWHITEJ“; <169> 

106 PRINT"BITTE WAEHLEN SIE: <223> 


110 PRINT"{2DOWN,5SPACEJGROSS-GRAFIK Z.SAT 

Listing 16. Verzichten Sie in deutschen Adventures nicht auf 
den deutschen Zeichensatz 
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Z<2SPACE,RVS0N>1<RV0FF>" <021> 

115 PRINT"(DOWN,5SPACEJGROSS-KLEIN(2SPACE> 

Z.SATZ <2SPACE,RVSDN >2 tRVDFF>" < 026> 

116 PRINT"<DDWN,5SPACE>Z.SATZ ABSPEICHERN< 

3SPACE,RVSON >3 €RVOFF > <210> 

118 PRINT"<D0WN,5SPACE>CRAZY CHARACTERS<5S 

PACE v RVSON >4 CRVOFF > <0B0> 

120 GET ISsIF I*<>"l"AND I*<>"2”AND I»<>"3 

"AND I$<>"4"THEN 120 <091> 

122 IF IS="1"THEN AN=57344 :PRINT CHR 

* (142) <132> 

124 IF I*="2"THEN AN=57344+256*8:PRINT CHR 

*(14) <051> 

125 IF I*="3"THEN 1000 <109> 

127 IF I*="-4"THEN 2000 <244> 

130 PRINT"<2D0WN>WELCHES ZEICHEN WOLLEN SI 

E AENDERN?" <0B2> 

131 PRINT"ANGABE BITTE IM BILDSCHIRMCODE! <190> 

132 INPUT"<DOWN>ZEICHEN "sNR:Z=NR <234> 

200 REM MASKE AUSGEBEN- <013> 

201 VIDEO-52223 <169> 

205 PRINT"<CLRJZEICHENs "sPOKE VI+10,Z <144> 

210 Z=AN+Z*8 <160> 

229 PRINT"{2D0WN,4SPACE > " ; <180> 

230 FOR I1=Z TO Z+7 <01B> 

235 PRINT II;"<3SPACE> “; <233> 

240 :B=USR(I1> <060> 

245 s FOR 12=7 TO 0 STEP-1 <036> 

250 : IF B AND 2TI2 THEN PRINT"*“;sGOTO 

2&0 <166> 

255 s PRINT"."; <191> 

260 : NEXT 12 <220> 

270 :PRINT"(3SPACE>"B:PRINT"C4SPACE>"; <021> 

275 NEXT II <124> 

300 REM EDITOR-PROGRAMM- <045> 

310 XX=VI+135:XP=PEEK(XX>:POKE XX,32 <130> 

330 JOY=56320sREM PORT 2 <032> 

331 T A=203 s T1=653 <206> 

335 IF PEEK(JOY)=127 AND PEEK(TA)=64 THEN 

W=0 <140> 

340 IF PEEK(JOY)=126 OR PEEK(TA)=7 AND PEE 

K(TI)=1 THEN W=—40 <054> 

342 IF PEEK(JOY)=125 OR PEEK(TA)=7 AND PEE 

K(TI)=0 THEN W=+40 <«23> 

344 IF PEEK(JOY)=123 OR PEEK(TA)=2 AND PEE 

K(TI)=1 THEN W=—1 <244> 

346 IF PEEK(JOY)=119 OR PEEK(TA>=2 AND PEE 

K(T1>=0 THEN W=+l <061> 

350 IF PEEK(JOY)>111 AND PEEK(TA)060 THEN 

360 <201> 

352 IF XP=46 THEN XP=42:GOTO 355 <078> 

354 IF XP=42 THEN XP=46:GOTO 355 <206> 

355 POKE XX,XP:IF PEEK(JOY)<=111 OR PEEK(T 

A)=60 THEN 355 <204> 

360 :IF PEEK(TA)=1 THEN POKE XX,XP:GOTO 40 

0 <084> 

370 POKE XX,XP <220> 

375 XX=XX+W:IF PEEK(XX>=32 THEN XX-XX-W <020> 
380 XP=PEEK(XX):POKE XX,32 <206> 

390 GOTO 330 <128> 

400 REM NEUES ZEICHEN BERECHNEN <026> 

405 PRINT"{DOWN>BITTE WARTEN!" <180> 

410 XX=VI + 135 <198> 

430 FOR I1=XX TO XX+7*40 STEP 40 <179> 

435 :IM=0rIZ=7 <1B6> 

445 s FOR 12=11 TO 11+7 <149> 

450 s IF RV-0 THEN IF PEEK(12)-42 THEN I 

M=IM+2tIZ <155> 

451 : IF RV-1 THEN IF PEEK(12)=46 THEN I 

M—IM+2TIZ <036> 

455 I IZ-IZ-1 <130> 

460 5 NEXT 12 <164> 

470 sPOKE Z,IM: Z-Z+l <248> 

475 NEXT II <068> 

476 IF RV=1 THEN RV=0:GOTO 100 <041> 

479 IF NR>127 THEN 100 <015> 

480 PRINT"REVERS-AENDERUNG ERWUENSCHT? (J/ 

N) <210> 

482 GET I*:IF I*<>"J"AND I*<>"N"THEN 482 <197> 

484 IF I*="N"THEN 100 <094> 

485 Z—AN+(NR+128)*8:RV=1:GOTO 400 <013> 

490 GOTO 100 <164> 

1000 REM Z. SATZ ABSPEICHERN- <196> 

1000 REM SPEICHERN AUF DISK- <092> 

1005 PRINT"<CLR,RVSON>Z£ICHENSATZ AUF DISK 

SPEICHERN{RVOFF> " : POKE 198,0 <17B> 

1006 INPUT"<2D0WN >FILENAME";I* < 206 > 
1010 PRINT"<DOWN>BITTE DISKETTE EINLEGEN! <153> 


1020 PR I NT " ICRfZTURN 3 * 's POKE 198,0:WAIT 198,1 <000> 


1030 AA-57344 <240> 
1040 EA=6l439 <051 > 
1050 OPEN i„Q r l i»,'i <227> 
1060 HB-INTCAK/OTWsLB=AA-HB* 256 <006> 
1070 PRINT#4,CHR*(LB)jCHR*(HB); <179> 
1080 FOR I=RA, T^l EA |;, <076> 
1090 :PRINT#1,CHR*(USR(I>>; <001> 
1100 NEXT I <168> 
1110 CLOSE 1 <105> 
1120 PRINT"<3D0WN>*** FERTIG ***“:RUN <251> 

2000 REM CRAZY CHARACTERS- <203> 

2010 FOR 1=57344 TO 61439 <079> 
2020 sX-USR(I)sM=0 <213> 
2030 : FOR 11=0 TO 7 <128> 
2040 : IF X AND 2tll THEN M=M+2t(7-Il> <044> 
2050 s NEXT II <200> 
2060 sPOKE I,M <044> 
2070 sNEXT I <1B2> 
2080 GOTO 100 <099> 


3000 REM DEUTSCHEN ZEICHENSATZ AUTOMATISCH 
GENERIEREN - 

<243> 

3010 DATA 60264,102,24,60,102,126,102,102, 


0 :REM GROSSES AE <124> 

3015 DATA 60336,102,60,102,102,102,102,60, 

0 :REM GROSSES OE <143> 

3020 DATA 60328,102,0,102,102,102,102,60,0 

:REM GROSSES UE <202> 

3025 DATA 60288,102,0,60,6,62,102,62,0 

:REM KLEINES AE <091> 

3030 DATA 60360,0,102,0,60,102,102,60,0 

:REM KLEINES OE <06B> 

3035 DATA 60352,0,102,0,102,102,102,62,0 

:REM KLEINES UE <04B> 

3040 DATA 60272,60,102,102,108,110,102,108 

,96:REM SCHARFES S <124> 

3045 DATA 59392,102,102,102,0,0,0,0,0 

:REM ANFUEHRUNGSZEICHEN <042> 

3050 DATA 59640,0,0,0,0,0,24,24,48 

:REM KOMMA <006> 

3055 DATA 59632,0,0,24,0,0,24,0,0 

:REM DOPPELPUNKT <218> 

30S®* DATA—1 < 148> 

3100 READ X:IF X=-l THEN 100 <212> 

3110 FOR I=X TO X+7 <049> 

3120 s READ AsPOKE I,A sREM NORMAL <066> 

3130 s POKE 1+2048,AsREM REVERS <110> 

3140 NEXT I <176> 

3150 GOTO 3100 <074> 


Listing 16. Ein einfacher Zeichensatzeditor 


Programm : rueckwaerts c400 c4bb 


Programm : rueckwaerts c400 c4bb 


c400 

s 

a9 

cO 

8d 

88 

02 

20 

44 

e5 

7c 

c408 

s 

a2 

15 

aO 

c4 

78 

8e 

14 

03 

48 

c410 

■ 

8c 

15 

03 

58 

60 

a2 

00 

aO 

4f 

c418 

• 

27 

bd 

00 

cO 

99 

00 

cc 

bd 

7e 

c420 

■ 

• 

28 

cO 

99 

28 

cc 

bd 

50 

cO 

91 

c428 

■ 

99 

50 

cc 

bd 

78 

cO 

99 

78 

b9 

c430 

• 

cc 

bd 

aO 

cO 

99 

aO 

cc 

bd 

68 

c438 

■ 

■ 

c8 

cO 

99 

c8 

cc 

bd 

fO 

cO 

eO 

c440 

■ 

99 

fO 

cc 

bd 

18 

cl 

99 

18 

62 

c448 

■ 

• 

cd 

bd 

40 

cl 

99 

40 

cd 

bd 

8a 

c450 

■ 

68 

cl 

99 

68 

cd 

bd 

90 

cl 

9d 

C458 

■ 

99 

90 

cd 

bd 

b8 

cl 

99 

b8 

d6 

c460 

: 

cd 

bd 

eO 

cl 

99 

eO 

cd 

bd 

cf 

C468 

• 

08 

c2 

99 

08 

ce 

bd 

30 

c2 

5a 

c470 

■ 

■ 

99 

30 

ce 

bd 

58 

c2 

99 

58 

3f 

c478 

• 

■ 

ce 

bd 

80 

c2 

99 

80 

ce 

bd 

f 2 

c480 

■ 

■ 

a8 

c2 

99 

aB 

ce 

bd 

dO 

c2 

a8 

c488 

: 

99 

dO 

ce 

bd 

f 8 

c2 

99 

f 8 

f 3 

c490 

• 

ce 

bd 

20 

c3 

99 

20 

cf 

bd 

13 

c498 

• 

48 

c3 

99 

48 

cf 

bd 

70 

c3 

65 

c4a0 

: 

99 

70 

cf 

bd 

98 

c3 

99 

98 

5c 

c4a8 

• 

cf 

bd 

cO 

c3 

99 

cO 

cf 

e8 

a-f 

c4b0 

• 

88 

eO 

28 

fO 

03 

4c 

19 

c4 

51 

c4b8 

• 

4c 

31 

ea 

00 

00 

00 

00 

OO 

58 


Listing 17. Erster Teil des Überraschungs-Programms 
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Sie haben nun folgende Möglichkeiten: 

1: GROSS-GRAFIK Z.SATZ: Dies müssen Sie wählen, wenn 

Sie ein Zeichen des GROSS/ 
GRAFIK-Zeichensatzes ändern 
wollen. 

2: GROSS-KLEIN Z.SATZ: Wie oben, jedoch GROSS/ 

KLEIN-Zeichensatz. 

Nach Wahl von Punkt 1 oder 2 müssen Sie den Bildschirm¬ 
code des Zeichens angeben, das Sie ändern wollen (Tabelle 
siehe C64-Handbuch). Nun kann das Zeichen mittels Joy¬ 
stick oder Cursor-Tasten + SPACE editiert werden. Sind Sie 
mit der Änderung fertig, so muß die RETURN-Taste gedrückt 
werden. Sie werden dann gefragt, ob auch das entspre¬ 
chende Revers-Zeichen geändert werden soll. Dann gelan¬ 
gen Sie wieder zurück ins Menü. 

3: Z.SATZ Speichern: Der neue Zeichensatz wird auf 

Disk gespeichert. 

4: Crazy Characters: Eine Spezialfunktion des Edi¬ 

tors (benötigt viel Rechen¬ 
zeit!). Speichern Sie den mit 
Crazy-Characters erzeugten 
Zeichensatz einmal unter dem 
Filenamen »CRAZY« ab. Wenn 
Sie nun das Listing17 und 18 
eingeben und starten, werden 
Sie schnell verstehen, warum 
ein Spiegel zum unentbehrli¬ 
chen Programmierhilfsmittel 
werden kann! 

Bitte erzeugen Sie nun mittels dem Menüpunkt »DEUT¬ 
SCHEN Z.SATZ GENERIEREN« einen deutschen Zeichen¬ 
satz und speichern Sie diesen unter dem Filenamen 
»D.Z.SATZ« auf Disk - wir werden ihn später benötigen! 

Laden des Zeichensatzes 

So wird der deutsche Zeichensatz innerhalb von Basic- 
Programmen geladen; 

10 IFI=0THENI=1:L0AD"D.Z.SATZ",8,1 
20 P0KE648,204:P0KE53272,56:P0KE56576,0 
30 END 

Ist ein neuer Zeichensatz aktiviert und ein Programm wird 
mittels RUN/STOP + RESTORE unterbrochen, so stürzt das 
Programm ab, der Cursor ist verschwunden. Der Cursor ist 
allerdings noch da - Sie können ihn momentan nur nicht 
sehen! Geben Sie nun bitte »blind« folgendes im Direktmodus 
ein: 

POKE 648,204 (RETURN) 

P0KE 53272,56 (RETURN) 

POKE 56576,0 (RETURN) 

Der Cursor ist wieder da! Am besten, Sie schreiben sich 
diese POKEs gleich auf einen Aufkleber und bringen diesen 
am C64 an. 

Relative Dateien auf der 1541 


Um es gleich zu sagen: Dies ist KEIN Kurs für Disketten¬ 
laufwerke. Ich werde in diesem Kapitel nicht erklären, wie 
das Floppy-Laufwerk 1541 seine Daten speichert, wie es in 
Ihrem RAM/ROM aussieht oder gar wie man den Schreib- 
Lesekopf im 4 / 4 -Takt hin- und herschlagen läßt (als 4. Musik¬ 
stimme, wie es bei einigen verrückten Programmen schon 
vorgekommen sein soll). Es geht mir in diesem Kapitel nur 
darum, daß Sie lernen, spielend leicht mit relativen Dateien 
umzugehen. Durch den Umgang mit solchen Dateien eröff¬ 
nen sich völlig neue Programmiermöglichkeiten. Wer erst ein¬ 
mal mit relativen Dateien gearbeitet hat, wird schon bald nicht 
mehr auf sie verzichten wollen. In der Tat, erst durch relative 
Dateien ist es möglich, die Speicherkapazität der 1541 voll 
und ganz auszureizen. Im Bedienungshandbuch für das Dis¬ 


kettenlaufwerk wird kaum auf relative Dateien eingegangen. 
Auch die großen Bücher über Floppy-Laufwerke geben nicht 
alle Tips und Tricks zum Umgang mit relativen Dateien preis, 
sondern handeln alles ganz simpel und logisch ab. Der Anfän¬ 
ger schaut jedoch spätestens dann dumm aus der Wäsche 
(auch mir ging dies anfangs so), wenn ein FILE DATA ERROR 
auftaucht oder Satzteile in einer relativen Datei beim Einlesen 
plötzlich nicht mehr auftauchen. Im Prinzip ist der Umgang mit 
relativen Dateien jedoch sehr einfach, wenn man erst mal 
durchgeblickt hat; es gibt nur sehr wenige Kommandos, die 
nötig sind, um mit relativen Dateien umzugehen: positionie¬ 
ren, lesen und schreiben. 

Was ist eine relative Datei? 

Am ehesten kann man eine relative Datei mit einem dimen¬ 
sionierten Stringfeld auf Disk vergleichen. Ein Stringfeld im 
Computer vom Format X$(1)-X$(N) entspricht in etwa einer 
relativen Datei mit N-Sätzen. Genauso wie ein Stringfeld erst 
einmal mittels DIM definiert werden muß, muß eine relative 
Datei erst einmal auf Disk angelegt werden, bevor man mit ihr 
arbeiten kann. 

Anlegen einer relativen Datei 


Beim Öffnen einer relativen Datei kommt es lediglich auf die 
Angabe von drei Parametern an: Dateiname, Satzlänge und 
Satzanzahl der Datei. Listing 19 zeigt, wie eine relative Datei 
eröffnet wird. 

Und so geht das vor sich: 

20 - 40 Festlegen der 3 Parameter 
50 Die Satzanzahl SZ wird in Lower und Higher Byte 
unterteilt. 

60 Öffnen des Floppy-Befehlskanals 

70 Initialisieren der Disk. Dies empfiehlt sich immer 
dann, wenn eine neue Disk eingelegt beziehungs¬ 
weise eine Seite gewechselt wird. 

80 Eine relative Datei mit Namen FS und der Satzlänge 

SL wird geöffnet. 

90 Der relative Datei-Zeiger wird auf den höchsten 
Satz der Datei positioniert. 

100 In den letzten beziehungsweise höchsten Satz der 
Datei wird CHR$(255) geschrieben. 

110 Floppy-Datenkanal und relative Datei werden ge¬ 

schlossen. 


10 

REM CRAZY-LOADER 


<125> 

30 

IF 

12=0 

THEN 

12=1s LOAD 

•CRAZY",8,1 

<047> 

40 

IF 

12=1 

THEN 

12=2:POKE 

648,204:POKE 532 



72, 

56sPOKE 56576,0 


<0B2> 

60 

IF 

11=0 

THEN 

I1=1sLOAD 

•RUECKWAERTS",8,1 

<084> 

70 

IF 

11 = 1 

THEN 

11=2:SYS 50176:SYS 64764 

<100> 


Listing 18. Zweiter Teil des Überraschungs-Programms 


10 REM EROEFFNEN EINER REL.DATEI - 

- <197> 

20 F*="TEST" sREM DATEINAME <0B8> 

30 SL=40 :REM SATZLAENGE <14B> 

40 SZ=50 :REM SATZANZAHL <172> 

50 HB=INT(SZ/255)sLB=SZ-HB*255 <042> 

60 OPEN 15,8,15 sREM FLOPPYKANAL OEFFNE 

N <158> 

70 PRINT#15,"10" :REM INITIALISIEREN <229> 

80 OPEN 1,B,3,F*+",L,"+CHR*<SL> 

:REM DATEI OEFFNEN <246> 

90 PRINT#15,"P";CHRS(3);CHR*(LB>;CHRS(HB); 

CHR* <1) <105> 

100 PRINT#1,CHR*(255) <111> 

110 CLOSE 1:CLOSE 15 :REM KANAELE SCHLIESS 

EN <096> 


Listing 19. Öffnen einer relativen Datei 
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Nach dem Programmstart kann es eine Weile dauern - dies 
hängt natürlich von der Größe der Datei ab. Am Ende blinkt 
die rote LED des Diskettenlaufwerks. Dies zeigt einen Fehler 
Nr. 50 - »RECORD NOT PRESENT« an. Das Auftauchen die¬ 
ses Fehlers nach dem Anlegen einer relativen Datei (unmittel¬ 
bar danach) ist okay. Sie brauchen sich darum keine Sorgen 
zu machen. 

Sie haben bestimmt schon entdeckt, worin sich relative 
Dateien von dimensionierten Stringfeldern im Speicher 
unterscheiden: Die Satzlänge, also die maximale Zeichenan¬ 
zahl, die ein String haben darf, muß genau festgelegt sein. Bei 
dimensionierten Stringfeldern kann jeder String bis zu 255 
Zeichen lang s*in. Dies geht natürlich auch bei relativen 
Dateien, wenn man als maximale Satzlänge SL den Wert 255 
angibt, biss ist jedoch nur selten empfehlenswert, denn: Je 
kürzer beziehungsweise kleiner die maximal erlaubte Satz¬ 
länge SL ist, umso mehr Sätze lassen sich auf einer Disk- 
Seite unterbringen. 

Man sollte sich also am Anfang genau überlegen, wie groß 
jeder Satz maximal sein muß. Bei der Software-Datei hätte 
man sich schließlich für die Satzlänge SL=25 entschieden. 
Man muß auch von Anfang an wissen, wieviele Sätze man 
benötigt. Dies stimmt nicht ganz, denn man kann relative 
Dateien prinzipiell auch offen lassen - indem man beim Anle¬ 
gen der Datei auf den letztmöglichen Satz positioniert und in 
ihn den Wert 255 schreibt. Davon ist jedoch abzuraten, da 
offene relative Dateien viel längere Zugriffszeiten erfordern - 
im Programmablauf also viel mehr Zeit kosten. 

Seien Sie beim Anlegen der Dateien stets großzügig. Hat 
man eine Datei fertig bearbeitet, so kann man leicht eine neue 
Datei eröffnen, deren Satzlänge und Satzgröße nur so groß 
ist wie erforderlich. Dann müssen nur noch die Daten aus der 
ersten Datei in diese Datei übertragen werden. Dies geht 
ganz einfach mit dem Editor, den Sie in diesem Kapitel noch 
finden werden. 


Lesen/Beschreiben einer relativen Datei 


Bevor man eine relative Datei beschreiben kann, muß natür¬ 
lich erst einmal eine vorhanden sein. Bitte legen Sie eine 
leere Disk beziehungsweise Disk mit mindestens 10 freien 
Blöcken ins Laufwerk und starten Sie dann Listing 19 mittels 
RUN. Es wird sodann (bitte etwas Geduld) eine relative Datei 
mit dem Filenamen »TEST« und 50 Sätzen mit einer Länge von 
je 40 Zeichen angelegt. 

Will man auf beziehungsweise von einer relativen Datei 
schreiben oder lesen, so sind folgende Punkte notwendig: 
Positionieren, Lesen und Schreiben. 

Am deutlichsten wird die, wenn man relative Dateien einmal 
mit Stringfeldern innerhalb von Basic (X$(1)-X$(N)) ver¬ 
gleicht. 

Ein Stringfeld innerhalb von Basic wird einfach mittels 

DIM X$(N) 

angelegt, wobei N für die Anzahl der Sätze steht. Jeder 
Satz darf maximal 255 Zeichen umfassen. 

Eine relative Datei hingegen muß erst etwas umständlicher 
angelegt werden. Wie beim Stringfeld muß auch hierbei die 
Anzahl der Sätze und außerdem auch noch die maximale 
Länge jedes Satzes angegeben werden. 

Will man einen Satz SA von einem Stringfeld lesen bezie¬ 
hungsweise wissen, was im SAten Satz steht, so geht man 
ganz einfach so vor: 

PRINT X$(SA) 

Bei relativen Dateien geht dies nicht so einfach. Hier muß 
erst auf den gewünschten Satz SA positioniert werden, bevor 
er gelesen werden kann. Also: 

Positioniere Zeiger auf Satz SA. Lese Satz SA. 


Analog verhält es sich natürlich mit dem Schreiben. Es bie¬ 
tet sich an, die Routinen Schreiben, Lesen und Positionieren 
als Unterprogramme zu gestalten (Listing 20). 

Wie funktionieren die drei Unterprogramme? 

Mittels GOSUB 9000 wird der Zeiger auf den Satz SA der 
relativen Datei positioniert. Die Syntax zum Positionieren des 
Zeigers ab zum Beispiel Satz 23 einer relativen Datei würde 
so lauten: 

SA=23: GOSUB 9000 

9010 Hier wird SA in High- und Lowbyte zerlegt. Es ist also 

möglich, relative Dateien mit bis zu 65000 Sätzen 
(Satzlänge entsprechend klein) anzulegen. 

9020 Uber den Floppy-Befehlskanal wird der Positionier¬ 
befehl der Syntax 

PRINT # 15, "P CHR$(Kanal);CHR$(LOWBYTE);CHR$ 
(HIGHBYTE) ;CHR$(Zeichen) 

dem Floppy-Laufwerk mitgeteilt. »Zeichen« gibt an, auf wel¬ 
ches beziehungsweise wievieltes Zeichen im Satz positio¬ 
niert werden soll. Will man den ganzen Satz einiesen (was 
meist der Fall ist), so muß man auf das erste Satzzeichen posi¬ 
tionieren, also CHR$(1). Danach wird der Fehlerkanal abge¬ 
fragt mittels 
INPUT# 15, A 

um festzustellen, ob der Satz SA überhaupt vorhanden ist. 
Nimmt A den Wert 50 an, so bedeutet dies einen RECORD 
NOT PRESENT ERROR. Dies ist zum Beispiel dann der Fall, 
wenn wir bei unserer Test-Datei Satz Nummer 70 lesen woll¬ 
ten (die TEST-Datei besteht nämlich nur aus 50 Sätzen). 

Mittels GOSUB 9100 wird der Inhalt des Satzes in AS ein¬ 
gelesen, auf den der Zeiger gerade deutet. Will man zum Bei¬ 
spiel wissen,was im 20ten Satz einer Datei steht, so gilt die 
folgende Syntax: 

SA=20 : GOSUB 9000 : GOSUB 9100 

Das Lesen geschieht mittels INPUT # 1,A$, wenn der Satz 
bezibl .-ngsweise die maximal erlaubte Satzlänge der relati¬ 
ven Datei 88 Zeichen nicht überschreitet (Größe des INPUT- 
Puffers). Wird mit Sätzen gearbeitet, die größer als 88 Zei¬ 
chen sind, so muß Zeichen für Zeichen mittels GET-Befehl 
eingelesen werden. Das Lesen funktioniert also wie bei 
sequentiellen Dateien und hat auch die gleichen Einschrän¬ 
kungen. 

Mittels GOSUB 9200 wird der String A$ in den Satz SA der 
relativen Datei geschrieben. Will man zum Beispiel »SUPER- 
MIKE« in den 34ten Satz einer relativen Datei schreiben, 
dann geht das so: 


9000 

REM ZEIGER POSITIONIEREN - 



- 

<187> 

9001 

s 

<087> 

9010 

HB7.=SA/256: LB7.=SA-HB7.*256 

<06B> 

9020 

PRINT#15,"P";CHR*(3);CHR*(LBX )5 CHR* <H 



B7.) ;CHR*<11 

<005> 

9030 

INPUT#15,A:IF A=50 THEN PRINT *SAT Z NUM 



MER ZU HOCH" 

<0BB> 

9040 

RETURN 

<20B> 

9100 

REM SATZ LESEN- 



- 

< 178> 

9101 

: 

<187> 

9110 

IF A=50 THEN RETURN 

<082> 

9120 

INPUT#1,A* 

< 116> 

9130 

RETURN 

<042> 

9200 

REM SATZ SCHREIBEN- 



- i 

<105> 

9201 

: 

<031 > 

9210 

IF A=50 THEN RETURN 

< 1B2> 

9220 

PRINT#1,AS 

<042> 

9230 

RETURN 

< 144> 


Listing 20. Wichtige Routinen für relative Dateien 
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A$="SUPERMIKE" : SA=34 : GOSUB 9000 : GOSUB 9200 

Das Listing 21 stellt in Kombination mit den drei Unterpro¬ 
grammen einen ganz einfachen Editor für relative Dateien 
dar. 

Dieser Editor ist zum Arbeiten mit der Test-Datei gedacht. 
Eine Dokumentation ist überflüssig, da alles bereits erklärt 
worden ist. 

Schreiben Sie nun einmal ein paar Sätze in die Test-Datei 
beziehungsweise lesen Sie einmal aus der Test-Datei. Sie 
werden schnell feststellen, daß beim Lesen oder Schreiben 
nicht immer auf Disk zugegriffen wird - das Diskettenlaufwerk 
verhält sich still. Dies hat seinen guten Grund: Die Daten wer¬ 
den nicht augenblicklich auf die Diskette geschrieben, son¬ 
dern zunächst erst in einem festgelegten RAM-Bereich 
innerhalb der 1541 gepuffert. Erst zum Beispiel bei Überlauf 
wird dieser Puffer auf Disk gespeichert. Bei sehr kleinen 
Dateien wie unserer Test-Datei kann es also passieren, daß 
sich alles nur im Puffer abspielt. Deshalb ist es unbedingt not¬ 
wendig, nach Beendigung des gesamten Schreib-Lesevor- 
gangs beziehungsweise dem Arbeiten mit der relativen Datei, 
die Datei zu schließen - dann wird nämlich der Puffer gespei¬ 
chert. Ansonsten kann es passieren, daß Daten verloren 
gehen. Zum Schließen der relativen Datei genügt CLOSE 15. 
Dies kann auch im Direktmodus durchgeführt werden - zum 
Beispiel dann, wenn sie mittels RUN/STOP den Editor abge¬ 
brochen haben. Also nie vergessen: Nach dem Beenden des 
Schreibens auf eine relative Datei IMMER die Datei mittels 
CLOSE 15 (beziehungsweise Floppykanal) schließen. Beim 
Schließen des Befehlskanals des Diskettenlaufwerks wer¬ 
den übrigens auch alle anderen Kanäle geschlossen. Die 
Datei muß also nicht extra geschlossen werden - das Schlie¬ 
ßen des Floppy-Befehlskanals (den man immer mit OPEN 
15,8,15 öffnet und mit CLOSE 15 schließt) reicht vollkommen 
aus. 

C4CR 

Probleme mit relativen Dateien 


Bisher hörte sich alles ganz logisch und einfach an, ich 
möchte es jedoch keinesfalls versäumen, Sie auch auf die 
Probleme aufmerksam zu machen, die beim Arbeiten mit rela¬ 
tiven Dateien immer wieder auftauchen und denen Anfänger 
oft hilflos gegenüberstehen. Besonders traurig ist die Tatsa¬ 
che, daß bei den folgenden Problemen auch die großen 
Bücher zur 1541 in keinster Weise helfen! 


10 OPEN 15,8,15 -.REM FLOPPYKANAL OEFFNEN <108> 
15 PRINT#15,"I0" <114> 
20 OPEN 1,8,3,"TEST": REM RELATIVE DATEI O 

EFFNEN <027> 
100 PRINT"LESEN, SCHREIBEN, ENDE ?" <070> 
110 GET I*:IF I*< >“L"AND I*<>"S"AND I*<>"E 

"THEN 110 <1BB> 
120 IF I*»"L" THEN 1000 <245> 
130 IF I*="S" THEN 2000 <134> 
140 IF I*="E" THEN 3000 <141> 

1000 REM LESEN- <100> 

1010 INPUT "SATZNUMMER "JSA <237> 
1020 GOSUB 9000: REM POSITIONIEREN <244> 
1030 GOSUB 9100: REM LESEN <066> 
1040 PRINT A* : REM ANZEIGEN <164> 
1050 GOTO 100 <21B> 

2000 REM SCHREIBEN- <121> 

2010 INPUT "SATZNUMMER ";SA <221> 
2020 INPUT A* :REM EINGABESATZ <116> 
2030 GOSUB 9000:REM POSITIONIEREN <238> 
2040 GOSUB 9200:REM SCHREIBEN <252> 
2050 GOTO 100 <202> 

3000 REM ENDE- <041 > 

3010 CLOSE 1:CLOSE 15 <12B> 
3020 END <228> 


Besitzer des CI28 haben es beim Umgang mit relativen 
Dateien schon etwas einfacher, denn ihnen steht ein komfor¬ 
tableres Basic als das des C 64 zur Verfügung. Es gibt zwar 
Basic-Erweiterungen für den C 64 (zum Beispiel DISK-Basic 
vom 5. Sonderheft der 64’er), die jedoch viel zu viel Speicher 
in Anspruch nehmen. Wenn man die einzelnen Probleme der 
relativen Dateiprogrammierung jedoch kennt, so kommt man 
auch ganz gut mit den drei Unterprogrammen von Listing 20 
zurecht. Nun zu den Problemen beziehungsweise Schwierig¬ 
keiten: 

Der Dateizeiger 

Was beim Programmieren oft mißachtet wird, ist die Tatsa¬ 
che, daß der Dateizeiger (der auf jeweils einen Satz positio¬ 
niert werden kann) der relativen Datei nicht ruht - er versetzt 
sich nach jedem Zugriff automatisch eine weiter. 

Beispiel: Satz 5 soll geändert werden. 

Zunächst wollen wir wissen, was eigentlich in Satz 5 steht. 
Also: 

SA=5 : GOSUB 9000 : GOSUB 9100 : PRINT A$. 

So schön, so gut, wir wissen jetzt, was in Satz 5 steht. Wo 
steht jedoch jetzt der Zeiger? Er hat sich automatisch um 1 
erhöht. Das heißt, er zeigt jetzt auf Satz 6. Würde man nun 
erneut GOSUB 9100 : PRINT A$ eingeben, so erhielte man 
den Inhalt von Satz 6 und der Zeiger würde auf Satz 7 ver¬ 
schoben werden. 

Wenn wir also den Inhalt von Satz 5 ändern wollen, so 
genügt es NICHT 
A$="neuer Inhalt" : GOSUB 9100 
einzugeben. 

Vielmehr muß es 

A$="neuer Inhalt" : SA=5 : GOSUB 9000 : GOSUB 9200 
lauten. 

Es muß also vor dem Schreiben erst wieder positioniert 
werden. Denken Sie also stets daran, vor dem Schreiben 
immerauf den Satz zu positionieren, in den geschrieben wer¬ 
den soll. 

Eine andere Aufgabe: Die Sätze 30 - 40 einer relativen 
Datei sollen gelesen und mittels PRINT ausgegeben werden. 
Die Lösung ist ganz einfach: 

F0R SA=30 T0 40 
: GOSUB 9000 
: GOSUB 9100 
: PRINT A$ 

NEXT SA 


50000 

REM INPUT—ROUTINE - 

< 137> 

50001 

s 

< 192> 

50002 

SL=40 

<069> 

50005 

SL=40 

<072> 

50020 

PRINT"CDOWN >":BE*="":POKE 19B,0:POKE 
211,0:POKE 214,22:SYS 58732:PRINT"< 



YELLQWJi?" ; 

<156> 

50030 

GET XS:IF PEEK(203>=1 THEN 50120 

<226> 

50040 

IF X*=""THEN 50030 

< 171 > 

50050 

IF LEN(BE*)=0 AND ASC<X*) =20 THEN 5 



0030 

< 14B> 

50060 

I=ASC(X*):IF I<32 OR I>133 AND I<159 



THEN IF 1020 THEN 50030 

< 131 > 

50070 

IF LEN (BE#) “SL AND 1020 THEN 50030 

< 12B> 

50075 

IF X*=" "THEN X*="<RIGHT>" 

<012> 

50080 

BE*=BE*+X* 

<031 > 

50090 

PRINT CHR*(20);X*;"5"; 

< 108> 

50100 

IF 1=20 THEN BE*=LEFT*(BE*,LEN<BE*>- 



2):GOTO 50030 

<101> 

50110 

GOTO 50030 

<001 > 

50120 

PRINT"<LEFT,SPACE >" 

<227> 

50140 

RETURN 

< 157> 


Listing 22. Mit diesem Unterprogramm wird der INPUT-Befehl 
kräftig aufgemöbelt 



Listing 21. Einfacher Relativ-Editor 
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Diese Lösung funktioniert zwar perfekt, es geht jedoch 
auch viel einfacher und schneller: 

SA=30 : GOSUB 9000 
FOR 1=30 TO 40 
: GOSUB 9100 
: PRINT A$ 

NEXT I 

Die zweite Lösung, die vom automatischen Vorrücken des 
Dateizeigers Nutzen zieht, benötigt nur halb soviel Zeit, um 
die 10 Sätze auszugeben wie die erste Lösung. Es lohnt sich 
also stets, das automatische Vorrücken des Zeigers beim 
Programmieren zu beachten. 

Steuerzeichen 

Versuchen Sie einmal mittels dem Editor in den 10. Satz der 
TEST-Datei den Satz beziehungsweise den Inhalt »LOLO, 
PETER UND MIKE GINGEN IN DEN WALD« zu schreiben. Sie 
werden schnell merken, daß dies nicht geht, da die INPUT- 
Routine des C64 keine Kommas zuläßt - es kommt ein 
EXTRA IGNORED. Hier hilft nur eine verbesserte INPUT- 
Routine, die das Listing 22 darstellt: 

Die Routine wird einfach mittels GOSUB 50000 aufgeru¬ 
fen. Im String BES steht dann der Eingabesatz. Interessant 
im Listing ist lediglich Zeile 50020. 

Mittels 

P0KE 211,SPALTE:P0KE 214,ZEILE:SYS 58732 

kann der Cursor an eine beliebige Stelle des Bildschirms 

positioniert werden. 

In Zeile 50005 muß mittels der Variablen SL festgelegt 
werden, wie groß die maximale Länge des Eingabestrings 
sein darf. 

Erweitern Sie bitte den Editor (Listing 21) um Listing 22. 

Außerdem muß noch Zeile 2020 so geändert werden, daß 
die neue INPUT-Routine aufgerufen wird: 

2020 GOSUB 50000 : A$=BE$ 

Jetzt können Sie »LOLO, PETER UND MIKE IN DEN WALD« 
in Satz 10 schreiben. Enttäuschung wird jedoch breit, wenn 
Sie anschließend Satz 10 wieder lesen wollen. 

Sie erhalten beim Lesen nur »LOLO«. Alles, was nach dem 
Komma steht, einschließlich dem Komma ist verschwunden. 
Das Komma läßt sich innerhalb relativer Dateien also nicht so 
einfach verwenden, wie wir es gerne hätten. Wir können 
jedoch auch nicht auf das Komma verzichten, wenn wir Texte 
schreiben wollen. 

Das gleiche Problem taucht bei Verwendung eines Doppel¬ 
punktes auf. Ganz zu schweigen von den ewigen Problemen 
mit den Gänsefüßchen beziehungsweise Anführungszei¬ 
chen innerhalb von Strings. 

Wie bei den meisten Problemen gibt es allerdings auch hier 
eine einfache Lösung. Der Editor wird einfach um folgende 
Zeile ergänzt: 

2035 A$=CHR$(34)+A$+CHR$(34) 

Bevor A$ abgespeichert wird, wird es also einfach in 
Anführungszeichen gesetzt. Jetzt können alle Sonderzei¬ 
chen verwendet werden. Auch beim Einlesen bereiten die 
beiden Anführungszeichen zu Beginn und am Ende von A$ 
keine Schwierigkeiten - sie tauchen nicht auf. Die Sache hat 
wie immer natürlich ihren Haken: Die maximal erlaubte Satz¬ 
länge beträgt jetzt nicht mehr 40, sondern nur noch 38 Zei¬ 
chen, da die Anführungszeichen zwei Zeichen Platz benöti¬ 
gen. Es wird LOLO, PETER UND MIKE also wieder nicht 
gelingen, endlich in den Wald zu gelangen. Abhilfe würde hier 
ganz einfach das Anlegen einer neuen TEST-Datei mit 42 Zei¬ 
chen Satzlänge schaffen. 

Hier sind jedoch auch Überlegungen dem Tun vorauszu¬ 
stellen. Nehmen wir einmal an, auf einer Diskette wäre Platz 
für maximal 1000 Sätze mit je 40 Zeichen. Da wir jedoch 42 
brauchen, um Strings mit 40 Zeichen darzustellen, würden 
wir nur noch zirka 952 Sätze auf der Diskette unterbringen. 
Unsere jetzige Lösung ist somit zwar einfach, jedoch nicht 


sehr effektiv, da sie viel zu verschwenderisch mit dem Disk- 
Speichervolumen umgeht. 

Sicherlich werden sich einige von Ihnen daran erinnern, 
daß ich im letzten Kapitel behauptete, daß ein deutscher Zei¬ 
chensatz auch enorme Vorteile beim Programmieren von 
relativen Dateien mit sich bringt. Einige haben sich sicherlich 
auch schon gewundert, warum ich neben den deutschen 
Umlauten und »ß« auch noch »"«, »,«, »:« und »;« nochmals 
definiert habe. 

Komma ist nicht gleich Komma 


Wenn wir unseren deutschen Zeichensatz im Computer 
haben, so können wir am Aussehen des Kommas auf dem 
Bildschirm nicht unterscheiden, ob es sich um CHR$(44) 
(dem Originalkomma) oder um CHR$(95) (Pfeil nach links, 
der als Komma umdefiniert wurde) handelt. Unser Computer 
hingegen kann es. 

Geben Sie im Direktmodus eipmal folgendes ein: 

PRINT " " " und drücken R^URN 

Als Antwort erscheint nichts. 

Geben Sie nun 

PRINT""" ein. 

Das mittlere Anführungszeichen müssen Sie allerdings 
durch Drücken der @-Taste eingeben (also das definierte 
Anführungszeichen). 

Diesmal erscheint als Antwort tatsächlich ein Anführungs¬ 
zeichen. Der umdefinierte Zeichensatz machts möglich! 
Erweitern Sie den Editor bitte um folgende Zeilen: 

1 IFI=0THENI=1:LOAD"D.Z.SATZ ", 8,1 

2 P0KE648,204:P0KE53272,56:P0KE56576,0: 

Jetzt wird zu Beginn des Programmes der deutsche Zei¬ 
chensatz (den Sie hoffentlich bereits mit dem Zeicheneditor 
autornejsch erzeugt und als D.Z.SATZ auf Diskette gespei¬ 
chert haben!) geladen. 

Auf Zeile 2035 können wir nun verzichten - wir brauchen 
die Anführungszeichen links und rechts von A$ nicht mehr. 
Das heißt, in einer Datei mit Satzlänge von 40 Zeichen kön¬ 
nen jetzt auch wirklich Sätze mit 40 und nicht mit 38 Zeichen 
untergebracht werden. 

Jetzt können LOLO, PETER UND MIKE auch endlich in den 
Wald gehen (natürlich ohne das Bier zu vergessen). Auf die 
Frage, was LOLO, PETER UND MIKE eigentlich überhaupt im 
Wald wollen beziehungsweise wozu sie das Bier mitgenom¬ 
men haben, werde ich später noch zu sprechen kommen! 

Bei Eingabe von Sätzen dürfen Sie von nun an jedoch nicht 
vergessen, daß die Tastatur in bezug auf Komma, Doppel¬ 
punkt und Anführungszeichen nicht mehr stimmt - wenn Sie 
Texte für relative Dateien schreiben wollen. Anstelle der 
Komma-Taste muß jetzt die Pfeil-Iinks-Taste betätigt werden, 
wenn ein »Pseudokomma« gewünscht wird etc. Sie werden 
sich sicher schnell mit der neuen Tastaturbelegung und dem 
deutschen Zeichensatz anfreunden. 

Durch die enormen Vorteile, die sich uns jetzt bieten, gibt 
es wirklich kein Argument mehr, das gegen die Verwendung 
eines deutschen Zeichensatzes spricht. 

Wenn man sich für die Verwendung des deutschen Zei¬ 
chensatzes anstelle der Lösung mit den beiden Anführungs¬ 
zeichen entscheidet, müssen noch einige Dinge berücksich¬ 
tigt werden: 

SPACEs 

Spaces - Leerräume am Anfang eines Satzes sind nicht 
ohne weiteres möglich. Angenommen, wir schreiben in Satz 
30 den String »HALLO«. Lesen wir den Satz 30 anschlie¬ 
ßend, so erhalten wir die Antwort »HALLO«. Die 10 Spaces 
werden vom Computer zu Beginn des Satzes einfach igno¬ 
riert. Es ist jedoch unsinnig, ein neues Space zu definieren, 
auch wenn dies eine Lösung wäre. Wir verwenden anstelle 
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von Space (CHR$(32) und CHR$(160)) einfach CHR$(29) 
- Cursor nach rechts. Hierfür sorgt Zeile 50075 im Editor. Zu 
beachten ist hierbei, daß, wenn später mit Strings gearbeitet 
werden soll, die aus einer mit dieser Methode geführten rela¬ 
tiven Datei stammen, die man zum Auffinden von Wortzwi¬ 
schenräumen nicht nach » «, sondern nach CHR$(29) 
suchen muß!!! 

Im Gegensatz zu »,«, »:« und »"« kann zum Erzeugen eines 
Spaces jedoch ruhig die Space-Taste gedrückt werden (und 
nicht die Cursor-nach-rechts-Taste). Verwirrt? Probieren Sie 
einfach mal alles am Computer aus, dann wird alles schnell 
klar! 

Leersätze 

Versuchen Sie doch mal einfach, einen Leersatz zu schrei¬ 
ben. Also einfach RETURN drücken. Soll der Satz wieder 
gelesen werden, so steigt der Computer aus - er findet nichts 
mehr und verhält sich still. Es ist nicht möglich, in relative 
Dateien Leersätze " " zu schreiben, die nicht in Anführungs¬ 
zeichen stehen. Da wir uns jedoch für die modifizierte 
Zeichensatz-Lösung entschieden haben, müssen wir erneut 
einen kleinen Kunstgriff machen: Wir schreiben anstelle von 
Leersätzen einfach Sätze, die mit einem Doppelpunkt begin¬ 
nen, denn wir haben ja erfahren, daß alles, was nach einem 
Komma beziehungsweise Doppelpunkt steht, als nichtig 
interpretiert wird. Wir müssen den Editor nur um folgende 
Zeile ergänzen: 

50130 IF BE$="" THEN BE$=":" 

Damit wäre auch schon das Wichtigste über relative 
Dateien gesagt. Wer die Vorzüge dieser Dateien erst einmal 
schätzen gelernt hat, wird sie schon bald für unentbehrlich 
halten. 

Einschränkung 

Das Disketten-Laufwerk 1541 hat nur drei Datenkanäle zur 
Verfügung. Eine relative Datei beansprucht zwei dieser 
Kanäle, das heißt, es kann jeweils nur eine relative Datei 
geöffnet sein. Will man mit zwei oder mehreren relativen 
Dateien arbeiten, so muß beachtet werden, daß immer die 
eine Datei zuerst geschlossen werden muß, wenn man eine 
andere öffnen will. Die Datenübertragung von einer relativen 
Datei zu einer anderen ist somit nur mittels eines Puffers 
möglich. 

Neben einer relativen Datei kann auch noch eine sequen¬ 
tielle Datei geöffnet werden, da diese Dateiart nur einen Kanal 
benötigt. Man kann also maximal drei sequentielle Dateien 
oder eine relative und eine sequentielle gleichzeitig geöffnet 
haben. 

Der Relative-Dateien-Editor 


Im folgenden stelle ich Ihnen meinen Relative-Dateien-Editor 
vor, der uns für den Rest des Kurses als unentbehrliches 
Werkzeug dienen wird. 

Der Editor hat sich im Laufe der Monate allmählich aus dem 
Editor entwickelt. Er ist keineswegs so komfortabel wie ein 
Textverarbeitungssystem, was bei Relative-Datei-Editoren 
auch nie der Fall sein wird beim C 64. Ich habe großen Wert 
auf Anwenderfreundlichkeit des Programmes gelegt: Der 
Editor hat nur eine einzige Menüzeile, von der sich jederzeit 
alle nur erdenklichen Zwischenmenüs aufrufen lassen. Der 
Editor eignet sich hervorragend zum Erstellen von Texten von 
Adventure-Spielen. Er eignet sich auch prima zum Erstellen 
von Wortschätzen - wichtig für Parsertechnik, wie wir bald 
sehen werden. Der Editor arbeitet auch zusammen mit dem 
deutschen Zeichensatz. Am besten ist es, wenn Sie den Edi¬ 
tor gemeinsam mit dem Zeichensatzeditor und dem deut¬ 
schen Zeichensatz auf eine Diskette speichern. Im Laufe des 
Kurses werde ich Ihnen noch weitere Programme für diese 
Utility-Disk vorstellen. Zunächst sollten Sie jedoch erst ein¬ 
mal das Listing 23 zum Editor abtippen: 


0 REM ********************************* <131> 

1 REM * TEXTEDITOR V.II1.4 * <052> 

2 REM * <C> 1985 * <177> 

3 REM * VON MICHAEL NICKLES * <213> 

4 REM ********************************* <135> 

8 IF IM=1 THEN POKE 648,204sPOKE 53272,56s 

POKE 56576,0:PRINT"<CLR>"s GOTO 20 <217> 

9 POKE 53280,0:POKE 53281,0sPRINT"(CLR,WHI 

TE >"; <053> 

10 M7.=300sDIM M*(M7.) ,M<M7.) sREM PUFFER <065> 

15 DIM LG<100),RG(100) sREM Q.SORT <062> 

19 REM ANFANGSMENUE - 

- <094> 

20 PRINT"<CLR,RVSON,8SPACEJTEXTEDITOR - VE 

RSION 3(10SPACE,RVOFF>"; <159> 

21 PRINT" (RVSON,4SPACEXO 1985 VON MICHAE 

L NICKLES(8SPACE,RV0FF>"; <196> 

22 PRINT"(2D0WN,5SPACE>ALTE DATEI EDITIERE 

N (2SPAGE}—(2SPACE >‘A' <080> 

23 PRINT"<5SPACE>NEUE DATEI EROEFFNEN<2SPA 

CE>—(2SPACE >'N‘ <188 > 

24 PRINT“(DOWN,5SPACEID.Z.SATZ LADEN(BSPAC 

E>—(2SPACE> * D' <241> 

25 GET I*:IF PEEK(203)=1 THEN I*="A" <101> 

26 IF I*<>"A"AND I*<>"N"AND I*<>"D"THEN 25 <098> 

27 IF I*="D"THEN IM=1:LOAD"D.Z.SATZ",8,1 <110> 

28 POKE 198,0:INPUT"(2D0WNJDATEINAME(2SPAC 

E>*(3LEFT>";D*:P0KE 198,0 <0B7> 

29 INPUT"SATZLAENGE(2SPACEJ40(4LEFT>";SL:I 
F SL<1 OR SL>254 THEN PRINT"GEHT NICHT 

!"s GOTO 30 <200> 

30 IF I#="A"THEN 40 <024> 

31 INPUT-SATZANZAHL SNsHB=INT(SN/255):LB 

=SN—HB*255 <094> 

32 PRINT"BITTE LEERE DISK EINLEGEN <RETURN 

>":POKE 198,0:WAIT 198,1 <092> 

33 OPEN 15,8,15 <191> 

35 PRINT#15,"10”:OPEN 1,B,3,D*+",L,"+CHR*( 

SL) <237> 

36 PRINT#15,"P";CHR*<3);CHR*(LB);CHR*(HB); 

CHR*(1) <051> 

37 PRINT#1,CHR*(255> <048> 

38 S-l_.SE IsCLOSE 15 <206> 

40 OPEN 15,8,15 <19B> 

41 PRINT#15,"10":OPEN 1,8,3,D*sPRINT <191> 

50 REM ZWISCHENMENUE - 

- <253> 

51 PRINT“(RVSON>S /L/V/O/D/I/Z 

/ F / ENDE(4SPACE,RVOFF> " ; <011> 

52 GET I*:IF IS=""THEN 52 <225> 

53 IF I*="E"THEN PRINT“(CLR>";sGOTO 9900 <034> 

54 IF I*=“V"THEN PRINT"<CLR>"GOTO 6000 <130> 

55 IF I*="0”THEN PRINT"<CLR>“;sGOTO 10000 <251> 

56 IF I*="D"THEN PRINT"<CLR>";sGOTO 7000 <125> 

57 IF I$=“I“THEN PRINT"<CLR>";sGOTO 30000 <254> 


58 IF IS="Z"THEN PRINT"(CLR>";sGOTO 8000 <140> 

59 IF I*="F"THEN PRINT"<CLR>";sGOTO 61000 <137> 

60 IF I*<>"S"AND I*<>"L"THEN 52 <1B3> 

61 INPUT 11 SATZNR" ; SA: IF SA<0 OR SA>63000 TH 

EN 60 <064> 

64 IF I*="L"THEN PRINT"(CLR>";:GOTO 2000 <127> 

66 IF I*="S"THEN PRINT"(CLR>" 5 sMO=lsGOTO 3 

000 <0B9> 

70 GOTO 50 <024> 

2000 REM LESEN - 


<193> 

2001 SPRINT"(CLR,RVSON)";SA;"(LEFT >-";STR* 

(SA+20);"(SPACE,RVOFF>" <14B> 

2005 IA=SA <247> 

2007 FOR SA-IA TO IA+20 <154> 

2010 : GOSUB 9000:GOSUB 9100 <196> 

2025 : IF A=50 THEN SA=IA+21:GOTO 2045 <162> 

2030 : IF LEN(A*)<40 THEN PRINT A* <211> 

2035 s IF LEN(A*)>=40 THEN PRINT A*; <118> 

2045 NEXT:PRINT <127> 

2046 IF A=50 THEN PRINT"SATZNUMMER ZU HOCH 

!" <243> 

2050 GOTO 50 <228> 

3000 REM SCHREIBEN - 


<214> 

3005 PRINT"EINGABESATZ(2SPACE)//“KEINE EIN 

GABE" <236> 

3010 GOSUB 9000 :REM POSITIONIEREN <202> 


Listing 23. Der Relative-Dateien-Editor 
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3020 IF A—50 THEN PRINT"SATZNUMMER ZU HOCH 
•"s GOTO 50 :REM FEHLERKAN 

ALABFR. < 130 > 

3030 GOSUB 50000:A*=BE* 

:REM INPUT-ROUT. <181> 

3040 IF A*="//"THEN MO=0:GOTO 50:REM ENDE <24I> 

3050 GOSUB 9200 :REM A* SCHREIBEN <0B3> 

3060 SA=SA+1 :REM NAECHSTER SATZ <225> 

3070 GOTO 3010 :REM NEXT (LOOP) <190> 

6000 REM VERSETZEN - 


< 154> 

6002 PRINT"(CLR,RVSON>VERSETZEN{RVOFF>" <195> 

6010 PRINT"(DOWNJBITTE GEBEN SIE ANFANG UN 

D ENDE DES BE- REICHES AN, DEN SIE "j <209> 
6015 PRINT"VERSETZEN WOLLEN !" <239> 

6020 POKE 198,0:INPUT"(DOWNJANFANG”;AN <211> 


6021 POKE 198,0:INPUT"ENDE"jEN:IF AN>EN TH 

EN PRINT"DAS IST UNSINN !":GOTO 6020 <113> 

6023 SA=AN:GOSUB 9000:IF A=50 THEN PRINT"A 

NFANGSSATZ EXISTIERT NICHT!":GOTO 50 <229> 

6024 SA=EN:GOSUB 9000:IF A=50 THEN PRINT"E 


NDSATZ ZU HOCH!":GOTO 50 <I52> 

6026 PRINT"<DOWN>QUELLDATEI = ";D* <007> 

6028 POKE 198,0:INPUT-ZIELDATEI ";Z*:IF Z* 

=""THEN Z*=D*:PRINT"(UP,13RIGHT>";D* <09B> 

6029 PRINT"(DOWNJBITTE ANFANG DES NEUEN BE 

REICHS ANGEBENPOKE 198,0:INPUT NB 
»PRINT <193> 

6030 SA=NB:GOSUB 9000:IF A=50 THEN PRINT"N 

EUER ANFANGSSATZ ZU HOCH!”:GOTO 50 <19B> 

6031 SA=NB+EN-AN:GOSUB 9000:IF A=50 THEN P 

RINT"BEREICH ZU GROSS!":GOTO 50 <240> 

6032 PRINT"BITTE WARTEN!" <125> 

6036 SA=AN:IM=0:IF AN=EN THEN PRINT”*** FE 

RTIG ***":POKE 198,0:WAIT 198,l:GOTO 
50 <113> 

6038 GOSUB 9000:GOSUB 9100:IF A=50 THEN 61 

00 <203> 

6040 M*(SA-AN)=A* <219> 

6045 IF SA=EN THEN 6100 <208> 

6050 IF SA-AN=M7.THEN IM=l:GOTO 6100: REM * <10B> 

6060 SA=SA+1:GOTO 6038 <094> 

6100 REM TRANSPORT <068> 

6110 PRINT"BITTE DISK MIT ZIELDATEI EINLEG 

EN !":POKE 19B,0:WAIT 198,1 <204> 

6120 CLOSE 1:PRINT#15,“10":OPEN 1,8,3,Z* <182> 

6200 SA=NB:GOSUB 9000:IF A=50 THEN 50 <222> 

6205 II=EN-AN:IF IM=1 THEN II=MX:REM * <163> 

6215 FOR 1=0 TO II <014> 

6220 A*=M*(I):IF A*=""THEN A*=. <10B> 

6225 GOSUB 9200:REM SCHREIBEN <119> 

6240 SA=SA+1: NEXT I:IF IMO0 THEN 6260 <135> 

6250 PRINT"BITTE DISK 'MIT QUELLDATEI EINLE 

GEN !":POKE 19B,0:WAIT 198,1:G0T0 50 <185> 

6260 AN=AN+MX : NB=NB+MX: PR I NT "BITTE DISK MI 

T QUELLDATEI EINLEGEN !" <248> 

6270 POKE 198,0:WAIT 198,1>CLOSE 1:PRINT#1 

5,"10":OPEN 1,8,3,D*:GOTO 6036:REM * <096> 

7000 REM PRINTER-ROUTINE - 


<065> 

7001 PRINT"<CLR,RVSON JPRINTER-ROUTINE MPS 

801(RVOFFJ <097> 

7002 INPUT"(DOWNJANFANG";AN:INPUT"ENDE";EN 

:IF AN>EN THEN 7000 <176> 

7005 SA=AN:GOSUB 9000:IF A=50 THEN PRINT"A 

NFANGSSATZ EXISTIERT NICHT!":GOTO 50 <195> 

7006 SA=EN:GOSUB 9000:IF A=50 THEN PRINT"E 

NDSATZ ZU HOCH!":GOTO 50 <118> 

7009 AN-AN-1:PRINT"(DOWNJBITTE WAEHLEN SIE. 

0 <DOWN> <025> 

7010 PRINT,"NORMALE AUSGABE ,.l <248> 

7011 PRINT,"D.Z.S. AUSGABE ...2 <165> 

7012 PRINT,"EIGENE ROUTINE ...3 <072> 

7013 GET I*:IF VAL(I*><1 OR VAL(I*>>3 THEN 

7013 <176> 

7014 IF I*=“2"THEN 7100 <044> 

7015 IF I*="3"THEN 7500 <205> 

7020 REM NORMALE AUSGABE- <016> 

7021 OPEN 3,4,7:FOR SA=AN TO EN:GOSUB 9000 

:GOSUB 9100 <049> 

7025 IF A=50 THEN PRINT"SATZNUMMER ZU HOCH 

!":SA=EN+1:GOTO 7045 <175> 

7035 PRINT#3,RIGHT*(»{3SPACE>"+STR* < SA),3) 

;"(4SPACE J "; <0B5> 


O 


7036 FOR 1=1.TO LEN(AS) 

7037 :IF MID*(A*,I,1>="(RIGHTJ"THEN PRINT# 
3," ";:GOTO 7040 
:PRINT#3,MID*(A*,I,1); 

NEXT I:PRINT#3 

NEXT SA:CLOSE 3:PRINT:GOTO 50 
REM D.Z.SATZ AUSGABE - 


7038 
7040 
7045 

7100 

7101 OPEN 3,4,7:FOR SA=AN TO EN:GOSUB 9000 
:GOSUB 9100 


<224> 

< 137> 
<04B> 

< 140> 

< 117> 
<230> 


< 129> 

< 022 > 


7102 IF A=50 THEN SA=EN+1: PR INT "SATZNUMMER 
ZU HOCH!":GOTO 7170 

7110 PRINT#3,RIGHT*«"(4SPACEJ“+STR*(SA),4) 

;"(4SPACEJ"; <161> 

7120 FOR 1=1 TO LEN(A*):IF A*=""THEN 7160 <163> 

7125 IM=ASC(MID*(A*,I,1>) <201> 

7126 IF IM>64 AND IM<91 OR IM>96 AND IM<12 
3 THEN 7160 

IF IM=64 THEN PRINT#3,CHR*(34);:GOTO 
7170 


7130 

7135 

7140 

7145 

7150 

7152 

7154 

7156 

7158 

7159 

7160 
7170 
7175 
7500 
7510 

8000 


8001 

8002 

8005 

8010 

8015 


8017 

8020 


8025 


IM=173 

THEN 

PRINT#3,"flE" 

1 ; :GOTO 

717 

IM-174 

THEN 

PRINT#3,"SS" 

1 5 :GOTO 

717 

IM-176 

THEN 

PRINT#3,"AE" 

1 ;:GOTO 

717 

IM=181 

THEN 

PRINT#3,"ü£" 

1 ;:GOTO 

717 

IM=182 

THEN 

PRINT#3,"flE" 

;:GOTO 

717 

IM=184 

THEN 

PRINT#3,"UE" 

!:GOTO 

717 

IM=185 

THEN 

PRINT#3,"OE" 

;:GOTO 

717 

IM=94 THEN PRINT#3,":"; 

: GOTO 

717 

IM=95 THEN PRINT#3,","5 

: GOTO 

717 


0 
IF 
0 
IF 
0 
IF 
0 
IF 
0 
IF 
0 
IF 
0 
IF 
0 
IF 
0 

PRINT#3,CHR*(IM>; 

NEXT I:PRINT#3,CHR*(13>; 

NEXT SA:CLOSE 3:PRINT:GOTO 50 
REM EIGENE ROUTINE - 


PRINT"{DOWN>SIE HABEN NOCH KEINE EIGE 
'4E PRINTER— {4SPACE>ROUTINE DEFFINIERT 
I":GOTO 50 

REM TEXT ZENTRIEREN - 


I*=”":FOR 1 = 1 TO 10: IS=I*+" {20RIGHT}" 
:NEXT I 
REM SL=27 

REM DIMM*(300):G0T08100 
PRINT"{RVSON > ZENTRIEREN{RVOFF,DOWN J" 
PRINT-BITTE GEBEN SIE ANFANG UND ENDE 
DES(5SPACE>BEREICHES AN, DER ZENTRIE 
RT"; 

PRINT" WERDEN SOLL!" 

INPUT"ANFANG";AN:INPUT"ENDE";EN:IF AN 
>EN THEN 50 

SA=AN:GOSUB 9000:IF A=50 THEN PRINT"A 
NFANGSSATZ EXISTIERT NICHT!":GOTO 50 


<065> 

< 022 > 

< 125> 
<23B> 

< 106> 
<016> 
<145> 
<247> 
< 120 > 
<244> 

< 179> 
<028> 

< 147> 
<249> 
<1B3> 

<032> 

<05B> 

<067> 

<234> 

<009> 

<040> 

< 197> 
<039> 

< 157 > 

< 199> 


8030 SA=EN:GOSUB 9000:IF A=50 THEN PRINT"E 

NDSATZ ZU HOCH!":GOTO 50 <126> 

8040 PRINT"(DOWN>LINKS-RECHTS BUENDIG ZENT 

RIEREN<2SPACE>— '1' <098> 

8045 PRINT"(DOWN>IN DIE MITTE ZENTRIERENd 

0SPACEJ— "2' <045> 

8050 GET II*:IF II*<>"1"AND II*<>"2"THEN 8 

050 <115> 

8060 IF II*="2"THEN 8600 <081> 

8099 REM LINKS-RECHTS BUENDIG- <0B9> 

8100 PRINT"(DOWNJBITTE WARTEN!" <255> 

8105 FOR SA=AN TO EN <207> 

8110 : GOSUB 9000:GOSUB 9100:PRINT A*:PRIN 

T LEN(A*) <043> 

8120 : IF RIGHT*(A*,1)=CHR*(29)THEN A*=LEF 

T*(A*,LEN(A*)—1):GOTO 8120 <192> 

8122 : IF RIGHT*(A*,1)=CHR*(32)THEN A*=LEF 

T*(A*,LEN(A*)—1):GOTO 8122 <128> 

Bl23 : IF RIGHT*(A*,1)=CHR*(160)THEN A*=LE 

FT*(A*,LEN(A*)—1):GOTO 8123 <07B> 

8130 : IF LEN(A*)=SL THEN 8520 <059> 

8200 : LU=SL—LEN(A*):PRINT“LU=”;LU <233> 

8220 : 1= 1: IC=0:REM BEGIN LOOP- <026> 

8222 : <146> 

8230 : IF MID*(A*,I,1)=""OR MID*(A*,I+1, 

1)=""THEN 8530 <222> 
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DATEIVERWALTUNG 


C64 


8231 

: IM=ASCCMID*(A#,I,1>) 

<089> 

10145 

:GOSUB 9000:GOSUB 9100:IF A=50 THEN 


8232 

: IN=ASC(MID#<A#,1+1,1)) 

< 178> 


PR I NT 11 SATZNUMMER ZU HOCH! ": SA=EN+1: G 


B240 

: IF IM< >29 AND IM<>32 AND IMO160 



OTO 1015 

< 187> 


THEN 8500 

<208> 

10146 

:M#<IC)=A# 

<04B> 

B250 

: IF IN=29 OR IN=32 OR IN=160 THEN 


10150 

NEXT SA 

<172> 


8500 

<056> 

101B0 

Z=0:LG <1) = 1:RG(1> =EN-AN+1 

<053> 

8260 

: A#=LEFT*(A*,I)+" "+RIGHT#(A#,LEN 


10190 

GOSUB 10200:GOTO 10400 

<047> 


<A#)-I) 

<164> 

10200 

REM QUICKSORT - 

< 135> 

8261 

: IF MID#(A#,I,1>=" "OR MID#<A#,1,1 


10210 

Z=Z+1:IF LG(Z)>=RG <Z)THEN 10350 

<058> 


) = " {RIGHT >"THEN 1 = 1 + 1:GOTO 8261 

<05B> 

10220 

X=LG(Z):Y=RG < Z) 

<023> 

8265 

: LU=LU—ltIF LU=0 THEN B510 

<02B> 

10230 

VG#=MID#(M#(INT C <X+Y)/2>>,MAC1) ,MB(1 


8266 

: IC-IC+1 

<167> 


>—MA(1)+l) 

<084> 

8270 

: 1=1+1 

< 177> 

10240 

IF X >Y THEN 10330 

<"234> 

8400 

: 

<068> 

10250 

IF MID#(M*(X),MA(1),MB(1)—MA(1)+1)<V 


8500 

i=i+i 

<101> 


G#THEN X=X+1:GOTO 10250 

<069> 

8505 

IF I<LEN<A*)THEN 8230 

< 1B6> 

10260 

IF MID#(M#(Y) ,MA <1),MB(1)—MA(1)+1)>V 


8510 

IF I=LEN <A#)AND LU>0 AND IC<>0 THEN 8 



G#THEN Y=Y-1:GOTO 10260 

<095> 


220 

<035> 

10270 

IF X>Y THEN 10330 

<008> 

8520 

GOSUB 9000:GOSUB 9200 

<006> 

10280 

S#=M*(X>:M#<X)=M#(Y>:M#(Y)=S# 

< 143> 

8530 

NEXT SA 

<076> 

10290 

X=X+1:Y=Y—1:GOTO 10240 

< 116> 

8540 

GOTO 50 

< 112> 

10330 

RG(Z+l)=Y:LG < Z+l)=LG < Z):GOSUB 10210 

<020> 

8600 

REM IN DIE MITTE - 

< 133> 

10340 

LG <Z+1)=X:RG(Z+l> =RG(Z):GOSUB 10210 

< 196> 

8610 

PRINT"{DOWN1BITTE WARTEN!" 

<001 > 

10350 

Z=Z-1:RETURN 

<205> 

8620 

FOR SA=AN TO EN 

<214> < 

10400 

REM ABSPEICHERN 

< 132> 

8630 

:GOSUB 9000:GOSUB 9100 

<212> 

10410 

IC=0:FOR SA=AN TO EN:IC=IC+1 

<253> 

8635 

IF RIGHT#(A#,1> =CHR# <29)THEN A*=LEFT# 


10420 

:GOSUB 9000:A#=M# <IC):GOSUB 9200 

<226> 


< A#,LEN(A*)—1):GOTO 8635 

< 152> 

10430 

NEXT SA 

< 198> 

8636 

IF RIGHT#(A#,1)=CHR#(32)THEN A#=LEFT# 


10500 

GOTO 50 

<040> 


(A#,LEN(A# > — 1):GOTO 8636 

<055> 

20000 

REM KORREKTUR-ROUTINE - 


8637 

IF RIGHT#<A#,1)=CHR*<160)THEN A#=LEFT 






#(A*,LEN(A#>-1):GOTO 8637 

<146> 


— 

<195> 

8640 

:IF LEN<A#)=SL THEN 8680 

< 128> 

20001 

FOR 1=0 TO LEN(BE#):PRINT CHR*(20);: 


8650 

:AS=SL—LEN(A#>: REM ANZAHL SPACES 

<234> 


NEXT I:BE#="" 

<010> 

8660 

:A#=LEFT#(I#,AS/2)+A* 

<247> 

20010 

SA=SA+SC : REM TEXTZEIGER 

< 162> 

8670 

:GOSUB 9000:GOSUB 9200 

<004> 

20015 

IF SA<0 THEN SA=0 : REM SPERRE 

<008 > 

B680 

NEXT SA 

<226> 

20020 

GOSUB 9000 : REM POSITIONIEREN 

< 194> 

8690 

GOTO 50 

<006> 

20025 

IF A=50 THEN SA=SA-SC:GOTO 20020 

<223> 

9000 

REM POSITIONIEREN **************** 

<130> 

20040 

INPUT#1,A# 

< 114> 

9010 

HB7.=SA/256: LB7.=SA-HB7.*256 

<06B> 

20060 

RETURN 

<050> 

9020 

PRINT#15,"P";CHR#<3) ;CHR#(LB7.) ;CHR#(H 


30000 

REM DIRECTORY EINLESEN - 



B7.) : CHR* (1 > 

<005> 




9030 

INPUT#15,A 

<079> 


* 

< 1 Al > 

9040 

RETURN 

<208> 

30012 

PRINT"<CLR,RVSON >INHALTSVERZEICHNIS: 


9100 

REM SATZ EINLESEN **************** 

<042> 


{DOWN,RVOFF >" 

< 199> 

9110 

IF A=50 THEN RETURN 

<0B2> 

30110 

PRINT#15,"IO“:OPEN 2,8,2,"#" 

<007> 

9120 

INPUT#1,A* 

< 116> 

30120 

T=18:S=1 

<221 > 

9140 

RETURN 

<052> 

30130 

PRINT#15,"Ul“;2;0;T; S 

<021 > 

9200 

REM SATZ SCHREIBEN *************** 

< 106> 

30140 

PRINT#15,"B—P";2;0 

<214> 

9210 

IF A=50 THEN RETURN 

< 1B2> 

30150 

GET#2,X*:IF X*=""THEN X#=CHR#(0) 

<054> 

9211 

IF A#=" "THEN A#=" : " : REM ZUR SICHERHEI 


30160 

T=ASC (X*) 

<098> 


T ! ! ! 

<205> 

30170 

GET#2,X*:IF X#=""THEN X#=CHR#(0) 

<074> 

9220 

PRINTttl,A# 

<042> 

301B0 

S=ASC(X#) 

< 114> 

9240 

RETURN 

< 154> 

30190 

FOR X=0 TO 7 

< 149> 

9900 

REM BEENDEN ********************** 

<083> 

30192 

PRINT#15,"B-P“;2;X*32+2 

<060> 

9910 

CLOSE 1 

<013> 

30194 

GET#2,X*:IF X*=""THEN X#=CHR#(0) 

<09B> 

9920 

CLOSE 15 

< 106> 

30196 

IF ASC < X#)=0 THEN 30290 

<100> 

9930 

PRINT "++ ENDE ++" 

<017> 

30200 

PRINT#15,"B-P";2;X*32+5 

<092> 

9940 

END 

<034> 

30210 

FF*="“ 

< 106> 

10000 REM SORT-ALOGARITHMUS - 


30220 

FOR Y=0 TO 15 

<239> 


— 


30230 

GET#2,X*:IF X*=""THEN X#=CHR#(0) 

<136> 


— 

<090> 

30240 

IF ASC(X#)=160 THEN 30270 

< 191 > 

10010 PRINT”<CLR,RVSON>DATEI SORTIEREN<RVO 


30250 

FF*=FF*+X# 

<16B> 


FF J " 

<124> 

30260 

NEXT Y 

<244> 

10100 PRINT"BITTE GEBEN SIE ANFANB UND END 


30270 

IF A=0 THEN A=1:PRINT FF#;:GOTO 3029 



E DES ZU12SPACE>SORTIERENDEN BEREICH 



0 

< 166> 


S AN ! 

<096 > 

30280 

A=0:PRINT TAB(19); "W ";FF# 

<012> 

10110 INPUT“ANFANG”;AN 

<027 > 

30290 

NEXT X 

<010> 

10120 INPUT"ENDE”; EN 

<236> 

30300 

IF T< >0 THEN 30130 

<091 > 

10122 SA=AN:GOSUB 90001IF A=50 THEN PRINT" 


30310 

CLOSE 2:PRINT 

<059> 


ANFANGSSATZ EXISTIERT NICHT!":GOTO 5 


30330 

GOTO 50 

<056> 


0 

<008> 

50000 

REM TEXTEINGABE - 


10124 SA=EN:GOSUB 9000:IF A=50 THEN PRINT” 






ENDSATZ ZU HOCH!":GOTO 50 

<1BB> 


— 

< 106> 

10130 IF EN-AN>MXTHEN PRINT"BEREICH ZU GRO 


50002 

IF AR=1 THEN AR=0:A*="{RVSDNISATZNUM 



SS!":GOTO 50 

<041> 


MER ZU HOCH!<RVOFF>":GOTO 50007 

<097> 

10135 PRINT"1DOWNJBITTE MARKIEREN SIE DEN 


50006 

GOSUB 9000:GOSUB 9100 

<0B5> 


BEREICH INNER- 

< 106> 

50007 

PRINT"{HOME,40SPACE>";:PRINT"{HOME,R 


10136 PRINT"HALB DER STRINGS NACH DEM DIE 



VSON1SATZ";SA;"{RVDFFV 

< 168> 


SORTIERUNG"; 

<205> 

50008 

PRINT"{40SPACE,UP >";A# 

{069> 

10137 PRINT"ERFOLGEN SOLL!" 

<081 > 

50009 

PRINT" TTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 


10138 SA=AN:GOSUB 9000:GOSUB 9100:IF A=50 



IT1ITTTITT"; 

<204> 


THEN PRINT"SATZ EXISTIERT NICHT!":GO 


50010 

PRINT"{DOWN>" 

< 173> 


TO 50 

<124> 

50020 

BE#="":POKE 198,0:POKE 211,0:POKE 21 


10139 IG=-1:GOSUB 60000:IG=0 

<050> 


4,22:SYS 58732:PRINT"{YELLOW >5"; 

<045> 

10140 IC=0:FOR SA=AN TO EN:IC=IC+1 

<237> 

Listing 23. Der Relative-Dateien-Editor (Fortsetzung) 
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haR D>NA^®T 1 


Unser Angebot 


Hardware für alle - 

ein neuer 64’er Leser-Service 

Der Commodore64 hat schon oft bewiesen, wie vielsei¬ 
tig er ist. Er laßt sich nicht nur mit Programmen, sondern 
auch durch so manche Hardware-Erweiterung sinnvoll 
nutzen und ausbauen. Dabei ist es sicherlich ein reizvol¬ 
ler Bestandteil des Computer-Hobbys, sich solche 
Erweiterungen selbst nachzubauen. Aber nicht jeder 
Leser verfügt über die Gelegenheit und Zeit zur 
Platinenherstellung. Hinzu kommt, daß es oft zu teuer 
Ist, wegen einer bestimmten Erweiterung Investitionen 
von mehreren hundert Mark für eine Platinenstation zu 
tätigen. Die in der 64'er abgedruckten Hardware- 
Erweiterungen sind in drei verschiedenen Ausbaustu¬ 
fen zu erhalten: 

1. Als Platinen 

Nur Leerplatinen. Die Beschaffung der Bauteile und der 
Zusammenbau bleiben bei Ihnen. 

2 . Als Bausätze 

Unsere Bausätze enthalten alle Teile, die notwendig 
sind, um die beschriebene Erweiterung komplett aufzu¬ 
bauen. Sie brauchen die Bauteile nur noch, gemäß der 
Anleitung im Heft, zusammenzulöten und einzubauen. 

3. Als Fertiggeräte 

Die Fertiggeräte sind komplett aufgebaute und geprüfte 
Geräte. Sie brauchen die Erweiterung lediglich noch 
einzubauen. 

Qualität & Service 

• Die 64'er Hardware hat einen hohen Qualitätsstan¬ 
dard. Wir verwenden nur beste Epoxid-Harz-Platinen 
mit Lötstopp-Lack. 

• Wir verwenden nur Präzisionssockel mit gedrehten 
Kontakten. 

• Alle Platinen werden professionell gefertigt. Wenn 
notwendig mit doppelseitiger Beschichtung und Löt- 
Durchkontaktierungen. 

• Jedes Gerät, das wir versenden, wurde auf 
Funktionstüchtigkeit geprüft. 

• Wir sind auch nach dem Verkauf für Sie da. 

Neben der gesetzlichen Garantie bietet unser 
Service- und Fertigungspartner Ihnen Hilfe und 
Unterstützung an. 

Einbauservice 

Für die Angebote 4 (Super Kernal) und 5 (64'er DOS) 
bieten wir einen Einbauservice an. Jeder Lieferung 
dieser Produkte liegt neben der detaillierten Einbau¬ 
anleitung ein Angebot zum kostengünstigen Uritbau 
Ihres C64 beziehungsweise Ihrer 1541 Floppy bei. 
Falls Ihr C64 keine gesockelten Bausteine besitzt, 
können Sie dort ebenfalls hochwertige Stecksockel 
einbauen lassen. 

Unsere Garantie 

Im Rahmen der Versand- und Lieferbedingungen unter¬ 
liegen die Geräte einer Gewährleistungszeit von 6 Mo¬ 
naten ab Lieferung. Der Lieferung liegt eine Service- 
Karte bei, die Sie im Falle einer Beanstandung zusam¬ 
men mit dem Gerät an die auf der Karte vermerkte 
Adresse schicken können. Die gleiche Karte verwen¬ 
den Sie bitte bei Reparaturen nach der Garantiezeit. 


Angebot 1: Expansion-Port EPROM- 

Platine mit 1 x 8 KByte Speicher¬ 
platz für 2732 bis 2764 EPROMS. 

Beschreibung In Ausgabe 10/85 
Bestellnummer: HW 010 
DM 19,80* (sFr. 17,60) 

Dieser Artikel wird nur als Fertiggerät 
angeboten. 

Angebot 2: Expansion-Port EPROM- 
Platine mit 2 x 8 KByte Spei¬ 
cherplatz für 2732 bis 2764 
EPROMS, mit Umschaltmög¬ 
lichkeit 

Beschreibung in Ausgabe 10/85 
Leerplatine 

Bestellnummer HW 020 
DM 24,80* (sFr. 22,-) 

Bausatz mit allen Teilen: 

Bestellnummer: HW 021 

DM 49,80* (sFr.«- 

Fertiggerät, getestet, wie beschrieben: 
Bestellnummer: HW 022 
DM 59,80* (sFr. 51,-) 

Angebot 3; EPROM TVans - 

Die Speichererweiterung 

ROM-Speichererweiterung zum Einbau 
In den C 64, gleichzeitig Steckplatz für 
ein Original- oder ein alternatives 
Betriebssystem. Zwei Platinen In Epoxld- 
Harz-Austührung wie in Ausgabe 10/85 
beschrieben. 

Leerplatlne 

Bestellnummer: HW 030 
DM 49,80* (sFr. 43,-) 

Bausatz mit allen Tollen: 

Bestellnummer: HW 031 
DM 119,80* (sFr. 102,-1 
EPROM Trans Ist nicht als Fertiggerät 
erhältlich. 


Angebot 4: Super Kernal 

Erweitertes Betriebssystem lür den C64 

mit vlelon neuen Funktionen, Inkl. 

Adaptorsockel, elnbaufertig In den C64. 

Beschreibung In Ausgabe 11/85 

Version 1: Enthält Hypra Load / DOS 5.1 / 

Funktlonstastenbelogung / Renew / RS232 

Bestellnummer: HW 040 

Version 2: Enthält Hypra Load / DOS 5.1 / 

Funktionstastenbelegung / Renew / Supor 

Centronics Schnittstelle 

Bestellnummer: HW 041 

Version 3: Enthalt Hypra Load / DOS 5.1 / 

Funktlonstastenbelogung / Renew / Hypra 

Save 

Bestellnummer: HW 042 

Version 4: Enthalt Hypra Load / DOS 5.1 / 

Funktionstasten / Hypra Save / Centronics 

klein 

Bestellnummer: HW 043 
Jede Version kostet: 

DM 39,80* (sFr. 34,-) 

• Preise inkl. Mehrwertsteuer 


Angebot 5: 64’er DOS 

Jetzt wird dos 1541 Laulwork zum Ren¬ 
ner. Mit wenig Aufwand beschleunigt 
64'er DOS alle Funktionen des Lautwer¬ 
kes. Das neue Betriebssystem lür den 
Commodore 64 und das 1541 Lautwerk 
Ist auf 2 Spolchor-EPROMs der Sorto 
2764 untergebracht und Inkl. Adapter¬ 
sockel einbaufertig vorbereitet. 
Beschreibung in Ausgabe 3/86 (Elnbau- 
anleltung liegt bei). 

Preis für beide EPROMs Inkl. Adapter¬ 
sockel 

Bestellnummer: HW 050 
DM 69,-* (sFr. 59,-) 

Lieferbar ab Februar/März 1986 

Angebot 6: EPROM-Programmiergerät 

Programmiergerät für EPROMs der 
Typen: 2532, 2732, 2764, 27128, 27256, 
27512. Platine aus Epoxid-Harz für 
Expansion-Port. 

Beschreibung in den Ausgaben 12/85, 
1/86 und 2 / 86 . 

Leerplatine 

Bestellnummer: HW 060 
DM 44,80* (sFr. 39,90) 

Lieferbar ab März/April 1986 
Spannungswandler 
Bestellnummer: HW 061 
DM 19,80* (sFr. 17,50) 

Lieferbar ab März/Aprii 1986 
Betriebssoftware auf Diskette 
Bestellnummer: HW 062 
DM 14,80* (sFr. 13,90) 

Lieferbar ab März/April 1986 
Die Betriebssoftware befindet sich 
auBerdem auf der Leserservlce-Diskette 
der Ausgabe 2/86. 

Kombinationsangebot 
Leerplatlne, Spannungswandler und Dis¬ 
kette Im Paket. 

Bestellnummer: HW 063 
DM 69,80* (sFr. 59,50) 

Lieferbar ab März/April 1986 

Angebot 7: Akustikkoppler 
HITRANS 300 C 

Mil einem Akuatlkkoppler öffnen Sie 
Ihrem Computer das Tor zur ganzen 
Welt. Der HITRANS 300 C stach Im 
Akuatlkkoppler-Teat dar Ausgabo 3/88 
durch dlo boaton Überlragungselgen- 
achalten hervor. Sie erhalten Ihn bei uns 
als Fertlggoräl. lediglich eins Blockbatte¬ 
rie muB eingesetzt und das Qehäuse 
zugeachraubt worden. Sie können don 
Koppler auch über ein 12-Volt-Netztoll, 
das In |edem Elektronlkgsachäft preis¬ 
günstig erhältlich Ist, betreiben. Die Bau- 
anleltung lür ein RS232-fnterface finden 
Sie In dor Ausgabe 3/85. 

Preis für Akustikkoppler 
HITRANS 300 C (ohne Battorlo) 

DM 248,-* (aFr. 225 .-) 
Bestellnummer: HW 070 
Belrlebssoftware auf Diskette 
Bestellnummer: HW 071 
DM 14,80* (sFr. 13,901 

Dio Betrlebssoftwnro bollndot sich auBer¬ 
dem auf der Programm-Servlce-Olskotte 
dos 64er-Sondorheftes SH7/85. 


Bitte verwenden Sie für Ihre Bestellung immer die abgedruckte Postgiro-Zahlkarte oder einen Verrechnungsscheck. 
Sie erleichtern uns damit die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 























DATEIVERWALTUNG 


C64 


50030 

GET X*:IF PEEK(203)=1 THEN 50120 

<226> 

60045 

IF 1=56 THEN M*<IM)="1":GOTO 60070 

<041 > 

50035 

IF PEEK(203)=7 AND PEEK(653)=0 THEN 


60055 

IF 1=35 THEN M*<IM)=”0“:GOTO 60070 

< 178> 


SC=1 : GOSUB 20000 : GOTO 50000 

<023> 

60056 

IF 1=1 THEN 60100 

<013> 

50037 

XF PEEK(203)=7 AND PEEK<653)=1 THEN 


60060 

GOTO 60035 

< 1B3> 


SC=-1 : GOSUB 20000 : GOTO 50000 

<031 > 

60070 

PRINT"<UP,25SPACE,25LEFT,3UP >“;:GOTO 


50040 

IF X*=""THEN 50030 

< 171 > 


60025 

< 139> 

50050 

IF LEN(BES)=0 AND ASC(X*>=20 THEN 50 


60100 

REM UMRECHNEN 

<252> 


030 

< 148> 

60102 

FOR 1=1 TO 3:MA <I)=0:MB(I)=0:NEXT I 

< 14B> 

50060 

I=ASC(X*>:IF I<32 OR I>133 AND I<159 


60105 

FOR 11=1 TO 3 

< 169> 


THEN IF 1020 THEN 50030 

<131 > 

60110 

-.FOR 1 = 1 TO LEN (I*) s IF MA<II>=0 AND 


50070 

IF LEN (BES) =SL AND 1020 THEN 50030 

< 128> 


M* <I> =RIGHT*(STR*(11>,1)THEN MA(11) = 


50075 

IF X*=" "THEN X*="{RIGHT>” 

<012> 


I 

<059> 

50080 

BE*=BE*+X* 

<031 > 

60113 

NEXT I 

<250> 

50090 

PRINT CHR*<20);X*;"B"! 

< 10B> 

60115 

sIF MA(II)=0 THEN 60150 

<245> 

50100 

IF 1=20 THEN BE*“LEFTS <BE*, LEN (BE*) — 


60120 

s MB(II)=MA(II) 

< 124> 


2):GOTO 50030 

<101> 

60125 

s MB(II)=MB(II)+1sREM PRINT,MB(II) 

<069> 

50110 

GOTO 50030 

<001> 

60130 

: IF M*(MB(11>)< >RIBHT*(STR*(II),1 


50120 

PRINT"tLEFT,SPACE>":GOSUB 9000 

<017> 


)THEN MB(II)=MB(11)—1s GOTO 60150 

<217> 

50130 

IF BE*=""THEN BE*=":" 

<049> 

60135 

: IF MB <11)=LEN <I*> THEN 60150 

<074> 

50140 

PRINT"{HOME,24D0WN>":RETURN 

<030> 

60140 

s GOTO 60125 

<248> 

60000 

REM MARKIEREN WIE DATIERT WIRD - 


60150 

NEXT II 

< 179> 


— 


60170 

PRINT"DIE SORTIERUNG ERFOLGT NACH FO 



— 

<071 > 


LGENDEMI3SPACE >STRINGBEREICH:" 

<088> 

60010 

I*=A*:FOR 1=1 TO LEN<I*):MS<I)-"0": N 


60180 

PRINT"<RVSON >"MID*(I*,MA(1),MB(1)-MA 



EXT 

< 131 > 


(1)4-1) " {RVOFF >" 

< 16B> 

60020 

IM=1 : PR INT 

< 131 > 

60190 

RETURN 

<047> 

60025 

PRINT I*:FOR 1=1 TO LEN<I*)sPRINT M* 


61000 

REM FLOPPY-FEHLERKANAL LESEN - 



<I>;INEXT:PRINT 

<223> 




60030 

PRINT“{DOWN >EDIT{3SPACE > >";MID* <I*,I 



~ 

<254> 


M, 1 )J"<C4SPACE,RVSON>"IM“{RVOFF}" 

<232> 

61005 

PRINT"{CLR,RVSON1FLOPPY-FEHLERKANALA 


60035 

I=PEEK<203):IF 1=64 THEN 60035 

<110> 


BFRAGE{RVOFF>" 

<20B> 

60040 

IF 1=2 AND PEEK (653) =0 AND IMOLEN<1 


61010 

INPUT # 15, A, B*, C, D 

< 166> 


*)THEN IM=IM+1:GOTO 60070 

<174> 

61020 

PRINT A,B*,C,D 

<126> 

60042 

IF 1=2 AND PEEK (653) =1 AND IMOl THE 


61040 

GOTO 50 

<031 > 


N IM=IM—l-.GOTO 60070 

< 119> 

Listing 23. Der Relative-Dateien-Editor (Schluß) 



Dokumentation zum Listing 23 

Wichtigste Variablen: 


M% 

M$(1)-M$(M%), 

M(1)-M(M$) 

LG, RG 

A$ 


Größe des Stringpuffers 


646R 


Stringpuffer 

werden für Quicksort-Unterprogramme 
benötigt 

von relativer Datei eingelesener String 
beziehungsweise String, der auf relative 
Datei geschrieben wird. 

Satz, auf den der Zeiger der relativen Datei 
positioniert ist beziehungsweise werden 
soll. 

Filename der Datei 
Lowbyte, Highbyte 

Anfang beziehungsweise Ende eines Be¬ 
reiches der relativen Datei, der sortiert be¬ 
ziehungsweise ausgedruckt werden soll. 
Variablen beziehungsweise Stringnamen, die mit I begin¬ 
nen, sind Hilfsvariablen beziehungsweise Strings, die sich 
während dem Programmablauf ständig ändern - zum Beispiel 
Schleifen, Prüfvariablen etc. 


SA 

D$ 

LB, HB 
AN, EN 


0-15 


Vorbereitungen, Felder dimensionieren etc. 


19-30 

31-41 

50-70 


2000 - 2050 
3000 - 3070 
6000 - 6270 


Anfangsmenü 

Anlegen einer neuen Datei. 

Zwischenmenü beziehungsweise Menü¬ 
zeile. Dies ist der Hauptteil des Program¬ 
mes. Von hier aus werden alle möglichen 
Routinen angewählt. 

Routine zum Lesen von Sätzen einer relati¬ 
ven Datei. 

Routine zum Schreiben von Sätzen in eine 
relative Datei. 

Routine zum Versetzen bestimmter Berei¬ 
che einer relativen Datei innerhalb dersel¬ 
ben oder auf andere relative Dateien. Die 


7000-7510 


7500 - 7999 


8000 - 8690 


9000-9140 


Daten werden jeweils zuerst von der Quell¬ 
datei in den Puffer M% gelesen. Dann wird 
die Quelldatei geschlossen und die Zielda¬ 
tei geöffnet. Sodann wird der Pufferinhalt in 
die Zieldatei übertragen etc. 
Printer-Routine zum Ausdrucken von relati¬ 
ven Dateien. 

In diesem Bereich können Sie eine eigene 
Printer-Routine unterbringen. So kann zum 
Beispiel der deutsche Zeichensatz Ihrem 
Drucker angepaßt werden. 

Verschiedene Routinen zur formatierten 
Textausgabe einer relativen Datei. 

Die bereits vorgestellten Unterprogramme 
zum Lesen, Schreiben, Positionieren und 
Schließen einer Datei. 

10000 - 10500 Routine zum Sortieren eines bestimmten 
Bereiches innerhalb der Datei. Der ge¬ 
wünschte Bereich, der aus maximal M% 
Sätzen bestehen darf, wird in den String¬ 
puffer eingelesen. Nun wird der Stringpuf¬ 
fer mittels einem Quicksort-Algorithmus 
(10200 - 10350) sortiert und anschlie¬ 
ßend wieder in die Datei auf Disk zurückge¬ 
schrieben. 

20000 - 20060 Korrekturroutine - »Blättern« in einer relati¬ 
ven Datei mittels den Cursor-Tasten. Diese 
Routine wird von der Texteingaberoutine ab 
50000 aufgerufen. 

30000 - 30330 Unterprogramm zum Einlesen des Disk- 
Directories ohne Programmverlust. 
Modifizierte INPUT-Routine. 
Unterprogramm zum Markieren des String¬ 
bereiches, der beim Sortieren als Kriterium 
gelten soll. 

61000 - 61040 Unterprogramm zur Abfrage des Fehlerka¬ 
nals des Floppy-Laufwerks. 

Die Dokumentation ist sehr oberflächlich; ich glaube nicht, 

daß am Editor noch viel verbessert werden kann. Mit dem Edi- 


50000-50140 

60000-60190 
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tor bekommen Sie relative Dateien in den Griff. Mit Hilfe der 
drei Unterprogramme zum Lesen, Schreiben und Positionie¬ 
ren können Sie sich leicht die unterschiedlichsten Dateiver¬ 
waltungen mittels kurzer Basic-Programme zusammenba¬ 
steln. Dazu müssen Sie jedoch wissen, wie mit dem Editor 
umzugehen ist: 

Bedienungsanleitung zum Texteditor 

Nach dem Programmstart mittels RUN erscheint das 
Grundmenü. Zum einen kann von hieraus ein alternativer Zei¬ 
chensatz geladen werden, der mit dem Zeichensatz-Editor 
erstellt werden beziehungsweise ab hexadezimal E000 lie¬ 
gen muß. Der Zeichensatz muß den Namen »D.Z.SATZ« 
haben (beziehungsweise Name im Listing Zeile 27 umän¬ 
dern). Es bietet sich also an, mit dem Zeichensatz-Editor 
einen deutschen Zeichensatz automatisch generieren zu las¬ 
sen und ihn dann als D.Z.SATZ auf die Disk, auf der sich auch 
der Editor befindet, zu speichern. Zum Laden des Alternativ- 
Zeichensatzes muß einfach die Taste »D« gedrückt werden. 
Wenn das Disketten-Laufwerk wieder zum Stillstand kommt, 
befindet sich der neue Zeichensatz im Computer. Natürlich 
hätte ich nach dem Filenamen des Zeichensatzes fragen 
können, nachdem »D« gedrückt wurde. 

Ich habe mich jedoch für diese Lösung entschieden, da 
sich dadurch viel schneller mit dem Texteditor arbeiten läßt: 
Man muß so nicht erst mehrere Parameter eingeben, bevor 
man mit dem Arbeiten beginnen kann. 

Mittels »N« kann eine neue Datei angelegt werden. Sie 
müssen lediglich den Dateinamen (Filenamen), maximal 
erlaubte Satzlänge und die Satzanzahl der Datei angeben. 
Dann eine Disk mit genügend freiem Platz einlegen und 
RETURN drücken. Je nach Größe der Datei kann es einige 
Zeit in Anspruch nehmen, bis der Computer hiermit fertig ist. 
Das Anlegen einer relativen Datei wird so zum Kinderspiel. 
Mittels »A« wird eine alte Datei zum weiteren Bearbeiten 
geöffnet. Es ist hierzu erforderlich, daß sich die Disk, auf der 
sich die Datei befindet, im Laufwerk befindet (logisch). Ganz 
Eilige können auch einfach mehrmals die RETURN-Taste 
drücken. Dann wird einfach das erste Programm der Disk, die 
sich im Laufwerk befindet, geladen und die maximale Zeiche¬ 
nanzahl auf 40 festgelegt. 

Achtung: Beim Anlegen einer relativen Datei ist immer fol¬ 
gendes zu beachten: Soll die Satzlänge einer Datei 40 Zei¬ 
chen betragen, so muß man beim Anlegen der Datei als maxi¬ 
male Satzlänge 41 angeben - also immer eins mehr als die 
Satzlänge später tatsächlich sein soll. Dieser eine Platz 
beziehungsweise Zeichen wird nämlich für das CHR$(13) 
(Carriage Return) benötigt, das am Satzende jeweils ange¬ 
hängt wird! Es ist in bedingten Fällen auch möglich, auf das 
CHR$(13) zu verzichten. Man muß dann jedoch »ganz cool« 
über die zahlreich auftretenden FILE DATA beziehungsweise 
OVERFLOW IN RECORD ERRORs hinwegsehen! 

Ich rate Ihnen jedenfalls, nicht an diesem einen Zeichen zu 
sparen! 

Nach Anwahl des ersten oder zweiten Grundmenü- 
Punktes (alte Datei eröffnen beziehungsweise neue anlegen) 
gelangt man ins Hauptmenü, das aus einer einzigen Zeile 
besteht: 

s/l/v/o/d/i/z/f/ende 

Die einzelnen Buchstaben beziehungsweise Tasten ste¬ 
hen für folgende Funktionen: 

s - schreiben 

I - lesen 

v - versetzen 

o - ordnen 

d - drucken 

i - Inhaltsverzeichnis 

z - zentrieren 

f - Fehlerkanal abfragen 

ende - na, was wohl? 


Die Menüpunkte im einzelnen 


Schreiben 

Zuerst muß die Satznummer eingegeben werden, ab der 
man schreiben will. Danach erscheint das Satzeingabe-Bild. 
In der obersten Bildschirmzeile sind Satznummer sowie 
momentaner Inhalt des Satzes zu sehen. Der Cursor steht in 
der untersten Zeile des Bildschirms. Dort kann ein neuer 
Satzinhalt eingegeben werden. Die Cursor-Tasten sind hier¬ 
bei in ihrer Funktion zum Bewegen des eigentlichen Cursors 
außer Gefecht gesetzt. Auch alle anderen Steuertasten (zum 
Beispiel Farbwahl und CLR), außer der DEL-Funktion, funk¬ 
tionieren nicht mehr. Wie ich anfangs bereits sagte, kann bei 
einem Texteditor für relative Dateien keineswegs an die Vor¬ 
züge eines Textverarbeitungssystems gedacht werden. Sie 
können lediglich gesamte Sätze schreiben und diese mit 
RETURN absenden, wobei Sie automatisch in die nächste 
Zeile gelangen. Mit den Tasten CURSOR UP und CURSOR 
DOWN kann der Text nach oben beziehungsweise unten 
gescrollt werden. 

Durch Eingabe von // wird die Texteingabe beendet - das 
Hauptmenü erscheint wieder. 

Einen gewaltigen Vorteil hat ein Relative-Dateien-Editor 
allerdings gegenüber einem Textverarbeitungssystem: Bei 
einem Stromausfall gehen nur die Daten verloren, die sich 
gerade im Puffer des Floppy-Laufwerks befinden (meist nur 
2-3 Sätze bei 40 Zeichen Satzlänge)! 

Lesen 

Auch hier muß nur die Satznummer des Satzes eingegeben 
werden, ab der gelesen werden soll. Auf dem Bildschirm 
erscheinen sodann die 20 Sätze ab dem eingegebenen 
Wert. Wenn Sie nach der Satznummer gefragt werden und 
einfach die RETURN-Taste drücken, ohne eine Zahl einzuge¬ 
ben, so wird ab dort weitergelesen beziehungsweise 
geschrieben, wo zuletzt aufgehört worden ist - also, wo der 
Zeiger gerade steht. 

Versetzen 

Diese Funktion erlaubt es, Teilbereiche (auch ganze rela¬ 
tive Dateien) innerhalb einer Datei zu versetzen beziehungs¬ 
weise auf eine andere Datei zu übertragen. Zunächst müssen 
Anfang und Ende des Bereiches angegeben werden, der 
versetzt werden soll. Danach muß die Zieldatei angegeben 
werden. Soll innerhalb der relativen Datei versetzt werden, so 
muß als Zieldatei einfach der Name der Quelldatei (= Datei, 
mit der gerade gearbeitet wird) angegeben werden. 

Letztendlich muß nur noch der Anfang des neuen Berei¬ 
ches angegeben werden. Beachten Sie bitte, daß die Satz¬ 
länge der Zieldatei entweder größer oder mindestens 
genauso groß wie die der Quelldatei sein muß! 

Ordnen 

Heißt nichts anderes als Sortieren einer Datei. Zunächst 
wird der Bereich angegeben, der sortiert werden soll (darf 
nicht größer als 300 Sätze sein I). Dann muß markiert werden, 
welcher Teilbereich beziehungsweise welcher Schlüssel der 
Datei als Sortierkriterium gelten soll. Mittels den Cursorta¬ 
sten LEFT-RIGHT wird der Bereich markiert. Als Kriterium gilt 
der Bereich, unter dem Einser stehen. Mit den Tasten 1 und 
0 können solche Einser gesetzt beziehungsweise gelöscht 
werden. Beispiel: 

001BETRACHTEN 56 
00111111111111100 

Nun gilt zum Beispiel bei einer Verben-Tabelle, wie wir sie 
schon bald kennenlernen werden, das Verb als Kriterium. 

Zur Sortierroutine, die im Editor integriert ist, ist zu bemer¬ 
ken, daß sie nur für kleine Bereiche geeignet ist, deren Satz¬ 
länge kleiner als 40 Zeichen ist. In einem anderen Kapitel die¬ 
ses Kurses finden Sie noch ein Sortierprogramm für riesige 
Dateien mit Satzlängen bis zu 255 Zeichen! 
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Drucken 

Durch Aufruf dieser Routine können relative Dateien bezie¬ 
hungsweise Teilbereiche einer Datei mit einem Drucker aus¬ 
gegeben werden. Das Druckermenü bietet dann folgende 
Auswahlmöglichkeiten: 

Normale Ausgabe: Der Text wird so ausgegeben, wie er mit 
dem normalen Zeichensatz des C64 aussieht. 

D.z.s.-Ausgabe: Ein Text, der mit Hilfe des deutschen Zei¬ 
chensatzes erstellt wurde, wird umgerechnet ausgegeben. 
Das heißt, anstelle von ß wird ss, anstelle von ä ein ae ausge¬ 
druckt etc. Dies ist nötig, da die Druckerroutine für einen 
MPS-801 »Billigdrucker« geschrieben wurde. 

Eigene Routine: Wenn Sie einen besseren Drucker haben 
(Neid!!!), können Sie sich eine eigene Druckroutine schrei¬ 
ben (siehe Listingsdokumentation). Wer will, kann mittels Bit- 
Gefummel den deutschen Zeichensatz auch auf einem 
MPS-801 darstellen. 

Inhaltsverzeichnis 

Hier wird das Directory ohne Programmverlust ausgegeben. 

Zentrieren 

Durch diese Routine können Dateibereiche zentriert wer¬ 
den. Es ist so möglich, den Text formatiert auszugeben. Es 
gibt zwei Formatierungsmöglichkeiten: Links-rechtsbündig 
zentriert und in die Mitte zentrieren. Bei ersterem werden ein¬ 
fach soviele SPACEs eingefügt, bis der Text am linken und 
rechten Rand anstößt. Beim in die Mitte zentrieren wird jeder 
Satz so dargestellt, daß links und rechts gleich viele SPACEs 
sind. 

Fehlerkanalabfrage: 

Hiermit kann der Fehlerkanal des Floppy-Laufwerks abge¬ 
fragt werden. 

Ende 

Muß unbedingt betätigt werden, wenn man die Arbeit an 
einem Text beenden will. Nur dann wird gewährleistet, daß 
der Puffer des Diskettenlaufwerks auf Disk gespeichert wird 
und so keine Daten verloren gehen können. 

Sie können den Editor auch jederzeit mittels RUN/STOP- 
Taste verlassen. Mittels GOTO 50 im Direktmodus kommen 
Sie dann wieder ins Hauptmenü. 

Dies ist auch schon alles, was Sie zum Umgang mit dem 
Editor wissen müssen. Wir werden im Rahmen des Kurses 
den Editor noch oft benötigen. Ich rate Ihnen deshalb, sich 
schon jetzt mit seinen einzelnen Funktionen gründlich ver¬ 
traut zu machen. Im nächsten Kapitel finden Sie ein weiteres 
Utility, das ebenfalls (wie der Zeichensatz-Editor) direkt auf 
den Text-Editor für relative Dateien anwendbar ist: Ein Sortier¬ 
programm für relative Dateien. 

Das Sortieren von 
riesigen Datenfeldern 
(relativen Dateien) 


Bisher haben wir immer nur kleine Tabellen sortiert. Also 
Dateien, die immer komplett im Computer standen. Unser 
Texteditor für relative Dateien ist zwar in der Lage, riesige 
Dateien in den Griff zu bekommen, was jedoch das Sortieren 
von Datenfeldern anbelangt, so bedient er sich eines kleinen 
Kunstgriffes. Der Dateiabschnitt, der sortiert werden soll, 
wird komplett in ein Puffer-Stringfeld innerhalb des Basic- 
RAMs geladen. Dieser Puffer wird sodann mit Hilfe eines 
Quicksort-Unterprogramms sortiert. Anschließend wird der 
Pufferinhalt wieder auf die relative Datei auf Disk übertragen. 
Die »Sortierkapazität« unseres Texteditors ist also auf die 
Größe des Puffers und somit auf den Speicher des C64 
begrenzt. Dieser Puffer kann nicht als besonders groß 
bezeichnet werden. Sie werden mit Sicherheit sehr bald auf 
seine Grenzen stoßen. Spätestens dann wird es kritisch, 
wenn man den Wortschatz zu einem Adventure sortieren will. 


Wir haben schließlich vor, Wortschätze mit über 1000 Wor¬ 
ten zu verwalten - und die wollen erst einmal sortiert sein. 

Wir brauchen also ein Sortierprogramm, das in der Lage ist, 
Dateien von Disk zu sortieren, die nicht auf einmal in den 
Speicher unseres C 64 geladen werden können. 

Das Programmieren von solchen Datei-Sortier-Program- 
men ist eine äußerst haarige Sache. Auch die besten Pro¬ 
grammierer müssen sich vor dem Programmieren lange und 
genaue Überlegungen und Skizzen auf Papier zeichnen, um 
genauen Durchblick zu behalten. Die Schwierigkeit liegt 
weniger bei der komplizierten Programmiertechnik, die erfor¬ 
derlich ist, sondern vielmehr bei den Grundüberlegungen, 
die gemacht werden müssen. Ähnlich wie bei den einzelnen 
Sortieralgorithmen (Vgl. Kurs über effektives Programmieren 
in der Zeitschrift 64'er) gibt es auch hier zahlreiche Möglich¬ 
keiten zum Lösen des Problems. Die Grundroutinen sind zwar 
immer die gleichen, es gibt jedoch unendlich viele Möglich¬ 
keiten, sie zu kombinieren. Auch die besten Sortiermethoden 
für Dateien, die komplett auf einmal im Speicher sind, setzen 
sich aus mehreren Sortieralgorithmen zusammen (zum Bei¬ 
spiel Quicksort und Bubblesort kombiniert), um eine mög¬ 
lichst schnelle Ausführungszeit zu erreichen. Bei diskoi;ien- 
tierten Sortierprogrammen spielt neben dem Zeitaufwand, 
der zum Sortieren gebraucht wird, auch noch ein anderer 
Faktor eine dominierende Rolle: Die Zahl der Zugriffe auf 
Disk. Selbstverständlich ist es möglich, unser Quicksort- 
Unterprogramm (Listing 8) mit wenig Aufwand so zu modifi¬ 
zieren, daß es in der Lage ist, eine riesige Datei auf Disk zu 
sortieren. Dabei wären bei großen Dateien zehntausende, ja 
bis zu über 100000 Schreib-Lese-Operationen mit dem Dis¬ 
kettenlaufwerk notwendig. Sie werden mir sicherlich zustim¬ 
men, wenn ich nun behaupte, daß eine solche Sortierme¬ 
thode eine unglaublich große Strapaze für unser Floppy- 
Laufwcrk (ganz zu schweigen von der Diskette, die dieser 
Tortur ausgesetzt wird) wäre. 

Eine andere Methode wäre es zum Beispiel, mehrere Dis¬ 
ketten zu verwenden. Zum Beispiel die Quelldisk, auf der sich 
die Tabelle befindet und eine weitere Disk, auf der das Sor¬ 
tierprogramm Zwischenspeichern kann. Dies wäre zumin¬ 
dest schonend für die Diskette. 

Beide Methoden sind jedoch äußerst zeitaufwendig. Eine 
Methode, möglichst schnell zu sortieren, ist es, im Speicher 
des C 64 nur die Satznummern zu puffern und diese zu sor¬ 
tieren, um dann gemäß dieser sortierten Satznummern die 
ganze Datei umzuordnen. Während man mit der allereinfach¬ 
sten Methode (gesamte Datei auf einmal im Speicher) etwa 
1000 Sätze (mittlerer Länge) sortieren kann, erlaubt die 
zuletzt vorgestellte Methode schon ein Vielfaches dieser 
Kapazität. 

Die Methode hat jedoch wieder eine Einschränkung: Man 
kann eine bestimmte Satzanzahl (Größe des Satznummern- 
Puffers im Speicher) nicht überschreiten. 

Wir wollen keine halben Sachen machen und ein absolut 
endgültiges Sortierprogramm schreiben, das folgende 
Eigenschaften haben soll: 

- Es kann jede Datei, die sich auf einer Diskettenseite in Form 
einer relativen Datei unterbringen läßt, sortiert werden. 

- Die Sortierung muß möglichst Disketten- und Floppy- 
Laufwerk-schonend ablaufen. Auf schnelle Ausführungszeit 
wird deshalb weniger Wert gelegt. 

Auf den folgenden Seiten werde ich Ihnen anhand von 
Ablaufplänen und Schemen ausführlich erläutern, wie man 
eine solche Sortierung programmiert. Diese Grundlagen sind 
übrigens in keinster Weise auf den C 64 beschränkt - sie gel¬ 
ten auch für jedes andere Computersystem, mit dem relative 
Dateien verwaltet werden können. 

Lehnen Sie sich also gemütlich in Ihren Sessel, besorgen 
Sie sich was zu knabbern und/oder trinken und studieren Sie 
ausführlich die folgenden Seiten! 
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SATZ INHALT 


01 

NIMM 

02 

VERLIER 

03 

SUCHE 

04 

GEBE 

05 

LIES 

06 

AUF 

07 

ZU 

08 

BETE 

09 

SAGE 

10 

ESSE 

11 

HOLE 

12 

INVENTUR 

13 

BERATE 

14 

TOETE 

15 

BITTE 


Bild 6a. 

Ausgangstabelle unsortiert 


Im folgenden finden 
Sie eine Reihe von 
Diagrammen, die die 
Sortierung relativer 
Dateien erläutern. 


INHALT 




o 

N 

m 

o 

m 
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SATZ 


Bild 6b. 

Datenpuffer der Kapazität M % 


01 

NIMM 

02 

VERLIER 

03 

SUCHE 

04 

GEBE 

05 

LIES 

06 

AUF 

07 

ZU 

08 

BETE 

09 

SAGE 

10 

ESSE 

11 

HOLE 

12 

INVENTUR 

13 

BERATE 

14 

TOETE 

15 

BITTE 


J AUF 

06 

J BERATE 

13 

Zj BETE 

08 

t a bitte 

15 

j, ESSE 

10 

alGEBE 

1-- 

04 


Bild 6c. 

Die M%-nledrlgsten Elemente 
der unsortierten Ausgangsda¬ 
tei (Zeiger auf 1. Satz) werden in 
den Puffer gelesen und dabei 
gleichzeitig alphabetisch 
geordnet (im Puffer!). 

Die Daten, die In den Puffer 
gelesen werden (bzw. die 
Sätze), werden gleichzeitig in 
der Ausgangsdatei gelöscht. 


Anhand der folgenden Skizzen wollen wir uns zunächst 
einmal grundlegende Gedanken über das Sortieren von riesi¬ 
gen Dateien machen. Das Verstehen der Programmiertech¬ 
nik wird Ihnen dann viel leichter fallen. Zunächst benötigen 
wir wieder eine Ausgangsdatei. Um es möglichst einfach zu 
halten, beschränke ich mich hier auf eine Datei mit nur einem 
Schlüssel: Eine Verben-Datei, wie sie uns im Laufe des Kur¬ 
ses noch oft in ähnlicher Form begegnen wird. Diese Bei¬ 
spielsdatei sehen Sie in Bild 6a. Die »Ausgangsdatei« besteht 
aus 15 Sätzen - Verben in total ungeordneter Reihenfolge. 
Wir wollen einmal annehmen, daß der Speicher unseres C 64 
viel zu klein ist, um diese Datei auf einmal fassen zu können 
- beziehungsweise die Datei zu groß ist, um komplett in den 
Computer geladen werden zu können. Wir benötigen also 
einen Puffer - ein Stringfeld, in das wir Teile der riesigen Datei 
laden können, um sie dort zu verändern. Das folgende Bei¬ 
spiel macht besonders leicht deutlich, wie so ein »Puffer« 
arbeitet. 

Herr Helm hat zwei große Schwimmbecken - eines leer 
und eines voll mit Wasser. Er möchte das leere Schwimm¬ 
becken nun mit dem Wasser des vollen Schwimmbeckens 
füllen. Da er das volle Becken jedoch nicht einfach hochhe¬ 
ben, zum anderen Becken hintragen und hineinleeren kann, 
braucht er ein Hilfsmittel. Zum Beispiel einen Eimer, der maxi¬ 
mal so groß sein darf, daß Herr Helm ihn im gefüllten Zustand 
noch gut tragen kann. Nun kann er den Eimer im vollen 
Becken mit Wasser vollschöpfen, zum leeren Becken gehen 
und den Eimer dort hineinleeren. Herr Helm muß also mehr¬ 
mals zwischen den Becken hin und her laufen, bis das volle 
Becken leer und das vorher leere Becken voll ist. Je kleiner 
der Eimer ist, umso öfter muß Herr Helm zwischen den 
Becken hin und her gehen... 

Der Eimer ist als »Puffer« beziehungsweise »Datenpuffer« 
zu sehen. Den »Eimer«, den wir als Puffer zum Sortieren 
benutzen werden, sehen Sie in Bild 6b. Er faßt bis zu 6 Sätze. 
In Wirklichkeit ist der Speicher des C64 natürlich groß 
genug, um mehrere hundert Sätze puffern zu können. Der 
Einfachheithalber wollen wir uns jedoch auf einen kleinen 
Puffer beschränken. Unser Puffer besteht aus zwei Teilen. Im 
einen (M$(1)-M$(%)) werden die Sätze gespeichert. M% ist 
die Größe des Puffers - also 6. In der anderen Hälfte des Puf¬ 
fers (M$(1)-M$(M%)) wird gespeichert, an welcher Stelle 
die Sätze in der relativen Datei stehen - also die Nummern der 
Sätze. 


Als Ziel des gesamten Sortiervorgangs soll die Verben- 
Datei alphabetisch geordnet vorliegen. Wie beginnen wir nun 
den Sortiervorgang? Das einzige Feld, das wir sortieren kön¬ 
nen, ist der Puffer. Wir müssen also zuerst Sätze von der 
Verben-Datei in den Puffer lesen, um sie dort verarbeiten zu 
können. Unsinnig wäre es, einfach die ersten 6 Sätze der 
Datei in den Puffer zu lesen und zu sortieren - das bringt 
nichts. 

Wi. durchlaufen zunächst die ganze Verben-Datei einmal 
von Anfang bis Ende und suchen die niedrigsten 6 Sätze 
heraus. Diese Sätze schreiben wir in den Puffer (Schema 
Bild 6c). 

Das Suchschema läuft so ab, daß die 6 Sätze am Ende 
bereits alphabetisch im Puffer abgelegt sind. Gleichzeitig 
werden alle Sätze, die in den Puffer geschrieben werden, auf 
der Ausgangsdatei gelöscht. Nachdem der Puffer voll ist, 
sieht die relative Datei auf Disk wie in Bild 6d aus: 

Betrachten wir nun einmal die ersten M%-Sätze der jetzi¬ 
gen Datei. An genau dieser Stelle müssen am Ende des Sor¬ 
tiervorgangs die 6 niedrigsten Sätze stehen. Diese Sätze 
befinden sich in unserem Puffer. Allerdings können wir den 
Puffer jetzt nicht gleich dorthin übertragen, da sich in ihm 
noch volle Sätze befinden, die beim Zurückschreiben des 
Puffers überschrieben werden würden - also verlorengin¬ 
gen. 

Zählen wir doch einmal, wie viele volle Sätze noch im obe¬ 
ren Bereich stehen: genau 4 (Satz 1,2,3 und 5). Wir müssen 
also 4 Sätze »in Sicherheit« bringen, bevor der Pufferinhalt in 
den oberen Bereich geschrieben werden darf. 

Aber wohin denn nun mit den 4 Sätzen? Sicherlich werden 
Sie schon festgestellt haben, daß sich im unbetroffenen Teil 
der Datei, der beim Übertragen des Puffers nicht überschrie¬ 
ben wird, genau 4 leere Stellen befinden. 4 Stellen, an denen 
vorher Sätze standen, die sich jetzt gerade im Puffer befinden 
und die später in den oberen Bereich geschrieben werden. 
Es bietet sich also an, die 4 Sätze im oberen Bereich in die 
4 Leersätze des unteren Bereiches zu schreiben (s. Bild 6e). 

Wenn Sie nicht ganz mitgekommen sind, lesen Sie bitte 
den Abschnitt noch mal durch. Es gibt nun verschiedene 
Methoden, den oberen Bereich zu räumen. Die einfachste ist, 
die gesamte Datei mit Schleifen zu durchlaufen. Dies erfor¬ 
dert jedoch wieder zahlreiche Lesezugriffe per Disk und wir 
haben uns vorgenommen, ein möglichst Disketten- und 
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Bild 6d. Ausgangsdatei nach 
dem 1. »Füllen« des Puffers. 


01 


02 


03 


04 


05 


06 


07 

NIMM 

08 

VERLIER 

09 

SUCHE 

10 

LIES 

11 

ZU 

12 

SAGE 

13 

HOLE 

14 

INVENTUR 

15 

TOETE 


T 


Bild 6e. Unser nächstes Ziel: 
Platz schaffen, um den Puffer 
wieder In die Ausgangsdatei 
zurückschreiben zu können. 


AUF 


06 

BERATE 


13 

BETE 


08 

BITTE 


15 

ESSE 


10 

GEBE 


04 


7 ^ 7 


PUFFER¬ 

ZEIGER 


Jetzt »freie« Sätze in der 
Ausgangsdatei. 


Jetzt »leere« Sätze in 
geordneter Reihenfolge. 


Bild 6f. Hier sehen Sie, wie nach dem Aussortieren der ersten Sätze 
Platz zum Zurückschreiben geschaffen wird. 


Laufwerk-schonendes zu entwickeln. Wir entscheiden uns 
deshalb für einen komplizierteren Weg, der jedoch nur sehr 
wenige Zugriffe mit dem Floppy-Laufwerk erfordert. 

Wie ich bereits sagte, ist der Puffer in zwei Hälften unterteilt 
- eine für die Sätze selbst und eine für die Satznummern. 
Werfen Sie bitte einmal einen Blick auf Bild 6f. Hier wird 
gezeigt, wie die Pufferhälfte, in der die Satznummern stehen, 
mit der kleinsten Satzzahl beginnend sortiert wird. Hierfür 
verwenden wir unser Quicksort-Unterprogramm, das aus 
Geschwindigkeitsgründen jedoch auf Zahlen-Sortieren 
modifiziert wird. 

Nachdem die Nummern-Pufferhälfte sortiert ist, wird ein 
Pufferzeiger gesetzt - der genau auf den ersten leeren Satz 
zeigt, der sich nicht mehr innerhalb des oberen Bereiches 
befindet (in unserem Beispiel SATZ 8). Dies ist nötig, damit 
versehentlich nicht Daten, die aus dem oberen Bereich 
»gerettet« werden sollen, in einen leeren Satz innerhalb des 
oberen Bereiches geschrieben werden. 

Bild 6g zeigt schließlich, wie die 4 Sätze aus dem oberen 
Bereich auf die 4 leeren Stellen des unteren Bereiches ver¬ 
teilt werden. Nun kann der Pufferinhalt wieder in die Verben- 
Datei zurückgeschrieben werden (Bild 6h). Die ersten 
M%-Sätze der Datei sind damit alphabetisch geordnet. 

Nun wird der Zeiger der Verben-Datei, der bisher an erster 
Stelle stand (weil wir die ganze Datei und nicht nur einen 
bestimmten Bereich sortieren wollen) um den Wert M% 
erhöht. Er zeigt sodann auf die Stelle, an der der noch unsor¬ 
tierte Bereich der Datei beginnt (Bild 6i). Der nächste Sortier¬ 
abschnitt kann nun beginnen. 

Sind alle Sortierabschnitte beendet - also jeweils Puffer mit 
den M% niedrigsten Elementen vom unsortierten Bereich fül¬ 
len, Sätze aus dem Pufferbereich in Sicherheit bringen, Puf¬ 
fer zurückschreiben etc. - liegt die komplette Verben-Datei 
sortiert vor (Bild 6j). 

Eine Frage ist noch offen ... 


Woher das BIER in SATZ 16 kommt? Nun, das haben Sie 
sich nach diesem Brocken Theorie mit Sicherheit verdient 
(und ich auch!)... 

Anschließend finden Sie das Listing 24 zum Sortierpro¬ 
gramm. Bitte studieren Sie auch die Dokumentation ausführ¬ 
lich, damit Sie später in der Lage sind, das Programm eigenen 
Vorstellungen entsprechend zu ergänzen beziehungsweise 
abzuändern. 


Dokumentation zum Super-Sort-Listing 


100-130 


200 - 295 


300 - 330 


400 - 470 


500 - 570 


Hier werden die Felder für die beiden Puffer¬ 
teile und den Quicksort definiert. Durch 
Ändern der Variable M% kann die Größe 
des Puffers geändert werden (momentaner 
Wert 300). 

Anfangsmenü und Eingabe aller Parameter. 
AN - EN, Bereich innerhalb der Datei NS, der 
sortiert werden soll. ZL, ZR begrenzen den 
Bereich innerhalb der Sätze, nach dem sor¬ 
tiert werden soll. Beispiel: MID$(A$,ZL,ZR) 
Vorbereitung für den ersten Sortiervorgang 
(Sortieren der M% niedrigsten Sätze, begin¬ 
nend ab dem Zeiger auf die Ausgangsdatei). 
ZD, Zeiger in Datei. Um die M% niedrigsten 
Sätze zu finden, wird die gesamte Datei von 
Satz ZD bis zum letzten Satz durchlaufen. 
VG$ wird als Vergleichsargument bestimmt. 
Hier wird mittels einer Schleife die Datei ab 
ZD bis Ende nach den M% niedrigsten Sät¬ 
zen durchsucht. Dabei wird jeweils der Ver¬ 
gleichsstring VG$ mit einem Satz des Such¬ 
bereiches verglichen. Wird ein Satz gefun¬ 
den, der kleiner als VG$ ist, so nimmt VG$ 
dessen »Wert« an. In der Variablen MM wird 
gespeichert, an welcher Stelle der Datei der 
momentane »Wert2«, der in VG$ gespei¬ 
chert ist, steht. Ist die Datei einmal durchlau¬ 
fen, so steht in VG$ der kleinste Satz des 
durchsuchten Bereiches. 

Der Satz MM, also die zugehörige Satznum¬ 
mer zum im Durchlauf gefundenen, niedrig¬ 
sten Wert VG$, wird in der Datei gelöscht. 
Löschen ist eigentlich eine falsche Bezeich¬ 
nung. In den Satz MM wird vielmehr ein »%« 
geschrieben. Dies ist notwendig, da ein lee¬ 
rer Satz, also A$= " " schließlich auch ein 
Satz ist. Leere Sätze sind kleiner als alles 
andere. Hat eine Datei, die sortiert wird, 
leere Sätze, so stehen diese nach dem Sor¬ 
tiervorgang immer an den ersten Stellen in 
der geordneten Datei. In der Datei, die sor¬ 
tiert werden soll, darf somit nie in einem Satz 
ein einzelnes »%« stehen, da es dann zu 
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Bild 6g. Die Sätze, die noch in 
dem Bereich stehen, in den der 
Puffer übertragen werden soll, 
werden in »Sicherheit« ge¬ 
bracht (in den unteren Teil der 
Ausgangsdatei). 


01 

AUF 

02 

BERATE 

03 

BETE 

04 

BITTE 

05 

ESSE 

06 

GEBE 

07 

ZU 

08 

NIMM 

09 

SAGE 

10 

VERLIER 

11 
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12 
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13 

SUCHE 

14 

TOETE 

15 

LIES 


Bild 6h. Der Puffer ist in die Aus¬ 
gangsdatei zurückgeschrieben 
worden. Die ersten M%-Ele- 
mente (Sätze) sind jetzt alpha¬ 
betisch geordnet. Die restliche 
Datei Ist noch unsortiert. 
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Bild 6i. Natürlich müssen jetzt 
auch noch die restlichen Ele¬ 
mente sortiert werden. Dazu 
wird einfach der Zeiger um den 
Wert M% erhöht. Die nächste 
Sortierrunde kann losgehen. 


Schwierigkeiten beim Lückenfüllen kommen 
kann. Wer auf»%«in seiner Datei nicht ver¬ 
zichten kann, kann im Listing das »%« auch 
durch ein anderes Zeichen ersetzen, das 
dann nicht verwendet werden kann (in der 
Datei). Nun wird geprüft, ob der Puffer 
schon voll ist (Zeile 540). ZP ist der Puffer¬ 
zeiger. Sein Wert wird immer dann um 1 
erhöht, wenn ein Satz in den Puffer ge¬ 
schrieben worden ist. Ist noch Platz im Puf¬ 
fer, geht es so weiter: Ein neues Vergleich¬ 
selement VG$ muß bestimmt werden. Dabei 
muß aufgepaßt werden, daß das neue VG$ 
niemals " " sein darf. Hierfür sorgt Zeile 
560. Nun folgt ein Rücksprung zu 400 - es 
wird wieder das kleinste Element gesucht. 

600 - 670 Der Puffer ist jetzt voll. Die Pufferhälfte 
MS(1)-MS(M%), in der die Satznummern 
gespeichert sind, wird nun mittels dem 
Quicksort-Unterprogramm sortiert (verglei¬ 
che Bild 6). Anschließend wird der Puffer¬ 
zeiger ZP auf den ersten Satz gesetzt (Leer¬ 
satz beziehungsweise Satz mit»%«), der im 
unteren Bereich liegt (Zeile 650 - 670). 

700 - 760 Hier werden die vollen Sätze, die noch 
immer im oberen Bereich stehen, evakuiert 
- also in die leeren Sätze des unteren Berei¬ 
ches geschrieben. Hierzu wird der obere 
Bereich mit einer Schleife durchlaufen. Wird 
ein voller Satz gefunden, so wird er in den 
Leersatz geschrieben, auf den der Puffer¬ 
zeiger gerade deutet. Der Pufferzeiger wird 
sodann um den Wert 1 erhöht. 

800 - 860 Der Puffer wird mittels Schleife in den oberen 

Bereich abZD (Zeiger auf Datei) geschrieben. 

900 - 950 Nun wird der nächste Sortierabschnitt vor¬ 
bereitet. Der Dateizeiger ZD wird um den 
Wert M% erhöht - also auf den Satz gestellt, 
bei dem der noch unsortierte Bereich der 
Datei beginnt. Ein neues Vergleichs- 
Element wird bestimmt. Der Pufferzeiger 
wird wieder auf den Wert 1 zurückgesetzt. 

Listing 24. Das Sortierprogramm für relative Dateien ► 


0 REM ******************************** <050> 

1 REM * SORTIERPROGRAMM FUER * <250> 

2 REM * RELATIVE DATEIEN * <250> 

3 REM * <C> 1985 BEI * <122> 

4 REM * MICHAEL NICKLES * <121> 

5 REM ******************************** <055> 

100 MX=300 : REM GROESSE DES PUFFERS <173> 

105 NX-MX :REM WERT VON MX SPEICHERN <235> 

110 DIM M*(MX) :REM PUFFER FUER SAETZE <19B> 

120 DIM MS(MX) :REM PUFFER FUER ZAHLEN <024> 

130 Dln LGC100),RG(100):Z=0:LG(1)=1:RG<1)= 

MX :REM FUER QUICKSORT <088> 

200 REM ANFANGSMENUE- 

- <B95> 

201 s <177> 

205 POKE 53280,0:POKE 53281,0:PRINT"CCLR,W 

HITE>"; <249> 

210 PRINT"CRVS0N,6SPACE>REL.DATEI SORTIERP 

ROGRAMM C9SPACE , RVOFF > * 1 2 3 4 5 * * * * * 11 ; <216> 

215 PRINT"CRVSON,9SPACE>VON MICHAEL NICKLE 

SCI2SPACE,RVOFF >" <040> 

220 INPUT"C2D0WNJDATEINAME ";N* <226> 

230 OPEN 15,8,15:REM FLOPPYKANAL AUF <169> 

235 PRINT#15,"10":REM INITIALISIEREN <138> 

240 OPEN 1,8,3,N* :REM REL.DATEI OEFFNEN <174> 

250 INPUT#15,A,B$:REM FEHLERABFRAGE <235> 

254 IF A< >0 THEN PRINT"CRVSONJERRORCRVOFF, 

2SPACE >";B*:END <189> 

270 PRINT «C2D0WN, 8 SPACE,RVSON >G CRVOFF JANZE 

DATEI SORTIEREN <172> 

275 PRINT"CD0WN.8SPACE,RVSON>TCRVOFF>EILBE 

REICH SORTIEREN <060> 

277 PRINT"CDOWN.BSPACE,RVSONJLCRVOFFIESEN <175> 

280 GET I*:IF I*<>"G"AND ISO"T"AND I*<>"L 

"THEN 280 <032> 

281 IF I*="L"THEN 10000 <164> 

285 IF I*="G"THEN AN-l:GOTO 290 <073> 

286 PRINT"CDOWNJBITTE GEBEN SIE ANFANG UND 

ENDE DESC5SPACE>BEREICHES AN, DER SOR 
TIERT"; <006> 

287 PRINT" WERDEN SOLL!" <1B5> 

2B8 INPUT"ANFANG "5 AN <038> 

289 INPUT"ENDEC3SPACE>";EN:IF AN>EN THEN P 

RINT"UNSINN!":GOTO 295 <126> 

290 PRINT"CDOWNJBITTE GEBEN SIE AN, NACH W 
ELCHEM STRING-BEREICH DIE SORTIERUNG <1B0> 

291 PRINT"ERFOLGEM SOLL!“ <135> 

292 INPUT"CDOWN>VON ZEICHEN ";ZL <053> 

293 INPUT"BIS ZEICHEN ";ZR <002> 

295 ZR=ZR—ZL+I <040> 

300 REM SORTIERVORGANG ANFANG - 

- < 202 > 

301 : <023> 

305 TI*="000000" :REM ZEIT AUF 0 <133> 

310 ZD=AN :REM ZEIGER SETZEN <037> 
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Bild 6j. 

Nach einer langen Tour-de- 
Force ist unsere Datei sor¬ 
tiert. Bitte beachten Sie 
Datensatz 16. Die Erklärung 
finden Sie auf Seite 34. 


Die komplett sortierte Datei. 


700 REM PLATZ FUER PUFFER SCHAFFEN- 

- C004> 

701 : <169> 

710 FOR I=ZD TO ZD+MX-1 <252> 

720 :SA=I:GQSUB 9000:GOSUB 9100 

«REM AS LESEN <155> 

729 PRINT AS :REM SUPERMIKE <111> 

730 :IF AS="@"THEN 760 <1B7> 

740 : SA-MSCZP)«GOSUB 9000:GOSUB 9200 

s REM LUECKE FUELLEN <155> 
745 : ZP-ZP+1 «REM P.ZEIGER +1 <136> 

760 NEXT I <0B0> 

800 REM PUFFER ZURUECKSCHREIBEN - 

- <099> 

B01 « <01S> 

810 SA=ZD <014> 

820 s FOR 1=1 TO MX <077> 

830 s AS=MSCI> <145> 

831 s PRINT AS «REM SUPERMIKE <08B> 

840 « GOSUB 9000«GOSUB 9200 <050> 

850 s SA=SA+1 <196> 

860 « NEXT I <242> 

900 REM NAECHSTEN SORTIERVORGANG VORBEREIT 

EN- <052> 

901 : <115> 

910 IF MXONXOR OXTHEN PRINT"SORTIERZEIT: 


320 

325 

330 

400 

401 

402 

410 

411 

430 

431 


432 

435 

440 

445 

450 

460 

465 

470 

500 

501 
510 


520 

530 

540 

550 

555 

560 

565 

570 

600 

601 

610 


620 

621 

625 

630 


650 

651 
655 
660 
670 


ZP=1 «REM PUFFERZEIGER 

SA=ZD:GOSUB 9000:GOSUB 9100 

«REM 1.SATZ LESEN 
VGS=AS «REM VERGL.SATZ 

REM DIE MX KLEINESTEN ELEMENTE VON SAT 

Z ZD BIS LETZTEN SATZ SUCHEN- 

PRINT"{DOWN,RVSON>";ZP;"<LEFT>. DURCHL 
AUF <4SPACE,RVOFF,DOWN >" 

SA=ZD+1:REM - BEGIN LOOP - 

PRINT SA,AS «REM SUPERMIKE 

«GOSUB 9000 «REM POSITIONIEREN 

IF A=50 THEN MX=Sö—ZD:EN=SA:GOTO 500 

«REM END 

LOOP 

IF SA=EN+1 THEN 500 

«REM END LOOP 

«GOSUB 9100 «REM AS LESEN 

«IF MIDSCAS,ZL,ZR)>MIDSCVGS,ZL,ZR)OR A 

S="@"THEN 460 


< 10B> 

<041 > 
<22B> 

<065> 

< 123> 

<027> 

<203> 

< 195> 

< 134> 


<058> 

;asi 


: VGS=AS 
: MM=SA 
SA=SA+1 
GOTO 411«REM 


REM NEUER V6S 
REM SATZNR. MERKEN 
REM NEXT SATZ 
CONT LOOP - 


REM KLEINSTES ELEMENT IM BEREICH ZD BI 
S ZD+MS = VGS WURDE GEFUNDEN - 

SA=MM:GOSUB 9000:AS="0"sGOSUB 9200 

«REM SATZ MM LOESCH 
EN 

MS( ZP )=VGS:MS < ZP )=MM 

«REM PUFFER FUELLEN 
ZP-ZP+1 «REM PUFFER—ZEIGER+1 

IF ZP>MXTHEN 600 «REM PUFFER VOLL 
REM NEUEN VGS SUCHEN 
5A=ZD 

GOSUB 9000«GOSUB 9100:IF AS«"ö"THEN SA 
-SA+lsGOTO 560 
VGS=AS:MM=SA 
GOTO 400 

REM PUFFER IST JETZT VOLL- 


?> 

< 149> 

<071 > 
<209> 
<014> 
<035> 

< 181 > 

< 192> 

< 173> 
<223> 


< 002 > 

<230> 

<087> 

<230> 

<029> 

<013> 

< 176> 

< 193> 
<014> 

< 008 > 
<069> 


PRINT"CDOWN,RVSON JPUFFERINHALT{RVOFF,D 
OWN>":FOR 1=1 TO MX«PRINT MS(I),MS<I)s 
NEXT IsREM SUPERMIKE 

REM MS<1)—MS(MX) WIRD JETZT MIT QUICKS 

ORT SORTIERT - 

: 

GOSUB 30000:REM AUFRUF QUICKS.UP 
PRINT"(DOWN,RVSON>SORTIERTER NUMMERPUF 
FER{RVOFF,DOWNJ":FOR 1=1 TO MXsPRINT M 
SCI)«NEXTsREM SUPERMIKE 
REM NEUEN PUFFERZEIGER SETZEN - 


<15B> 

<203> 
<0B9> 
< 124> 


ZP=1 

IF MS < ZP)<ZD+MXTHEN ZP=ZP+1:G0T0 660 
PRINT"ZP=";ZP «REM SUPERMIKE 


<192> 

< 174> 

< 119> 
<207> 
<0B9> 
<204> 


";TIS:PRINT"{2D0WN>*** FERTIG ***"«CLO 
SE 15:END 

920 ZD—ZD+MX« REM DATEIZEIGER ERHOEHEN 

924 ZP=1 «REM PUFFERZEIGER AUF 1 

925 SA=ZD 

926 GOSUB 9000:GOSUB 9100:IF AS="@"THEN SA 
=SA+1:GOTO 560 

927 VGS=AS:MM=SA 

930 IF MX>EN—ZD THEN MX=EN-ZD 

935 IF MX=EN—ZD THEN OX=l 

950 GOTO 400 «REM NAECHSTE SORTIERRUNDE 

9000 REM POSITIONIEREN *************** 

9001 : 

9010 : HBX=SA/256«LBX=SA—HBX*256 
9020 : PRINT#15,"P";CHRS(3);CHRS(LBX);CHRS 
CHBX)jCHRS(l) 

9030 s INPUT#15,A:REM FEHLERABFRAGE 
904™ -ETURN 

9100 REM SATZ LESEN *************** 

9101 : 

9110 : IF A=50 THEN RETURN: REM FEHLER 
9120 : INPUTttl,AS 
9130 RETURN 

9200 REM SATZ SCHREIBEN ************** 

9201 s 

9210 : PRINT#1,AS 
9230 RETURN 

10000 REM DATEI LESEN - 


10001 : 

10010 PRINT"{RVSONTLESEN / ENDE{RVOFF>“ 
10015 GET IS: IF ISO"L"AND ISO"E"THEN 100 
15 

10020 IF IS="E"THEN PRINT"{CLR>"sGOTO 270 
10030 INPUT"SATZNUMMER ";IA 

10034 PRINT"{RVSONJSATZ“;IA;"<LEFT>—“;IA+2 
0;"{RVOFF>“ 

10035 FOR SA=IA TO IA+20 

10040 : GOSUB 9000«GOSUB 9100 
10050 s IF LEN(AS)<40 THEN PRINT AS 

10060 ! IF LEN(AS)>=40 THEN PRINT AS; 

10070 NEXT SA 

100B0 GOTO 10010 

30000 REM QUICKSORT - 


30001 RG <1)=MX 

30010 Z=Z+1:IF LG(Z)>=RG CZ> THEN 30120 
30020 X-LGCZ)«Y=RGCZ> 

30030 VG=MS<INT(CX+Y)/2)) 

30040 IF X>Y THEN 30100 

30050 IF MSCXXVG THEN X=X+1:G0T0 30050 
30060 IF MS(Y)>VG THEN Y=Y-1«G0T0 30060 
30070 IF X>Y THEN 30100 
300B0 S=MS(X >:MS C X)=MS(Y)s MS < Y)=S 
30090 X=X+1:Y=Y—1:GOTO 30040 
30100 RG(Z+1)=Y«LB(Z+1)=LB(Z)«GOSUB 30010 
30110 LG <Z+1)=X:RG < Z+1)=RG(Z > sGOSUB 30010 
30120 Z=Z—1s RETURN 


< 106> 
<217> 

< 179> 

< 129> 

<032> 

<045> 

<227> 

<238> 

< 134> 

< 109> 
<087> 
<005> 

< 125> 
< 220 > 
<208> 
<031 > 

< 187> 
<068> 
<236> 
<042> 
<224> 
<031> 
<230> 

< 144> 


<086> 
<071 > 

< 114> 

< 189> 

< 195> 
<103> 

<047> 

<054> 

<09B> 

< 103> 
<015> 
<092> 
< 202 > 


<0B7> 

< 12B> 

< 166> 
< 011 > 
< 011 > 
<205> 

< 153> 
<241 > 
<235> 
<214> 
<099> 

< 1B4> 

< 104> 

< 161 > 


Listing 24. Das Sortierprogramm für relative Dateien 


36 


SONDERHEFT 4/86 
























































C64 


DATEIVERWALTUNG 


Sodann wird überprüft, ob der Puffer größer 
ist als der Bereich, der noch sortiert werden 
muß. Ist dies der Fall, so wird der Puffer so 
verkleinert (M% in Zeile 930), daß der 
Bereich, der noch sortiert werden muß, 
genau in ihn hineinpaßt. In Zeile 910 wird 
solch eine Puffergrößenveränderung fest¬ 
gestellt - die Sortierung ist beendet. Die 
Variable erfüllt den gleichen Zweck dann, 
wenn alles glatt aufgeht, und M% nicht 
erniedrigt wird. 

9000 - 9230 Unterprogramme zum Positionieren, Lesen 
und Schreiben eines Satzes auf eine relative 
Datei. 

10000-10080 Kleine Lese-Routine zum Orientieren vor 
dem Sortieren. 

30000 - 30120 Quicksort-Unterprogramm 

Ich möchte an dieser Stelle nochmals darauf hinweisen, 
daß das hier vorgestellte Sortierprogramm keineswegs das 
bestmögliche ist. Verbesserungen sind insbesondere in 
punkto Sätze aus dem oberen Bereich in die Leersätze über¬ 
tragen, möglich. Bevor Sie anhand eigener Ideen Verbesse¬ 
rungen vornehmen, sollten Sie jedoch stets bedenken, ob 
diese Verbesserungen Disketten und Floppy-Laufwerk scho¬ 
nend genug behandeln - also möglichst wenige Schreib- 
Lese-Operationen ausführen. 

Arbeiten mit dem Super-Sort-Programm 
Nach dem Programmstart müssen Sie den Namen der 
Datei angeben, die Sie sortieren möchten (Disk einlegenl). 

Danach haben Sie die Auswahlmöglichkeit unter den drei 
Menüpunkten »Ganze Datei sortieren«, »Teilbereich sortie¬ 
ren« und »Lesen«. »Lesen« funktioniert wie beim relativen 
Dateien-Editor, und dient hier lediglich zur Orientierung für 
Sie. Wählen Sie »Ganze Datei sortieren«, so wird die gesamte 
Datei sortiert. Das Satzende wird automatisch durch Abfra¬ 
gen des Floppykanals nach Fehler 50 ermittelt. 

»Teilbereich ermitteln« erlaubt es, einen bestimmten 
Bereich der Datei zu ordnen. Vor dem Sortieren müssen Sie 
noch angeben, nach welchem Stringbereich die Sortierung 
erfolgen soll - also welcher Stringbereich verglichen wird. 
Diese Funktion ist besonders wichtig beim Sortieren von 
Dateien mit mehr als einem Schlüssel. 

Alle Zeilen im Programm, die mit REM SUPERMIKE 
gekennzeichnet sind, können weggelassen werden (zur 
Geschwindigkeitserhöhung). Sie ermöglichen es, den gan¬ 
zen Sortiervorgang auf dem Monitor mitzuverfolgen. 

Bedenken Sie, daß das Sortieren von Dateien mit mehreren 
1000 Sätzen sehr viel Zeit in Anspruch nimmt. Es lohnt sich 
dann kaum, beim Computer zu warten. 

Geheimtip: Sortiervorgang vor dem Schlafengehen starten 
- am nächsten Morgen ist alles vorbei! 

Wer Angst vor einer zu hohen Stromrechnung hat, kann ein 
Schalter-Interface an den User-Port anschließen und das 
Programm so modifizieren, daß sich der Computer samt Peri¬ 
pherie am Ende des Sortiervorganges selbst abschaltet! 
Eine bessere Lösung 

Unser Super-Port funktioniert einwandfrei. Wer nur ab und 
zu sortieren will, ist mit ihm gut bedient. Die folgende Sortier¬ 
möglichkeit ist eine wesentliche Verbesserung gegenüber 
unserer ersten. Wer die Handhabung von Puffern und Zei¬ 
gern verstanden hat, wird auch mit der folgenden Theorie 
keine Probleme haben. 

Unser Super-Sort 1 benötigt noch ziemlich viele Disk- 
Zugriffe, um den Puffer zu füllen. Es gibt jedoch eine wesent¬ 
lich schnellere und schonendere Lösung: 

Theorie zum Super-Sort 2 

Auch hier wird wieder ein Puffer der Größe M% verwendet. 
Zu Beginn des Sortiervorgangs wird der Puffer einfach mit 

330 ? 


10 REM ******************************** <060> 

15 REM * PROGRAMM ZUM AENDERN VON * <000 > 

20 REM * DISKNAME UND ID * <035> 

25 REM ******************************** <075> 

30 PRINT"<CLR,RVSON >DISK-UTILITY 1<26SPACE 

,RVOFF>"; <024> 

35 PRINT"<2D0WN,5SPACEJDISK—NAME AENDERN<3 

SPACE>-<2SPACE>'1' <166> 

40 PRINT"<5SPACE}DISK—IDT3SPACEJAENDERN<3S 

PACE >—T2SPACE >'2' <017> 

42 PRINT"<5SPACE>ENDE <16SPACE1— C2SPACE1'3' <241> 

45 GET X*:IF X*<>"1"AND X*<>"2"AND X*<>"3" 

THEN 45 <205> 

46 IF X*="3"THEN PRINT"<2D0WN>*** FERTIG * 

**":END <033> 

50 OPEN 15,8,15!REM FLOPPYKANAL OEFFNEN <148> 

55 PRINT#15,"10":OPEN 1,8,3,"#":PRINT#15," 

Ul:3"0",18,0":IF X*="1"THEN 90 <205> 

60 PRINT#15,"B-P:3,162":GET#1,A*,B$,C*,D*, 

E*:PRINT"TDOWN}ALTER DISK-ID ISTCSPACE, 

RVSON,SPACE >"j A*; <070> 

65 PRINT B*;C*;D*;E*:INPUT"<DOWN>NEUER DIS 

K-ID ";F* <0 7 0> 

70 IF LEN (F*) < >4 THEN F*=LEFT*<F*+"C6SPACE 

>”.5> <097> 

75 PRINT#15,"B-P:3,162":PRINT#1,F*;:PRINT# 

15,"U2:3"DV",18,0 <11B> 

80 I*="I"+MID*(STR*<DV>,2):PRINT#15,I* <072> 

85 RUN <127 > 

90 PRINT#15,"B—P:3,144":R$="":FOR L=1 TO 1 

6:GET#1,A*:R*=R*+A*:NEXT L <029> 

95 PRINT“CDOWNJALTER DISK-NAME IST "CRVS 

ON >"R4"TRVOFF >" <0B9> 

100 INPUT"{DOWN1NEUER DISK-NAME ";NE* <148> 

105 NE*=LEFT*tNE*+"d4SPACE}",16) <248> 

110 PRINT#15,"B—P:3,144":PRINT#1,NE$;:PRIN 

T#15,"U2:3"DV",18,0":GOTO 80 <098> 


Listing 25. Disk-Utility 


_ 


51200 REM UP - DISK EINLEGEN- <123> 

51210 PRINT"{RVSONJfilTTE fil SK—SEITE";SIDE; 

"tLEFT,SPACE>EINLEGEN !{RVOFFV:POKE 
198,0:WAIT 19B,1 <174> 

51240 OPEN 2,8,2,"#":PRINT#15,"Ul 2 0 18 0 

" : PR I NT# 15 , " B-P “ ; 2 5 162 : GET#2 , I * < 0B9 > 

51250 CLOSE 2:IF SIDE<>VAL<I»)THEN 51200 <090> 

51260 RETURN <007> 


Listing 26. Ein nützliches Unterprogramm 


den ersten M%-Sätzen der Datei gefüllt. Wir suchen also 
nicht wie bei Super-Sort 1 die M% niedrigsten Sätze heraus. 

Nun wird der gesamte Pufferinhalt mit dem Quicksort sor¬ 
tiert. Der nächste Schritt besteht darin, die gesamte Datei 
vom Zeiger beginnend bis zum Ende zu durchlaufen. Der Zei¬ 
ger steht beim ersten Sortierabschnitt bei Satz M%, beim 
zweiten Durchlauf auf 2mal M% etc. Bei jedem eingelesenen 
Satz wird geprüft, ob dieser kleiner ist als der größte Satz im 
Puffer (steht beim sortierten Puffer an letzter Stelle). Ist dies 
nicht der Fall, wird der nächste Satz gelesen. Tritt aber nun 
der Fall ein, daß der Satz kleiner als der größte Satz des Puf¬ 
fers ist, passiert folgendes: 

Wir nennen den eingelesenen Satz nun einmal A$. A$ muß 
nun irgendwie in den Puffer geschrieben werden. Anhand 
der binären Suchmethode (an anderer Stelle des Kurses 
beschrieben) ermitteln wir, wo im Puffer A$ eingefügt werden 
muß. Der letzte Satz im Puffer wird dadurch aus dem Puffer 
hinausgeworfen (wir müssen schließlich Platz für A$ schaf¬ 
fen). Damit er jedoch nicht verlorengeht, wird er wieder in die 
Datei zurückgeschrieben - und zwar an die Stelle, an der A$, 
das sich nun im Puffer befindet, gestanden hat. 

Diese Methode hat den Vorteil, daß pro Pufferfüllung die 
Datei nur ein einziges Mal durchlaufen werden muß. Auch das 
Problem, Platz für den Puffer-Zurückschreibevorgang zu 
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schaffen, entfällt. Bei Methode 2 wird zwar wesentlich mehr 
innerhalb des Rechners sortiert, es wird jedoch soviel Zeit 
bei Diskoperationen gespart, daß Methode 2 wesentlich 
schneller und Disk-schonender ist. 

Wie gesagt, für diesen Kurs reicht Super-Sort I vollkommen 
aus. Wer viel sortieren will, sollte sich jedoch ein Sortierpro¬ 
gramm der oben beschriebenen Methode schreiben. 


Trick am Rande: Diskettenseite abfragen 


An dieser Stelle möchte ich einmal ein Problem abhandeln, 
das immer dann auftaucht, wenn man Programme schreiben 
will, die sich über zwei oder mehrere Disk-Seiten erstrecken. 
Bei Adventure-Spielen und Kl-Programmen, die sich selbst 
verwalten, ist dies besonders häufig der Fall. Im Programm 
kommt dann früher oder später die Anweisung BITTE DISK¬ 
SEITE X EINLEGEN. Wie kann man nun innerhalb eines Pro¬ 
grammes feststellen, ob auch die richtige Disk-Seite einge¬ 
legt worden ist? Dem Anfänger bereitet dies oft Schwierigkei¬ 
ten, da Probleme wie diese nicht im Bedienungshandbuch 
des Floppy-Laufwerks behandelt werden. Die Lösung liegt 
einfach darin, den ID der eingelegten Disk einzulesen. Dies 
setzt natürlich voraus, daß der ID der ersten Diskette 01, der 
der zweiten 02 etc. beträgt. Im folgenden finden Sie deshalb 
zunächst ein kleines Hilfsprogramm, mit dem es möglich ist, 


Diskname und ID einer Disk nachträglich zu verändern ohne, 
daß die Disk formatiert werden muß beziehungsweise ein 
sich auf ihr befindliches Programm verloren geht (Listing 25). 

Beachten Sie bitte, daß der Diskname nicht mehr als 17 und 
der Disk ID nicht mehr als 5 Zeichen Länge haben darf. Nun 
brauchen wir nur noch ein kleines Basic-Unterprogramm, mit 
dem der Disk-ID gelesen werden kann (Listing 26). 

Bevor das Programm mittels GOSUB 51200 aufgerufen 
werden kann, muß der Floppykanal 15 geöffnet sein. 
Anschließend muß noch durch die Variable SIDE (bezie¬ 
hungsweise Sl) bestimmt werden, welche Seite eingelegt 
werden soll. Das Unterprogramm führt erst dann ein RETURN 
aus, wenn die gewünschte Seite eingelegt ist. Innerhalb 
eines Basic-Programmes sieht dies dann so aus: 

10 OPEN15,8,15 
20 SIDE=2 
30 G0SUB51200 
40 END 

Es bietet sich an, den ID der ersten Seite als 1SIDE, den der 
zweiten Seite als 2SIDE etc. zu benennen, da eine einzige 
Ziffer beim ID nicht ausreicht! 

Vergessen Sie auch nicht aus Sicherheitsgründen, nach 
einem Disk-Wechsel immer neu zu initialisieren. 

Sie können dieses Unterprogramm leicht in eigenen Basic- 
Programme einbauen. Das Disk- und ID-Änder-Programm 
speichern Sie am besten wieder auf Ihrer Utility-Disk, auf der 
sich auch die Editoren befinden. (M. Nickles/bs) 
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KÜNSTLICHE INTELLIGENZ 


C 64 


Kiinsllidie 

Intelligenz 

Das in letzter Zeit so oft benutzte Schlagwort Kl 
gilt nicht nur für Großcomputer. Machen Sie Ihren 
C64 zur Denkmaschine! 

H ier beginnt der zweite große Hauptteil des Kurses. Von 
nun an geht es um Künstliche Intelligenz. Schön 
gesagt, aber was ist Künstliche Intelligenz eigentlich 
- nun, ganz einfach, eine künstliche Form von normaler 
menschlicher Intelligenz!?! Hier wirft sich jedoch gleich die 
Frage auf, was Intelligenz eigentlich ist. Seit langem bereits 
streiten sich Mathematiker, Logiker und Philosophen darum, 
wie man Künstliche Intelligenz oder Intelligenz überhaupt 
definieren soll. Die Frage, ob der Mensch ein intelligentes 
Wesen ist, wird wohl jeder (Mensch zumindest) mit Ja beant¬ 
worten. Es bietet sich daher an, einmal einzelne Handlungen 
eines Menschen zu betrachten, um dann zu begutachten, ob 
diese Handlungen als intelligent bezeichnet werden können 
oder nicht. Auf besonders interessante Aspekte in dieser 
Hinsicht werde ich im Kapitel »Irrgärten und Mäuse« zu spre¬ 
chen kommen. Ich muß zugeben, daß ich mich bei der 
Zusammenstellung der Themen zum Kursabschnitt Künstli¬ 
che Intelligenz wirklich sehr schwer tat. Wo fängt man am 
besten an? Wo hört man auf? Wo setzt man Schwerpunkte? 

Als eine große Hilfe bei der Auswahl des Kursinhalts er¬ 
wies sich mir das Buch »Gödel, Escher, Bach - ein endlos 
geflochtenes Band« von Douglas E. Hofstadter 
(ISBN 3-608-93039-X). Aufmerksam auf dieses Buch 
wurde ich durch den Logeleien-Kurs des 64’er, in dessen 
Rahmen dieses Buch empfohlen wurde. Es ist in der Tat eine 
Art von Bibel für alle Kl-Freaks. Obgleich es keinerlei Kl- 
Programme in Form von Listings zum Abtippen enthält, geht 
das Buch auf alle Bereiche der Kl theoretisch in ausführli¬ 
chem Maße ein. Das 800 Seiten starke Buch ist an vielen 
Stellen sehr kompliziert und unter Voraussetzung mathemati¬ 
scher Kenntnisse geschrieben. Trotzdem findet man in ihm 
zahlreiche Anregungen zum Schreiben von eigenen Kl- 
Programmen. Je mehr ich mich mit Kl und dem Schreiben die¬ 
ses Kursabschnitts beschäftigte, umso mehr drängte sich in 
mir eine Frage auf: Die Frage, was uns Kl eigentlich bringt - 
warum soll sich der Mensch den Kopf zerbrechen, um eine 
Maschine zu konstruieren, die so wie er (oder vielleicht noch 
besser?) denken und grübeln kann? Ich habe diese Frage bis¬ 
her noch nicht beantworten können und glaube auch nicht, 
in allernächster Zukunft eine Antwort zu finden. Ich weiß 
jedoch, was uns Kl auf dem C 64 im Rahmen dieses Kurses 
bringen soll: Nichts weiter als Spaß und Unterhaltung... 

Bei Kl-Programmierung auf dem C64, oder sollte ich viel¬ 
leicht besser sagen, Programmierung von simulierten 
menschlichen Denken, können in der Tat erstaunliche Resul¬ 
tate erzielt werden. 

Besonders interessant ist dabei die Tatsache, daß zum 
Erzielen dieser Resultate oft sogar geringe Basic-Kenntnisse 
ausreichen. Die Programmierung von Kl-Programmen erfor¬ 
dert ganz andere Überlegungen als die, die zum Schreiben 
von Spielen und Anwendungsprogrammen notwendig sind. 
Es geht einfach darum, simple logische Abläufe und Regeln 
in Programme umzusetzen. Das Problem besteht lediglich 
darin, die Logik in gewissen Abläufen zu erkennen. Auch 
hierzu werden im Kapitel »Irrgärten und Mäuse« wahre 
Musterbeispiele gegeben. 


Bei der Einleitung zur Kl möchte ich keine großen Worte 
über Grundlagen des logischen Denkens, logische Schluß¬ 
folgerungen oder Reproduzierbarkeit von Grundwissen ver¬ 
lieren. Über diese Themen wurden in letzter Zeit mehrere 
Artikel in den verschiedenen Fach- und Computerzeitschrif¬ 
ten veröffentlicht. Es geht mir vielmehr darum, Ihnen anhand 
von praktischen Beispielen (Programmen) zu zeigen, wie Kl- 
Simulationen funktionieren. 

Am Ende dieses Kursteils können Sie mit Sicherheit selbst 
entscheiden, was Sie von Kl halten sollen. 

Genug der Einführung, jetzt gehfs endlich los... 


Das NIM-Spiel 


Jeder kennt es und hat es bestimmt auch schon einmal 
gespielt. Auf dem Tisch liegt eine Anzahl von Gegenständen 
(meist sind es Streichhölzer). Zwei Spieler dürfen nun 
abwechselnd 1, 2 oder 3 Gegenstände wegnehmen. Wer 
den letzten Gegenstand vom Tisch nehmen muß, hat schließ¬ 
lich verloren. 

Listing 1 simuliert einen äußerst starken Spielpartner beim 
NIM-Spiel. 

Sie werden schnell merken, wie spielstark dieses Pro¬ 
gramm ist. Zweifellos fraglich ist es allerdings, ob hier Kl am 

0 REM *************************** 

< 109> 

1 REM * KI-PROGRAMM 1 * 

<081 > 

2 REM * 1985 BY MICHAEL NICKLES * 

<157> 

3 REM *************************** 

< 112> 

10 REM DATA’S LESEN 

<162> 

20 DIM X(20) 

<088> 

30 FOR 1 = 1 TO 20 

<049> 

40 READ X(I) 

<253> 

50 NEXT I 

< 134> 

60 H, =20: REM ANZAHL DER HOELZER 

100 PRINT"{CLR1VOR IHNEN LIEGT EIN HAEUFCH 

<034> 

EN MIT 20<4SPACE>HOELZERN." 

110 PR INT "SIE UND DER COMPUTER KOENNEN NUN 

<051 > 

120 PRINT"ABWECHSELND JE 1, 2 ODER 3 HOELZ 

< 112 > 

ER" 

< 130> 

130 PRINT"WEGNEHMEN." 

140 PRINT"WER DAS LETZTE HOELZCHEN NEHMEN 

< 115> 

MUSS," 

<062> 

150 PRINT"HAT VERLOREN." 

<03B> 

220 INPUT"MOECHTEN SIE ANFANGEN CJ/N)";I* 

<163> 

230 IF I*<>"J"AND I*<>"N"THEN 220 

240 IF I*="J"THEN PRINT"{DOWN>OK. SIE FANG 

<072> 

EN AN.":GOTO 300 

250 IF I*="N"THEN PRINT"<DOWN>OK. DANN BEG 

<098> 

INNE ICH.":GOTO 400 

<249> 

300 : 

<022> 

301 REM SPIELER IST AM ZUG 

<036> 

302 : 

<024> 

310 INPUT"WIEVIELE HOELZER"jN 

320 IF NOl AND N<>2 AND N< >3 THEN PRINT"S 
IE KOENNEN NUR 1, 2 ODER 3 NEHMEN !"«B 

<069> 

OTO 310 

<0B2> 

330 HZ=HZ-N 

340 IF HZ<=0 THEN PRINT"SIE HABEN VERLOREN 

<044> 

!":END 

<069> 

400 : 

< 122 > 

401 REM COMPUTER IST AM ZUG 

< 141 > 

402 : 

< 124> 

410 N=X(HZ) 

<092> 

420 PRINT"ICH NEHME" 5 N;"HOELZER." 

<083> 

430 HZ=HZ-N 

440 IF HZ=0 THEN PRINT"SIE HABEN GEWONNEN 

< 144> 

!":END 

< 175> 

500 : 

<222> 

501 REM HOELZERANZAHL FESTLEGEN 

<164> 

502 : 

510 PRINT"ES LIEGEN JETZT NOCH”;HZ}"HOELZE 

<224> 

R DA ! " 

<165> 

520 GOTO 300 

1000 DATA 1,1,2,3,1,1,2,3,3,1,2,3,2,1,2,3, 

<212> 

1 ,1,2,3 

Listing 1. Ein starker Gegenspieler im NIM-Spiel 

< 151 > 


40 
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Werk ist. Stellen wir uns doch einmal zwei Kinder vor, die zum 
ersten Mal das NIM-Spiel mit Streichhölzern spielen. Die 
ersten Spiele werden so verlaufen, daß die Kinder abwech¬ 
selnd 1,2 oder 3 Hölzer wegnehmen, ohne groß nachzuden¬ 
ken, bis schließlich eines das letzte Hölzchen nehmen muß 
und als Verlierer dasteht. Wir nehmen einmal an, es liegen 
noch 4 Hölzer auf dem Tisch und Kind A ist dran. Ohne große 
Überlegung weiß es, daß es genau 3 Hölzer - nicht mehr (darf 
es gemäß der Regel ja auch gar nicht) und nicht weniger - 
wegnehmen muß, um Kind B das letzte Holz aufzuzwingen 
und so zu gewinnen. Würde Kind A nur 2 Hölzer wegnehmen, 
so würden auf dem Tisch 2 Hölzer liegen bleiben. Kind A weiß 
in diesem Fall, daß Kind B sodann 1 Holz nehmen und 
dadurch gewinnen würde. Es ist also mehr eine Frage der 
Zeit, bis die Kinder folgende Regel beziehungsweise Logik 
des NIM-Spiels durchschauen: 

Regel: Liegen nur noch 4 Hölzer auf dem Tisch, so ist der¬ 
jenige der Sieger, der bei dieser Stellung am Zug ist. Dies 
setzt natürlich voraus, daß der Ziehende logisch vorgeht - 
also 3 Hölzer wegnimmt und nicht dummerweise weniger und 
so den gewissen Sieg verschenkt! 

Aufgrund dieser Regel wird es also jeder anstreben, am 
Zug zu sein, wenn sich 4 Hölzer auf dem Tisch befinden. Hin¬ 
gegen will niemand am Zug sein, wenn sich nur noch 5 Hölzer 
auf dem Tisch befinden, da er dann sicher verliert. Es wird frü¬ 
her oder später also jeder Spieler daraufhin arbeiten, daß der 
Gegner dann am Zug ist, wenn 5 Hölzer auf dem Tisch liegen. 
Und genau das tut das obige Programm. Voraussetzung ist 
jedoch, daß die Anzahl der Hölzchen bekannt ist, denn nur 
dann kann bis zum letzten Zug vorausberechnet werden. Bei 
unserem Programm sind 20 Hölzer festgelegt. Entspre¬ 
chend sieht die Strategie des Programms aus, die im Feld X 
gespeichert ist. 

Bild 1 zeigt die Vorgehensweise des Programms - wieviele 
Hölzer es nimmt, wenn eine bestimmte Anzahl von Hölzern 
auf dem Tisch liegt. 

Bild 2 zeigt, auf welche 5 Punkte das Programm hinarbei¬ 
tet, um den Spieler verlieren zu lassen. Aus Bild 2 geht auch 
hervor, daß der Spieler keine Gewinnchance hat, wenn er das 
Programm anfangen läßt. Liegen 20 Hölzer auf dem Tisch 
und das Programm beginnt, so nimmt es gleich 3 Hölzer weg. 
Der Spieler ist also erst beim ersten kritischen Punkt dran. 
Egal, was er macht, beim nachfolgenden Zug bringt ihn das 
Programm zum nächsten kritischen Punkt. Dies spielt sich 
solange ab, bis der Spieler beim letzten kritischen Punkt 
angelangt ist und somit verloren hat. 

Es gibt für den Spieler also nur eine einzige Gewinn¬ 
chance: Er muß dafür sorgen, daß das Programm immer bei 
den kritischen Punkten am Zug ist. Bei Bild 2 ist noch etwas 


x(20>-X(i) 

- ► 



Zug, wenn 20 Hölzer Kritischer Punkt, Zug. wenn 1 Holz 
auf dem Tisch liegen. Wer hier am Zug auf dem Tisch liegt, 
ist, verliert! 


Bild 1. Strategie des Spielprogramms 



anderes auffällig: Alle kritischen Punkte haben von ihren 
benachbarten kritischen Punkten den gleichen Abstand! 
Nehmen wir einmal an, der Spieler beginnt und nimmt sofort 
3 Hölzer weg. Das Programm landet so beim ersten kriti¬ 
schen Punkt und nimmt aus Verlegenheit ein Holz weg. Um 
das Programm zum nächsten kritischen Punkt zu bringen, 
muß der Spieler jetzt 3 Hölzer wegnehmen. Er muß also viel, 
viel Glück haben, wenn er gewinnen will. 

Die Gewinn-Reihenfolge lautet: 3, 3, 2, 1, 3. 

Dieses Kl-Programm ist so primitiv, daß es auf jedem pro¬ 
grammierbaren Taschenrechner, ja sogar mit drei Lämpchen, 
ein paar Drähten, Batterie und Schrauben verwirklicht wer¬ 
den kann (ist eine nette Geschenkidee!). 

Ich hoffe, daß es mir anhand dieses Spiels gelungen ist, 
Ihnen schon etwas klarzumachen, wie man beim Program¬ 
mieren von Kl-Problemen Vorgehen muß. Die Vorgehens¬ 
welse sieht In etwa so aus: 

1. Einfach mal mit dem Problem herumspielen, herumprobie¬ 
ren. Also ausprobieren: WAS PASSIERT WENN... 

2. Ausprobieren, ob irgendwo logische Abläufe vorhanden 
sind (Bei unserem Beispiel: Logisch, daß man von 4 Höl¬ 
zern auf dem Tisch 3 wegnehmen muß, wenn man am Zug 
ist und gewinnen will). 

3. Versuchen, einfache Regeln aufzustellen. 

4. Ein Gesamtkonzept entwickeln. 

5. Skizzieren, Ablaufpläne erstellen. 

6. Programmieren. 

Sie sehen schon: Dem eigentlichen Programmieren der 
Lösung gehen zahlreiche Einzelschritte voran. 

Die Gültigkeit dieser fünf Grundregeln kommt auch im fol¬ 
genden Kapitel voll und ganz zur Geltung - beim Programmie¬ 
ren von Software-Mäusen, die sich in einem Labyrinth 
zurechtfinden lernen. 

Irrgärten und Mäuse - 
Grundlagen des »Badetracking« 


Ein weiteres interessantes Gebiet, das uns noch tiefer in die 
Grundlagen der Künstlichen Intelligenz einführen wird, ist 
das Programmieren von »Mäusen«, die den Weg durch ein 
Labyrinth finden können - also Kl-Programme, die Irrgärten 
»knacken« können. In den USA und in Japan werden zu die¬ 
sem Thema regelrechte Wettkämpfe ausgetragen. Es geht 
darum, einen kleinen Roboter so zu konstruieren und pro¬ 
grammieren, daß er möglichst schnell den Weg durch ein 
Labyrinth finden kann. Die Robotermäuse sind hierbei regel¬ 
rechte Mini-Wunderwerke, zusammengebaut aus Motoren, 
Zahnrädern, Sensoren und natürlich vollgepackt mit Elektro¬ 
nik und einem Mikroprozessor. Wir wollen uns in diesem Kurs 
natürlich nicht mit Grundlagen der Mechanik zum Bau einer 
solchen Robotermaus vertraut machen (was unheimlich viel 
Geschick erfordert), sondern vielmehr ein Steuerprogramm 
für so eine Maus entwickeln. 

Betrachten Sie bitte einmal das Labyrinth in Bild 3: 

Als simpel oder primitiv kann man dieses Labyrinth mit 
Sicherheit nicht bewerten, denn man sieht auf den ersten 
Blick lediglich Eingang (Pfeil Ecke links unten) und Ausgang 
(Pfeil Ecke rechts oben), jedoch keine direkte Verbindung 
zwischen den beiden. Wir wollen an dieser Stelle einmal ver¬ 
suchen zu analysieren, wie ein Mensch vorgeht, wenn er den 
Weg durch dieses Labyrinth finden will. Zunächst einmal sieht 
man, wie bereits gesagt, auf einen Blick Eingang und Aus¬ 
gang des Irrgartens. Kaum jemand wird jetzt versuchen, eine 
bestimmte Taktik des Vorgehens zu entwickeln - vielmehr tritt 
sofort das menschliche Auge in Kraft. Es versucht zunächst, 
eine möglichst direkte Verbindungslinie zwischen Eingang 
und Ausgang zu finden. In Sekundenschnelle stellt es dabei 
fest, daß ein direkter Weg nicht existiert - unter »direktem 
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Weg« verstehe ich einen Weg, der nur sehr wenige Verzwei¬ 
gungen hat. Aus menschlicher Sicht ist für diesen Vorgang 
kein lobenswerter Denkprozeß, keine Intelligenz notwendig. 
Der nächste Schritt ist schon etwas komplizierter. Wer zum 
allererstenmal mit einem solchen Irrgarten konfrontiert wird - 
zum Beispiel kleine Kinder - versucht nun vom Eingang aus¬ 
gehend verschiedene Wege - meistens in Richtung Ausgang 
orientiert - anzusteuern. Man bedient sich hierbei Hilfsmittel 
wie dem Zeigefinger oder einem Stift zum Entlangfahren des 
gegangenen Weges. 

Der versierte Irrgarten-Freak geht jedoch sicherlich anders 
vor. Aus seiner Erfahrung mit früheren Irrgärten hat er gelernt, 
daß Irrgartenkonstrukteure meistens einen sehr indirekten 
Weg vom Eingang zum Ausgang wählen (also möglichst viele 
Verzweigungen), um den Irrgarten möglichst kompliziert zu 
machen. Der Erfahrene wird mit Sicherheit auch nicht jeden 
erdenklichen Weg bis zum Ende ausprobieren. Er sieht 
gleich, wo Sackgassen-Gebiete sind, und geht erst gar nicht 
in diese hinein. Ein Sackgassengebiet ist ein Gebiet des Irr¬ 
gartens, wo sich ein Weg in verschiedene Richtungen auf¬ 
teilt, die jedoch alle in Sackgassen enden. Ein ganz deutli¬ 
ches Sackgassengebiet befindet sich in unserem Labyrinth 
in der linken unteren Ecke, gleich neben dem Eingang. 

Sicherlich haben Sie an dieser Stelle bereits bemerkt, daß 
ich auf die Irrgärten und Mäuse besonders genau eingehen 
möchte. Dies hat seinen Grund, denn an diesem Beispiel läßt 
sich sehr gut demonstrieren, wie man Vorgehen muß, wenn 
man intelligente Abläufe programmieren will. 

Beim Programmieren von Action-Spielen und auch Adven- 
tures muß man sich oft keine allzu großen Grundgedanken 
machen. Natürlich ist es oft schwer, Ideen programmtech¬ 
nisch umzusetzen (sei es das Programmieren von schnell 
bewegter Grafik oder auch Parser für Adventures), man hat 
jedoch gewisse Regeln, nach denen man sich richten oder 
an denen man festhalten kann. Bei Kl-Programmierung ist 
dies anders: Die Kl steckt noch in ihren Kinderschuhen und 
wird es höchstwahrscheinlich auch bleiben, solange der 
Mensch nicht eine Frage geklärt hat. Die Frage, was Intelli¬ 
genz eigentlich ist, wann ein bestimmer Prozeß als intelligent 
bezeichnet werden kann und wann nicht. Man denke hierbei 
zum Beispiel an jemanden, der sich mit Hintergedanken, also 
mit Absicht dumm stellt, weil er glaubt, damit etwas besser 
erreichen zu können. Man stellt sich zum Beispiel dumm, weil 
man zu faul ist, etwas lang und breit zu erklären (zum Beispiel 
Grundlagen der Kl....). Was ich sagen will ist, daß sich aus 
dem Verhalten eines Menschen heraus nie beurteilen läßt, ob 
eine Tat nun auf mangelnder Intelligenz oder auf bewußter 
Simulation von mangelnder Intelligenz beruht. Ich werde mich 
deshalb auch hüten, an dieser Stelle zu erörtern, wieviel 
beziehungsweise ob überhaupt Intelligenz zum Knacken von 
Labyrinthen erforderlich ist. Wir wollen deshalb nun vielmehr 
versuchen, herauszufinden, wie man ein Programm, das sich 
in Irrgärten zurechtfindet, programmiert und danach Analo¬ 
gien zum menschlichen Vorgehen suchen. 

Ein Profi im Labyrinth 


Wie wir festgestellt haben, beruht die menschliche Vorge¬ 
hensweise hauptsächlich auf visueller Basis, dem Durch¬ 
checken des Irrgartens mittels des Auges. Dies ist einfach, 
da wir das gesamte Labyrinth mit allen Wegen auf einmal 
überblicken können. Was wird jedoch, wenn wir es mit einem 
riesigen Labyrinth zu tun bekommen - zum Beispiel auf einer 
mehrere Quadratmeter umfassenden Papierfläche? Hier ist 
unsere »Optik« schnell überlastet Völlig unbrauchbar wird 
die visuelle Methode schließlich, wenn wir uns vorstellen, 
daß es sich bei dem imgarfen Uni einen unterirdischen, unbe¬ 
leuchteten Komplex handelt in dem wir uns direkt befinden. 


Um dann den Ausgang zu finden, braucht man eine gute 
Orientierungsfähigkeit (Intelligenz???) und eine große Por¬ 
tion Glück. 

In dieser Situation können wir uns eine Robotermaus vor¬ 
stellen. Sie befindet sich direkt im Irrgarten, hat keinen 
Gesamtüberblick, ja, weiß nicht einmal, in welcher Richtung 
sich der Ausgang befindet. 

Was die visuelle Basis anbelangt, so wird der Mensch 
einem Homecomputer mit 64 KByte wie dem C64 immer 
überlegen sein. Wenn es jedoch um Orientierungsfähigkeit 
im Dunkeln geht wie zum Beispiel in Irrgärten, die man nicht 
auf einmal überblicken kann (weil man sich zum Beispiel 
selbst in ihnen befindet), ist uns unser C 64 bei geschickter 
Programmierung bei weitem überlegen, da er Tausende von 
Schritten speichern kann, also eine Karte vom Irrgarten in sei¬ 
nem »Gedächtnis« mitschreibt. Der Mensch hingegen verliert 
je nach persönlicher Fähigkeit bereits nach (im Verhältnis 
zum Computer betrachtet) wenigen Abzweigungen die 
Orientierung. 

Oder vielleicht doch nicht? 

Immer an der Wand lang 


Im folgenden wollen wir ein einfaches Labyrinth betrachten 
- die Theorie läßt sich jedoch auch auf jegliche anderen Laby¬ 
rinthe übertragen. 

Das folgende »Schema« zeigt, wie man auch im Dunkeln, 
allein durch Tastsinn, todsicher aus jedem auch noch so kom¬ 
plexen Labyrinth herausfinden kann. Bei allen Experimenten 
setzen wir selbstverständlich logisch aufgebaute Labyrinthe 
voraus, das heißt, geht man von Ort A in nördliche Richtung, 
um zu Punkt B zu gelangen, so gelangt man von B zurück zu 
A, inde™ man sich nach Süden bewegt. Bei Labyrinthen in 
Adventures (besonders ZORK I) ist dies oft nicht der Fall! 

Das Prinzip ist ganz einfach. Angenommen, wir betreten 
einen stockdunklen Irrgarten. Wir berühren sofort beim Ein¬ 
treten mit der linken Hand die linke Wand und lassen diesen 
Kontakt für die gesamte Zeit, die wir uns im Labyrinth aufhal¬ 
ten, nicht abbrechen. Das heißt, wir laufen immer vorwärts, 
also nie zurück in die Richtung, aus der wir kommen und 
schleifen beim Vorwärtsgehen unsere linke Hand die Wand 
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entlang. Vorwärtsgehen kann natürlich auch um die Ecke 
gehen bedeuten. Wichtig ist nur, daß die linke Hand nie den 
Kontakt mit der Wand verliert. 

Wenn Sie das Bild 4 betrachten und einmal mit Ihrem linken 
Zeigefinger (stellvertretend für die linke Hand) die rote Linie 
(in Pfeilrichtung) vom Eingang zum Ausgang entlangfahren, 
werden Sie das Prinzip verstehen. 

Hat man erstmal durchgeblickt, ist die Methode sonnenklar 
und absolut logisch, ja, sogar primitiv - aber draufkommen 
muß man halt erst einmal. Trotzdem ist es fantastisch, wie ein¬ 
fach man einen irrsinnig komplexen Irrgarten unter Verwen¬ 
dung einer solch einfachen Regel knacken kann. Wer noch 
mißtrauisch ist (und das sollten Sie bei Kl-Programmen immer 
sein!), kann unser Lösungsprinzip einmal auf den großen Irr¬ 
garten (Bild 1) anwenden - es funktioniert garantiert! Wie 
jede Medaille ihre Kehrseite hat, so hat jedoch auch unsere 
Methode ihre Haken. Sie ist zum Beispiel nur auf zweidimen¬ 
sionale Irrgärten anwendbar, das heißt, bei Irrgärten, in denen 
es auch auf und ab geht (zum Beispiel mit Treppen und Lei¬ 
tern), sind wir aufgeschmissen. Auch bei unlogischen Irrgär¬ 
ten, bei denen Richtungsänderungen irreversibel sind, kom¬ 
men wir nicht sehr weit. Sie können nun einwerfen, daß es 
beim Irrgarten (Bild 4) viel schneller gehen würde, wenn man 
sich an der rechten Wand (Hand) orientieren würde. Das 
stimmt, aber auch hier haben Sie wieder Gebrauch von der 
visuellen Methode gemacht - und die gilt nicht. Im Prinzip ist 
es jedoch vollkommen egal, ob wir uns für rechts oder links 
entscheiden. Wichtig ist nur, daß man seine Entscheidung 
beim Laufen im Irrgarten immer beibehält. Interessant ist auch 
die folgende Tatsache: Linker und rechter Lösungsweg 
schneiden sich nie! - Ausprobieren! 

Allerdings hat unsere Methode auch noch einen anderen 
Nachteil - man lernt nichts daraus. Das heißt, wenn man den 
Irrgarten ein zweites, drittes oder gar noch öfteres Mal durch¬ 
läuft, braucht man immer die gleiche Zeit dazu (vorausge¬ 
setzt, man bewegt sich immer mit der gleichen Geschwindig¬ 
keit vorwärts). Günstiger wäre es, wenn man sich alle Sack¬ 
gassen im Gedächtnis speichern würde und bei späteren 
Versuchen erst gar nicht mehr in diese hineinlaufen müßte - 
dieses »Speichern ist bei unserer jetzigen Methode njcht 
möglich. Probieren Sie doch einmal beide Methoden im Irr¬ 
garten (Bild 1) aus, die links- oder die rechtsorientierte und 
die visuelle (die Speichermethode). Sie werden schnell mer¬ 
ken, wie Sie bei mehrmaligem Durchwandern des Labyrinths 
mit der visuellen Methode immer mehr von Ihrem Erfahrungs- 
Speicher (Intelligenz???) Gebrauch machen werden. Mit der 
Zeit weiß man halt einfach immer besser, wann etwa man sich 
links orientieren muß, wann in Richtung Norden, wo man 
schon einmal eine falsche Richtung eingesohlagen hat (und 



dies deshalb nun meidet), und findet sich so immer besser 
zurecht. Nach einiger Zeit kennt man sich schließlich aus - 
man gelangt, ohne sich zu verirren, vom Eingang zum Aus¬ 
gang. 

Schön und gut, Sie wissen jetzt eine Formel, mit der man 
sicher aus jedem zweidimensionalen, logisch aufgebauten 
Labyrinth herausfindet. Wie setzt man eine Lösungsmethode 
dieser Art jedoch zum Programm um? 

Ich möchte Ihnen im folgenden ein Programm vorstellen, 
das folgende Kriterien erfüllt: 

- Der Irrgarten muß nicht im Speicher des C 64 stehen. Das 
Programm ist in der Lage, jeden zweidimensionalen Irrgar¬ 
ten (mögliche Richtungen: N, S, O, W) mit beliebiger Größe, 
der in einer Form wie Bild 1 vorliegt, zu knacken. 

- Das Programm fragt den »Spieler«, ob bestimmte Richtun¬ 
gen möglich sind. Es erwartet sodann immer eine Antwort 
in der Form JA oder NEIN. Man muß dem Programm mittei- 
len, wenn es den Ausgang gefunden hat. 

- Das Programm bemerkt es, wenn man versucht, es mit fal¬ 
schen Antworten oder Irrgärten ohne Ausweg zu »leimen«. 

- Das Programm merkt sich den richtigen Weg und findet 
beim zweiten Anlauf den Weg ohne jegliches Verirren. 

Rekursive Unterprogramme 


Gerade das letzte Kriterium macht uns schwer zu schaffen, 
da es unser bisheriges Lösungskonzept völlig über den Hau¬ 
fen wirft. 

Es muß also ein Neues her (das vom Aufbauprinzip her 
jedoch gar nicht so verschieden von unserer ersten Methode 
sein wird). 

Die meisten Maus-Programme basieren auf einem Kon¬ 
zept, H as die folgende Programmiertechnik erforderlich 
macht: 

Rekursive Unterprogramme sind Unterprogramme oder 
auch Prozeduren, die sich selbst aufrufen. In höheren Pro¬ 
grammiersprachen wie zum Beispiel LISP lassen sich rekur¬ 
sive Vorgänge relativ leicht programmieren. Basic ist hierzu 
nicht sehr geeignet. Das folgende Beispiel demonstriert auf 
einfache Art und Weise, wie rekursive Unterprogramme funk¬ 
tionieren: 

10 REM REKURSIVES UP - DEMO 
20 GOSUBIOOO:REM REKURSIVES UP AUFRUFEN 
1000 REM REKURSIVES UNTERPROGRAMM 
1010 : 

1020 GOSUBIOOO:REM SELBSTAUFRUF 
1030 : 

1040 RETURN 

Die Dokumentation hierzu ist kurz und einfach: 

In Zeile 10 wird ein Unterprogramm aufgerufen, das in den 
Zeilen 1000 - 1040 steht. In Zeile 1020 - also innerhalb des 
Unterprogrammes - ruft es sich selbst auf. 

Was wird wohl passieren, wenn wir dieses kurze Programm 
starten (was Sie ja eh schon getan haben, ohne auf meine 
Erklärung zu warten)? 

Es kommt zu einem 
OUT OF MEMORY ERROR IN 1020. 

Mißrauisch, wie wir sind, geben wir nun 
PRINT FRE(0)+65000 ein. 

Dabei kommt heraus, daß 38323 Byte RAM frei sind. Wie 
kommt es denn dann zum OUT OF MEMORY ERROR, wer¬ 
den Sie sich nun sicher fragen. 

Ganz einfach. Der C64 kann nur eine begrenzte Anzahl 
von Unterprogrammen nach dem Stapelprinzip (als letztes 
rein, als erstes raus) verwalten und aufrufen. 

Ändern Sie bitte Zeile 101 so ab: 

1010 1 = 1 + 1 . 
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Wenn Sie nun das Programm starten und nach seinem 
Abbruch den Wert I im Direktmodus abfragen, erhalten Sie 
den Wert 23. Das heißt, der C 64 ist in der Lage, maximal 23 
Unterprogrammaufrufe zu speichern (die Rücksprungadres¬ 
sen). In anderen Worten läßt sich das Stapel-Prinzip so aus- 
drücken: Der C 64 findet eine GOSUB-Anweisung. Er nimmt 
sich nun einen Notizzettel und schreibt auf diesen die Zeile, 
in der die GOSUB-Anweisung erfolgt ist. Er merkt sich also, 
wo er weitermachen muß, wenn das Unterprogramm mit 
RETURN beendet wird. In dem eben notierten Unterpro¬ 
gramm kommt nun plötzlich wieder eine GOSUB-Anweisung 
vor. Es ist dabei völlig egal, ob ein anderes Unterprogramm 
aufgerufen wird oder ob sich das Unterprogramm rekursiv 
selbst aufruft wie in unserem Beispiel. Wieder nimmt der C 64 
sich einen Zettel und notiert, wo es weitergeht, wenn dieses 
Unterprogramm mit RETURN beendet wird. Diesen Notizzet¬ 
tel legt der C64 nun oben auf den ersten Notizzettel. Jetzt 
taucht im Programm eine RETURN-Anweisung auf. Woher 
soll der C 64 nun wissen, wohin er springen muß? Nun, er 
nimmt einfach den obersten Zettel vom Notizstapel weg 
(daher der Name Stapel-Prinzip). Auf diesem Zettel steht, 
wohin er zurückspringen muß. Nach dem Sprung wirft der 
C 64 den vom Stapel genommenen Notizzettel in den Papier¬ 
korb. Bei der nachfolgenden RETURN-Anweisung wird der 
nächste oberste Zettel vom Stapel genommen, dann der 
nächste und so weiter. Wenn eine RETURN-Anweisung 
kommt und der C 64 findet auf seinem »Schreibtisch« keinen 
Notizzettel, so meldet er sich empört mit RETURN WITHOUT 
GOSUB ERROR. Versucht man hingegen, ein 24. Unterpro¬ 
gramm aufzurufen, so meldet er sich mit OUT OF MEMORY 
ERROR IN. Auf seinem Schreibtisch ist leider nur Platz für 
maximal 23 Notizzettel. Der OUT OF MEMORY ERROR heißt 
praktisch nichts anderes als »Ich habe keinen Platz mehr für 
weitere Zettel auf meinem Schreibtisch«. 

Der rekursiven Programmierung mittels GOSUB sind also 
enge Grenzen gesetzt. 

Im Listing 2 finden Sie ein Maus-Programm, das auf solch 
rekursiven Unterprogrammen beruht: 

Diese Maus funktioniert auf der Basis unserer »Immer-an- 


1 REM ******************************** <051> 

2 REM * IRRGAERTEN UND MAEUSE I * <224> 

3 REM * <C> 1985 BEI MICHAEL NICKLES * <157> 

4 REM ******************************** <054> 

5 POKE 53280,0:POKE 53281,0:PRINT"<CLR,RVS 

ON.WHITEJMAUS ICRVOFF,DOWN>" <026> 

10 RI* (1)“"LINKS" <103> 

11 RI*(2)“"GERADEAUS" <139> 

12 RI*(3)“"RECHTS" <204> 

20 DIM M <20) <000> 

100 REM HAUPTPROGRAMM- <137> 

101 : <077> 

110 GOSUB 1000 <066> 

120 PRINT"ICH FINDE KEINEN AUSGANGEND <035> 

1000 REM REKURSIVES UP- <001> 

1001 : <215> 

1005 1=0 <176> 

1010 1=1+1 <231> 

1015 PRINT"KANN ICH "sRI*<I) 5 " GEHEN (J/N 

> n <0U> 

1020 INPUT BE* <002> 

1025 IF LEFT#(BE*,1> ="N"THEN 1110 <143> 

1030 M(V)“I <094> 

1050 PRINT"AUSGANG GEFUNDEN (J/N)" <1B0> 

1055 INPUT BE* <039> 

1060 IF LEFT*(BE*,1)“"J"THEN PRINT"GESCHAF 

FT !“:END <130> 

1065 IF V“20 THEN PR INT "HABE MICH VERIRRT 

! “:END <132> 

1070 V=V+1:GOSUB 1000 <122> 

1095 PRINT“AUSGANG GEFUNDEN (J/N)“ <225> 

1100 V=M(T) <196> 

1110 IF I“3 THEN RETURN <151> 

1120 GOTO 1010. <076> 


Listing 2. Eine »dumme« Maus 


der-Wand-lang«-Methode«. Der Programmablauf ist äußerst 
einfach: Die Maus fragt einfach, ob sie nach links gehen kann. 
Ist dies der Fall, so speichert sie den ersten Zug und fragt, ob 
der Ausgang gefunden ist. Ist links nicht möglich, so versucht 
die Maus geradeaus zu gehen. Geht dies auch nicht, so ver¬ 
sucht sie es mit rechts. Funktionieren alle drei Richtungen 
nicht (zum Beispiel, wenn wir die Maus beschummeln), stellt 
sie dies in Zeile 1110 fest und gibt die Suche auf. Die merk¬ 
würdige Abfrage mag zunächst verblüffend sein. Um die 
Maus zum Beispiel durch den Irrgarten in Bild 1 zu schicken, 
ist folgende Befehlsfolge notwendig: 
geradeaus-rechts-geradeaus-links-rechts-rechts-links etc. 

Bei der Eingabe ist zu beachten, daß sich Links-Rechts- 
Angaben nicht auf ihre Position (Spieler), sondern aus der 
Sicht der Maus und ihrer momentanen Bewegungsrichtung 
bezogen werden muß. Unsere Maus ist allerdings zu 
schwach für den Irrgarten in Bild 1. Irrgarten 1 erfordert näm¬ 
lich 22 Richtungsänderungen bis zum Ausgang. Aufgrund 
der rekursiven GOSUB-Programmierung kann die Maus 
jedoch nur maximal 20 Schritte speichern (eigentlich 24, 
aber man soll sich immer etwas »Spielraum« lassen - deshalb 
Einschränkung auf 20). 

Grundlagen des Backtracking 


Wer glaubt, daß es auch ganz ohne Rekursives geht, hat 
recht: 

Zu dem Programm in Listing 3 habe ich nichts zu sagen. Sie 
sehen es sicher selbst. Aus der Links-Rechts-Methode läßt 
sich einfach nichts herausholen, was auch nur im entfernte¬ 
sten mit Kl zu tun hat. 

Backtracking - diese Bezeichnung trifft bei Programmen 
zu, die verschiedene Lösungen ausprobieren und einen 
Lösungbweg, der nicht zum Ziel führt, »rückwärts« wieder 
verlassen können, um eine andere Lösungsalternative auszu¬ 
probieren. 

Unsere nächste Maus soll nach solch einem Backtracking- 
Verfahren arbeiten. Machen wir uns einmal ein paar Gedan¬ 
ken über unser neues Programm. 

Nehmen wir einmal an, die Maus arbeitet ähnlich wie wir, 
wenn wir ein Adventure spielen. Sie zeichnet sich eine Karte 
des Irrgartens. Bei jedem Schritt, den die Maus tiefer in das 
Labyrinth vordringt, wird diese Karte größer. Anhand der 
Karte kann die Maus jederzeit feststellen, wo sie schon war, 
welchen Weg sie bisher gegangen ist. 

Hier noch einmal eine kleine Definition in bezug auf zweidi¬ 
mensionale, logische Labyrinthe: 


1 REM ******************************** <051> 

2 REM * IRRGAERTEN UND MAEUSE II * <083> 

3 REM * <C> 19B5 BEI MICHAEL NICKLES * <157> 

4 REM ******************************** <054> 

5 POKE 53280,0:POKE 53281,0:PRINT"<CLR,RVS 

ON.WHITEJMAUS II<RVOFF,DOWN>" <18B> 

10 RI*(1)="LINKS" <103> 

11 RI*(2)“"GERADEAUS" <139> 

12 RI*(3)“"RECHTS" ' <204> 

100 REM HAUPTPROGRAMM- <137> 

110 1=0 <043> 

120 1=1+1 <103> 

125 IF 1=4 THEN PR INT "HABE MICH VERIRRT ! " 

:END <156X 

130 PRINT"KANN ICH ";RI*(I);" GEHEN (J/N)" <144> 

140 INPUT BE* <140> 

150 IF BE*="N"THEN 120 <077> 

155 1=0 <0BB> 

160 PRINT"AUSGANG GEFUNDEN (J/N)" <050> 

170 INPUT BE* <170> 

180 IF BE*=”J"THEN PRINT"PRIMA !“:END <252> 

200 GOTO 120 <160> 


Listing 3. Das Maus-Programm ganz einfach 
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Bei jedem Irrgarten kann man den Ausgang mit dem Ein¬ 
gang durch den absoluten Lösungsweg verbinden. Der 
Lösungsweg ist also der einzige, kürzeste Weg, der notwen¬ 
dig ist, um vom Eingang zum Ausgang zu gelangen. 

Alle anderen Wege (eventuelle Verzweigungen des Lö¬ 
sungswegs) enden mehr oder weniger in Sackgassen. 
Unsere Maus betritt den Eingang und geht bis zur ersten 
»Kreuzung«. Der Weg vom Eingang bis zur ersten Kreuzung 
ist mit absoluter Sicherheit ein Teilstück des Lösungsweges. 
Kommt die Maus an der ersten Kreuzung an, gibt es folglich 
nur zwei Möglichkeiten: 

a. Sie schlägt einen neuen Weg ein, der wiederum einen 
Abschnitt des Lösungsweges repräsentiert. Sie bleibt also 
auf dem richtigen Weg. 

b. Die Maus kommt vom einzig richtigen Lösungsweg ab und 
gerät in eine Sackgasse oder sogar in ein Sackgassenge¬ 
biet. Dieser Fall tritt mit Sicherheit häufiger als Fall a ein. 

Wir wollen der Einfachheit halber zunächst einmal folgendes 
festlegen: Jeder Weg, der vom Lösungsweg wegführt, endet 
früher oder später in einer absoluten Sackgasse, aus der nur 
ein einziger Weg hinausführt: der Weg, durch den man in sie 
geraten ist (zum Beispiel ein langer Korridor, der plötzlich 
endet). 

Unsere Maus erhält von uns einen Radiergummi. Mit ihm 
kann sie alle Wege, die sie bereits in ihre Karte gezeichnet hat 
und die als absolute Sackgasse enden, wieder herausradie¬ 
ren. Die Karte, die dann letztendlich übrigbleibt, stellt nur 
noch den absoluten Lösungsweg dar. Dieses Herausradie¬ 
ren, also das Widerrufen bereits gefällter Entscheidungen, 
die sich als falsch erwiesen haben - das Löschen falscher 
oder unbrauchbarer Notizen -bezeichnet man als den eigent¬ 
lichen Backtracking-Vorgang. Das folgende Schema zeigt 
den Irrgarten, bei dem alle falschen Wege wegradiert wur¬ 
den. Der Weg, der noch vorhanden ist, ist der absolute 
Lösungsweg (Bild 5). 

Bild 5 zeigt den Irrgarten von Bild^, nachdem er von unse¬ 
rer nächsten Maus durchwandert worden ist. 

Das heißt, alles, was vom Irrgarten noch übriggeblieben ist, 
ist der absolute Lösungsweg (auch durch Pfeil deutlich 
gemacht). Der restliche Teil des Irrgartens ist entfernt wor¬ 
den. Die schwarz ausgemalten Wege sind von der Maus als 
absolute Sackgassen analysiert worden. Nachdem die Maus 
einen solchen Weg durch die einzig mögliche Richtung wie¬ 
der verlassen hat, entfernt sie ihn sofort für immer aus ihrem 
Gedächtnis. Im Labyrinth sind jedoch noch zwei andere aus¬ 
gemalte Flächen zu sehen: eine gelbe und eine rote. Für die 
folgenden Überlegungen wollen wir uns auf die Wegab¬ 
schnitte X, A, B, C und D beziehen. 



Bild 5. Nur der Lösungsweg bleibt übrig 


Nehmen wir einmal an, unsere Maus steht an der Stelle X. 
Sie befindet sich also im rot ausgemalten Wegteil. Wenn wir 
einmal von der Richtung absehen, aus der sie gerade gekom¬ 
men ist, hat die Maus nun drei Möglichkeiten. Sie kann zu A, 
B oder C gehen. Unsere Maus entscheidet sich zunächst für 
A. Leider erweist sich A als absolute Sackgasse. Die Maus 
geht also zurück zu X und vergißt A (wird schwarz ausgemalt). 
Nun versucht die Maus es bei B. Wieder Pech. Also zurück 
zu X und B vergessen. Nun geht die Maus nach C. Sie weiß 
an dieser Stelle noch nicht, daß auch dieser Wegabschnitt 
nach der nächsten Abbiegung in einer Sackgasse enden 
wird. Von C aus hat die Maus zwei Möglichkeiten: Sie kann 
nach X und nach D gehen. Unsere Maus ist jedoch so pro¬ 
grammiert, daß sie nur und wirklich nur dann zurück zu dem 
Punkt geht, aus dem sie gerade kommt, wenn dies die einzige 
Möglichkeit ist. Sie hat also das Bestreben, immer tiefer in 
das Labyrinth vorzudringen. Sie zieht stets die unbekannten 
Wegabschnitte den bereits begangenen vor. 


Die Programmierung der dritten Maus 


Diese Regel zwingt die Maus also nun dazu, nach Punkt D 
zu gehen. In Punkt D stellt sie jedoch wieder fest, daß sie in 
einer absoluten Sackgasse gelandet ist. Sie geht somit die 
einzig mögliche Richtung zurück (zurück zu C) und vergißt 
Wegabschnitt D. Durch das Eliminieren des Wegteils D ist nun 
auch C zur absoluten Sackgasse geworden. Die Maus wählt 
wieder die einzig mögliche Richtung, geht nach X und elimi¬ 
niert Wegteil C. Dadurch, daß die Wegteile A, B, C eliminiert 
worden sind, ist nun auch Teil X zur absoluten Sackgasse 
geworden. Die Maus nimmt also die einzige Richtung ein, die 
von X *>us noch möglich ist. Sie landet dadurch wieder auf 
dem richtigen Lösungsweg. Sie sehen also, wie unsere Maus 
arbeitet, wenn sie in einer Sackgasse gelandet ist. Aber wie 
setzt man dieses Wissen über Mäuse in ein Programm um? 
Wie uns bereits klar ist, braucht unsere neue Maus ein 
Gedächtnis, mit dem sie sich merken kann, wo sie bereits war 
- somit also letztendlich den absoluten Lösungsweg. Dieses 
Gedächtnis muß flexibel sein. Das heißt, es muß sowohl spei¬ 
chern als auch vergessen können. Zunächst erweitert 
unsere Maus ihr Gedächtnis mit jedem Schritt vorwärts. Gerät 
sie jedoch in eine Sackgasse, so muß sie einen Schritt rück¬ 
wärts machen und somit bereits Gelerntes, das sich als 
falsch, nämlich als Sackgasse erwiesen hat, wieder verges¬ 
sen. Solch ein flexibles Gedächtnis wird in unseren Mauspro¬ 
grammen stets mittels eines dimensionierten Feldes reali¬ 
siert. 

Wie muß dieses Feld aussehen? 

Wir haben definiert, daß die Irrgärten, in denen sich unsere 
Maus zurechtfinden wird, zweidimensional logisch aufgebaut 
sein müssen. Es gibt in jedem Raum genau vier mögliche 
Richtungen: N, S, O und W. Im Prinzip könnten wir auch Rich¬ 
tungen wie NW, SW, NO und SO erlauben. Wichtig ist nur, daß 
alle Richtungen in der gleichen Ebene verlaufen. Der Einfach¬ 
heit halber beschränken wir uns jedoch auf die vier Grund¬ 
himmelsrichtungen. Was liegt nun näher, als eine Tabelle 
anzulegen, die zu jedem Raum die möglichen Richtungen 
speichert. 

Dieses Gedächtnis sieht dann aus wie Tabelle 1. 

Die Tabelle 1 ist wie folgt zu interpretieren: 

Wenn man von Raum 0 aus nach Norden geht, gelangt man 
zu Raum 1. Geht man nach Osten, so gelangt man zu Raum 
2 und so weiter. 

Hoppla, ist das nicht etwa eine Landkarte, wie man sie zur 
Programmierung von Abenteuerspielen benötigt? 

Richtig. Dies ist genau die Methode, die ich im ersten 
Adventure-Programmierkurs zum Definieren der einzelnen 
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Räume eines Spiels festgelegt habe (wer will, kann sie in Son¬ 
derheft 2/85 nachlesen!). 

Für das »Gedächtnis« unserer Maus legen wir folgendes 
fest: 

1. Zu Beginn des Programmes erhält jedes Element der 
Tabelle den Wert 1. Das heißt, jede Möglichkeit, die die 
Maus noch nicht ausprobiert hat, hat den Wert 1. 

2. Will die Maus in eine Richtung gehen, die nicht möglich ist, 
so erhält die entsprechende Stelle den Wert 2. Sackgas¬ 
sen kennzeichnen sich also durch dreimaliges Vorkom¬ 
men einer 2 in ihrer »Zeile«. 

3. Ist eine Richtung möglich, so wird in die entsprechende 
Tabellenstelle die Nummer des Raumes geschrieben, zu 
dem diese Richtung führt. 

Je größer die Tabelle ist, umso größer ist die Gedächtnislei¬ 
stung der Maus. 38 KByte Basic-RAM sind genug, um der 
Maus ein Gedächtnis für über 1000 Räume zur Verfügung zu 
stellen. 

Natürlich benötigen wir auch noch einen Zeiger, der immer 
auf den Raum der Tabelle zeigt, in dem sich die Maus gerade 
befindet. Vielleicht finden Sie es noch verwirrend, wie man 
bei einem Labyrinth überhaupt von Räumen sprechen kann, 
beziehungsweise, was die Zeiger 1 und 2 sollen. Die folgen¬ 
den Beispiele werden es Ihnen klarmachen: 

In Bild 6 sind die ersten drei Schritte der Maus eingezeich¬ 
net. Die Maus beginnt ihre Suche immer in Raum 0, dem 
Labyrintheingang oder dem Ausgangspunkt, wenn die Maus 
inmitten eines Labyrinthes ausgesetzt wird. Die Maus läuft 
nun nach Norden zu Raum 1. Ein Raum kann also als Weg¬ 
kreuzung angesehen werden. Wenn uns die Maus später 
fragt, ob sie nach Norden gehen kann, will sie nicht wissen, 
wie weit sie nach Norden gehen kann, sondern lediglich, ob 
sie bis zur nächsten Kreuzung in nördlicher Richtung gehen 
kann (dies schließt natürlich auch Sackgassen ein). Von 
Punkt 1 aus bieten sich der Maus vier Richtungen an. Süden 
scheidet für sie zunächst aus, da sie, wie wir bereits festge¬ 
legt haben, immer unerforschte Gebiete bevorzugt. Die Maus 
geht nach Norden weiter. Warum eigentlich gerade nach Nor¬ 
den? Ganz einfach. Die Maus geht nach einem festgelegten 
Schema vor - N, O, S, W. Das heißt, sie versucht immer zuerst 
nach Norden zu gehen. Gelingt dies nicht, so versucht sie es 
mit Osten, dann mit Süden und mit Westen. 

Entsprechend wird die endgültige Maustabelle auch defi¬ 
niert (Spartenreihenfolge: N-O-S-W). So gelangt die Maus 
schließlich zu Raum 2.1m Gedächtnis der Maus sieht es jetzt 
aus wie in Tabelle 2. 

Bisher hat die Maus noch nie eine negative Antwort auf 
einen Richtungsversuch bekommen. Daher enthält die 


Tabelle 2 keine 2-Elemente: Woher weiß die Maus eigentlich, 
daß man von Raum 1 mittels »Süden« nach Raum 0 gelangt 
- sie hat dies doch noch gar nicht ausprobiert!!! 

Unsere Maus ist nicht dumm. Sie erlaubt sich einen kleinen 
Kunstgriff, der sich so formulieren läßt: 

Regel 1 

Gelange ich mittels Befehl X (»N«) von Raum A zu Raum B, 
so kann ich bei logischen Systemen (Labyrinthen) vorausset¬ 
zen, daß ich durch den Gegenbefehl zu X (»S«) von Raum B 
zu Raum A gelange. 

Die Maus macht also nicht nur zu den aktuellen Vorgängen 
in ihr Gedächtnis Einträge, sondern gleichzeitig auch zu dem 
Gegenvorgang. Deshalb hat sie in der Spalte S bei Raum 1 
sofort eine 0 eingetragen, nachdem sie in der N-Spalte von 
0 eine 1 eingetragen hat. Der Zeiger des Gedächtnisses 
steht auf Raum 2 - dort, wo sich die Maus gerade befindet. 

Jetzt wird’s spannend. Die Maus ist in einer Sackgasse 
gelandet. Dies ist der Anfang vom Backtracking-Verfahren. 
Die Maus versucht vergeblich, eine andere Richtung als die, 
die sie einen Schritt zurückwirft, zu finden, denn sie will ja 
immer vorwärts. Enttäuscht muß sie ihr Gedächtnis mit 2 füllen. 
Dies verdeutlicht Tabelle,/. 3 

Gemäß unserer Definition sind Räume mit drei 2-Elemen- 
ten in einer Zeile absolute Sackgassen. 

Die Maus weiß das auch und entschließt sich zu einem 
Rückwärtsschritt. Dazu setzt sie den Zeiger auf ihr Gedächt¬ 
nis um 1 zurück. Raum 2 muß nun eliminiert (schwarz ausge¬ 
malt) werden. Das heißt, alle Wege, die zu Raum 2 führen, 
müssen zerstört werden. Natürlich gibt es nur einen Weg zu 
Raum 2, da nur ein Weg aus einer Sackgasse herausführen 
kann. Die Maus weiß auch ganz genau, welcher Weg dies ist. 
Wir definieren: 

Regel 2 

Wenn »in Versuchsergebnis falsch ist, dann muß ich einen 
Schritt zurückgehen (Backtracking). Durch den Befehl X bin 
ich von A nach B (in eine Sackgasse) geraten. Ich muß also 
zurück zu A. Dies erreiche ich durch den Gegenbefehl von X. 
Wenn ich wissen will, durch welchen Befehl (Richtung) ich 
von A nach B gelangt bin, so muß ich den Gegenbefehl zum 
Gegenbefehl von X bilden (Regel 3). Diesen muß ich dann 
aus meinem Gedächtnis löschen, um nicht noch einmal zu 
diesem negativen Ergebnis zu gelangen. 

Regel 3 

Wenn man vom Gegenbefehl eines Befehls X wiederum 
den Gegenbefehl bildet, so erhält man wieder den ursprüngli¬ 
chen Befehl X (Analogie: Bilden von Kehrwerten). 

Anhand dieser drei Regeln läßt sich nahezu jeder 
Backtracking-Vorgang (»Aus Irrtum lernen«) beschreiben. 
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Tabelle 2 Tabelle 5 


Der Lösungsweg: 
N-O-N-O-S 
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Aus Regel 2 weiß die Maus, daß sie den Wert 2 in Raum 2, 
Spalte N auf 2 setzen muß. (Tabelle 4) 

Nach dem Backtracking sieht es im Gedächtnis aus wie in 
Tabelle 5. Die Maus steht jetzt wieder in Raum 1. Das neue 
Irrgartenbild entspricht Bild 7. 

Wie macht die Maus nun weiter? 

Nun, sie hat doch ihr N-O-S-W-Schema. Norden hat sie in 
Raum 1 schon ausprobiert. Also ist jetzt Osten dran. Stellt die 
Maus nach einem abgeschlossenen Backtracking fest, daß 
ihre jetzige Position wieder drei Zweien enthält, führt sie 
einen weiteren Backtracking aus (Vergleichen Sie das Bei¬ 
spiel in Bild 2, Raum X). 

Sicher haben Sie bereits bemerkt, daß ich für die letzten 
Beispiele den Ausgang des Labyrinths als Eingang benutzt 
habe. Ich tat dies, um schneller in eine Sackgassensituation 
zu gelangen. Die Tabelle 6 zeigt, wie das Gedächtnis der 
Maus arbeitet, wenn die Maus vom Eingang links unten aus¬ 
gehend (wie in Bild 1) ihren Weg zum Ausgang sucht (Bild 8). 
Das fertige Maus-Programm finden Sie in Listing 4. 


Dokumentation zum Listing 4 


Variablen 


M%: 

Größe des Gedächtnisses 

M(M%,3): 

Gedächtnis 

MZ: 

Zeiger auf Gedächtnis 

X: 

Befehl (N, S, O oder W) 

N = 0 

0 = 1 

S = 2 

W = 3 


Die restlichen Variablen sind lediglich Hilfsvariablen. 



Unterprogramme: 

5000 bis 5150 Unterprogramm für Backtracking-Vor¬ 
gang. 


5000 bis 5050 

5100 

5110 

5120 bis 5140 


6000 bis 6080 

10000 bis10099 


5 biö 00 
40 bis 48 
100 bis 160 


1000 bis 1210 
1110 


1125 


Feststellen, ob die Maus sich in einer 
Sackgasse befindet. Schleife durchläuft 
M(MZ,0)-M(MZ,3), also den Standort der 
Maus - und zählt, wie oft der Wert 2 vor¬ 
kommt. 

Beginn des Backtrackings. 

Letzter Schritt, der in die Sackgasse 
führte, wird zurückgenommen - der 
Gedächtniszeiger wird um 1 erniedrigt. 
Der falsche Schritt wird aus der Tabelle 
entfernt und mit dem Wert 1 gefüllt. Alle 
Verbindungswege zur Sackgasse (bezie¬ 
hungsweise der einzige Weg) werden 
gelöscht - auf 2 gesetzt. Durch Bilden des 
Gegenbefehls zu X erkennt die Maus, wie 
sie aus der Sackgasse entkommt und mel¬ 
det sich in Zeile 5137 zu Wort. 
Unterprogramm zum Bilden des Gegenbe¬ 
fehls. Aus Norden wird Süden, aus Osten 
Westen und so weiter. 

Unterprogramm zur Ausgabe des bisheri¬ 
gen Weges. Hier wird in einer Schleife das 
Gedächtnis von Raum 0 - MZ 1 durchlau¬ 
fen. In jedem Raum sind allerdings immer 
zwei Richtungen gespeichert. Beide füh¬ 
ren zu Abschnitten des Lösungsweges: 
die eine in Richtung Ausgang, die andere 
in Richtung Eingang. Durch die IF-THEN- 
Abfrage in Zeile 10045 wird erreicht, daß 
nur der vorwärtsbringende Befehl (also 
Richtung Ausgang) ausgegeben wird. 
Vorbereitungen zum Programmablauf. 
Schleife zum Löschen des Gedächtnisses. 
Hier wird die Eingabe der Ausgangsrich¬ 
tung gefordert (siehe Erklärung zum 
Ablauf). 

Steuerprogramm der Maus. 

X=0. Das heißt, die Maus versucht als 
erste Richtung Norden. Ihr Schema lautet 
schließlich N-O-S-W. X kann bis zum Wert 
3 (=Westen) erhöht werden. So werden 
alle möglichen Richtungen nacheinander 
ausprobiert. 

Hier fragt die Maus, ob die Richtung X mög¬ 
lich ist. Vorher prüft sie jedoch in Zeile 
1120, ob sie diese Richtung in diesem 
Raum nicht schon einmal ausprobiert hat. 
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Nur wenn an der entsprechenden Stelle im 
Gedächtnis eine 1 steht, versucht sie es 
mit X. Wenn X nicht geht, so wird eine 2 
gemerkt. X wird um 1 erhöht und der näch¬ 
ste Versuch beginnt. Ist die Richtung mög¬ 
lich, so merkt sich die Maus diese (Zeile 
1141) und bewegt sich in diese Richtung 
(Zeile 1142). In Zeile 1144 gibt die Maus 
auf, wenn ihr Gedächtnis voll ist - sie ist 
also schon M%-Schritte gegangen, die 
sich alle als richtig erwiesen haben. 

1146 bis 1152 Hier wird der Gegenbefehl gebildet und im 
neuen Raum gespeichert. Dies ist nötig, 
um die Priorität von unerforschten Gebie¬ 
ten gegenüber bereits bekannten zu 
gewährleisten (Zeile 1210). 

Bedienungsanleitung zur dritten Maus 

Nach dem Programmstart müssen Sie sich ein wenig 
gedulden, da die Maus erst ihr Gedächtnis löschen muß. 


Dann werden Sie nach der Anfangsrichtung gefragt. Es ist 
die Richtung, die von Raum 0 (Eingang) zu Raum 1 führt. Dies 
ist notwendig, damit die Maus den Eingang niemals als Sack¬ 
gasse interpretiert. 

Sodann stellt die Maus Fragen, zum Beispiel: 

»Kann ich nach Norden gehen?« Sie müssen dann »J« oder 
»N« antworten. Ab und zu gibt die Maus auch automatisch an, 
wohin sie will (um aus einer Sackgasse rauszukommen). Sie 
sagt dann zum Beispiel »Ich gehe nach Norden«. Durch 
Drücken der SPACE-Taste gibt die Maus ihren Gedächtnis¬ 
stand aus - also den Weg, den sie bisher vom Eingang aus 
gegangen ist. 

Unsere dritte Maus ist schon ziemlich schlau. Sie bemerkt 
es, wenn man sie beschummelt und hat auch mit dem Irrgar¬ 
ten von Bild 1 keinerlei Probleme. Allerdings ist ihr Gedächt¬ 
nis auf 1000 Richtungen begrenzt, die sie sich merken kann. 

Mit Hilfe einer relativen Datei kann dieses Gedächtnis auf 
bis zu 15000 Räume vergrößert werden. Sie können so eine 
Änderung mit ihrem bisher erworbenen Wissen leicht selbst 
vornehmen. 


1 REM ******************************** <051> 

2 REM * IRRGAERTEN UND MAEUSE III * <057> 

3 REM * <C> 1985 BEI MICHAEL NICKLES * <157> 

4 REM ******************************** <054> 

5 POKE 53280,0:POKE 53281,0:PRINT"<CLR,RVS 

ÜN,WHITE JMAUS 111<RV0FF,D0WN>" <254> 

10 MX-1000SDIM M<M7.,3):REM GEDAECHTNIS <1B0> 

20 RI*(0)="NORDEN" <126> 

22 RI*(l)="OSTEN" <046> 

24 RI*(2)="SUEDEN" <117> 

26 RI*(3)="WESTEN" <042> 

30 MZ=1 :REM GED. ZEIGER <073> 

40 FOR 11=0 TO MX :REM GEDAECHTNIS <118> 

42 : FOR 12=0 TO 3 :REM LOESCHEN <043> 

44 : M<I1,I2)=-1 <081> 

46 : NEXT 12 <004> 

48 NEXT II <151> 

100 PRINT"BIITE GEBEN SIE DIE ANFANGSRICHT 

UNS EIN: <tl5> 

110 PRINT"NORDEN=1 <198> 

120 PRINT"OSTEN =2 <148> 

130 PRINT"SUEDEN=3 <185> 

140 PRINT"WESTEN=4 <14B> 

150 GET I*:IF VAL(I*)=0 OR VAL(I*>>3 THEN 

150 < 175> 

160 X=VAL(I*)—1s GOTO 1141 <197> 

1000 REM HAUPTPROGRAMM - 


<044> 

1001 s <215> 

1100 REM RICHTUNG AUSPROBIEREN <242> 

1101 s <061> 

1110 X=0 :REM 1. VERSUCH = N <070> 

1115 : GOSUB 5000 :REM SACKGASSE ? <249> 

1120 : IF M(MZ,X)< >—1 THEN 1200 <167> 

1125 : PRINT"KANN ICH NACH ";RI*(X>j" GEH 

EN ?"; :REM X PROBIEREN <240> 

1130 : GET I*:IF I*<>"J"AND I*<>"N"AND I* 

<>" "THEN 1130 <232> 

1131 : IF I*=" "THEN 10000 <0B7> 

1135 : IF I*="N"THEN PRINT" NEIN.":M(MZ,X 

>—2:X=X+1:G0T0 1115 :REM X GEHT NICH 
T <002> 

1140 PRINT" JA.“ :REM X GEHT <193> 

1141 : M(MZ,X)=MZ+1:REM RICHT. MERKEN <18B> 

1142 : MZ=MZ+1 :REM BEWEGEN <00B> 

1144 : IF MZ>MXTHEN PRINT"HABE MICH VERIR 

RT - GEBE AUF ‘“:END:REM MEMORY FULL <095> 

1146 : G=X:GOSUB 6000:X=G 

:REM GEGENBEFEHL <094> 

1148 : M(MZ,X)=MZ—1 <241> 

1150 J :REM MERKEN <104> 

1152 : G=X:GOSUB 6000:X-G 

:REM GEGENBEFEHL <100> 

1160 : GOTO 1000 <001> 

1200 : IF M(MZ,X> —2 THEN X=X+l:GOTO 1115 

s REM X GEHT NIC 

HT <234> 

1210 : IF M(MZ,X)>—1 THEN X=X+l:GOTO 1115 

:REM PRIORITAET 


< 011 > 

5000 REM FESTSTELLEN OB MAUS IN SACKGASSE 


IST (3 * -2) - 

<251 > 

5001 : <151> 

5010 IC=0 <040> 

5015 FOR N=0 TO 3 <040> 

5020 : IF M(MZ,N>=-2 THEN IC=IC+1 <164> 

5030 NEXT N <072> 

5040 IF IC<3 THEN RETURN <037> 

5050 IF IC=4 THEN PRINT” ICH LASSE MICH NIC 

HT REINLEGEN !":END <030> 

5100 REM BACKTRACKING - SCHRITT ZURUECK — 


< 198> 

5101 : <251> 


5110 nt =MZ —1 :REM ZEIGER UM 1 ZURUECK <070> 


5120 FOR N=0 TO 3 <147> 
5125 : M(MZ+1,N)=—1 

:REM IRRWEG LOESCHEN <184> 
5130 : IF M(MZ,N)OMZ+l THEN 5140 <173> 
5134 : M(MZ,N>=—2 

:REM IRRWEG LOESCHEN <014> 

5136 : G=N:GOSUB 6000 <121> 

5137 : PRINT“ICH GEHE NACH *'RI*(G>"." <139> 
5140 NEXT N < 184> 
5145 X=0 :REM RESET AUF N <165> 
5147 IF MZ=1 THEN PRINT“BIN WIEDER AM EING 

ANG!":POKE 109,0:WAIT 198,1:RUN <026> 
5150 GOTO 5000 :REM PRUEFEN <253> 
6000 REM GEGENBEFEHL BILDEN- 


<1B1> 

6001 : <135> 
6010 : IF G=0 THEN G=2:GOTO 60B0 <144> 
6020 : IF G=1 THEN G=3:G0T0 6080 <222> 
6030 : IF G=2 THEN G=0:GOTO 6080 <02B> 
6040 : IF G=3 THEN G=l:GOTO 6080 <106> 
60B0 RETURN <040> 
10000 REM LOESUNG AUSBEBEN - 


<218> 

10001 : <071> 

10010 PRINT"<CLR>DURCH FOLGENDE BEFEHLSFOL 
GE GELANGT MAN VOM EINGANG ZU MEINEM 

<229> 

10020 PRINT"JETZIGEN STANDORT:" <191> 

10030 FOR 11=0 TO MZ—1 <203> 

10040 : FOR 12=0 TO 3 <034> 

10045 : IF M(I1,12)>0 AND M(I1,12)<>11-1 

THEN PRINT RI*(12)",";:12=4 <154> 

10050 : NEXT 12 <102> 

10060 NEXT II <001> 

10070 PRINT <010> 

10080 PRINT"SOLL ICH WEITERMACHEN ?" <229> 

10090 GET I*:IF I*<>"J"AND I*<>"N"THEN 100 

90 <112> 

10095 IF I*="J"THEN 1125:REM WEITERMACHEN <233> 
10099 END <195> 


Listing 4. Eine pfiffige Maus mit Durchblick 
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ln diesem Kapitel haben Sie einige wichtige Grundlagen 
der Künstlichen Intelligenz kennengelernt. Ein entscheiden¬ 
der Faktor, der bei einem Lebewesen auf Intelligenz schlie¬ 
ßen läßt, ist das Erkennen von Fehlern und das Lernen aus Irr- 
tümern. Ein weiterer entscheidender Faktor ist das Zurück¬ 
nehmen einer Entscheidung, die sich als Fehler erwiesen hat 
- der Backtracking-Vorgang. 

Als nächsten Kapitel schneiden wir erstmals ein ganz ande¬ 
res Themengebiet der Kl an: Programme, die einen mensch¬ 
lichen Gesprächspartner simulieren können. Zur Übung 
empfehle ich Ihnen an dieser Stelle jedoch erst einmal das 
Maus-Programm so zu verbessern, daß der Speicher der 
Maus als relative Datei angelegt wird. Mit Ihrem bisher erwor¬ 
benen Wissen über Dateiverwaltung und relative Dateien 
dürfte dies nicht allzu schwierig sein. 

Eliza 


HI, I AM ELIZA TELL ME YOUR PROBLEM 
) I HATE SCHOOL 

SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS? 

)I CAN'T GET NO SATISFACTION 

HOW DO YOU KNOW YOU CAN'T GET NO SATISFACTION 

)I JUST DON'T HAVE ANY 

WHAT DOES THAT SUGGEST TO YOU? 

) I NEED GIRLS AND DRUGS AND ROCKN ROLL 
I SEE 

> CAN YOU GIVE ME DRUGS? 

DON'T YOU BELIEVE THAT I CAN GIVE DRUGS! 

)I LIKE YOU ELIZA 
WE WERE DISCUSSING YOU — NOT ME 
) BY THE WAY - MY NAME IS MIKE 
NAMES DON'T INTEREST ME 
)DON'T YOU LIKE MY NAME? 

OH, I LIKE YOUR NAME 
) YOU LIE! 

YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU? 
)I AM 

DID YOU COME TO ME BECAUSE YOU ARE 

)YOU MAKE ME SICK 

WE WERE DISCUSSING YOU — NOT ME 

> MAYBE I GET SATISFACTION SOON 
YOU DON'T SEEM QUITE CERTAIN 

) YOU KNOW TO MUCH 
OH, I KNOW TO MUCH 
) YES 

ARE YOU SURE? 

) I HATE YOU! 

I'M NOT SURE I UNDERSTAND YOU 
) SHUT UP! 

COME COME ELUDICATE YOUR THOUGHTS 
)WHY DON'T YOU GIVE UP ASKING? 

DO YOU REALLY BELIEVE I DON'T GIVE UP ASKING? 
)I HOPE SO 

CAN YOU ELABORATE ON THAT? 

) YES 
I SEE 

>WHY CAN'T I GET ANY ROCKN ROLL? 

DO YOU THINK YOU SHOULD BE ABLE TO GET ANY 
ROCKN ROLL? 

) HAHAHA 

THAT IS QUITE INTERESTING 
)YOU ARE STUPID! 

WHAT MAKES YOU THINK I AM STUPID? 

) YOU GIVE ALWAYS STUPID ANSWERS 

YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU? 

)YOUR ANSWERS ARE ABSOLUTELY NONSENS 
WHY NONSENS? 

030 ? 


) I AM BORN TO BE WILD 

HOW LONG HAVE YOU BEEN BORN TO BE WILD? 

)SINCE I'VE BEEN BORN 

SAY, SO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS? 

) CAN'T YOU RECOGNIZE THAT? 

WE WERE DISCUSSING YOU — NOT ME 

)I AM NOT THE PSYCHIATRIST 

DO YOU BELIEVE IT IS NORMAL TO BE NOT THE 

PSYCHIATRIST? 

)YOU WON! 

OH, I WON 
> YES 

I UNDERSTAND 

)AHHHHHHHHHHHHHHHHH AHHHHHH AHHHHHH AHHHHHHHHH 
AHHHHH AHHHHHHHHH 

Eliza ist ein Programm, das seine Funktionsweise am 
besten selbst erklärt. Deshalb habe ich zunächst auf eine 
Einleitung verzichtet und stattdessen einen Dialog aufge¬ 
führt, den ich erst vor kurzem mit »Eliza« hatte. 

Eliza ist jetzt über 25 Jahre alt. Trotzdem ist dieses Pro¬ 
gramm auch heute noch ein vorzügliches Beispiel für die Pro¬ 
grammierung von Sprache verstehenden Kl-Programmen. 
Eliza wurde in den 60er Jahren von dem Computerwissen¬ 
schaftler Josef Weizenbaum geschrieben. Ziel des Pro¬ 
gramms war es, einen Psychiater zu simulieren. Der Erfolg 
von Eliza war überwältigend - zahlreiche menschliche 
Gesprächspartner dachten tatsächtlich, sie hätten es mit 
einer denkenden, intelligenten Maschine zu tun. Noch viel 
erstaunlicher ist die Tatsache, daß das Eliza-Programm nur 8 
KByte RAM benötigt! 

Kein Wunder, denn vor 25 Jahren dachte noch niemand 
daran, daß es bereits 1983 Homecomputer mit 64 KByte 
RAM geben würde. Eliza wurde damals noch auf einem Groß- 
rechn or betrieben. Erst Ende der 70er Jahre fand Eliza auch 
in Deutschland weite Verbreitung - auf dem PET 2001 von 
Commodore, einem der ersten erschwinglichen Homecom¬ 
puter überhaupt. Der RAM-Speicher des PET war 8 KByte 
groß - groß genug für die Eliza. Auch ich begegnete Eliza 
1980 auf einem PET 2001 bei einem Freund. Heute ist der 
PET längst Nostalgie. Kaufen kann man ihn nicht mehr und 
wer ihn hat, gibt ihn einfach nicht mehr her. Zuerst wurde er 
vom ersten Farb-Homecomputer VC 20 in die Ecke gedrängt, 
um schließlich vom C 64 endgültig überrollt zu werden. Mit 
ihm geriet auch ein berühmtes Programm in Vergessenheit - 
die bereits oben erwähnte Eliza. Auch meine alten PET- 
Programmkassetten verstaubten schnell in ihren Hüllen, als 
ich meinen C 64 mit atemberaubenden Action-Games hatte. 
Erst vor einem halben Jahr fand ich Eliza wieder. Eliza ist 
eines der ganz wenigen Programme, die auf wirklich allen 
Commodore-Computern mit 8 KByte laufen. Ich speicherte 
die Eliza also einfach auf Disk, um sie bei Gelegenheit einigen 
Freunden auf dem C 64 vorzustellen. Das Resultat war ver¬ 
blüffend: Das Eliza-Programm hat auch heute nichts an Origi¬ 
nalität eingebüßt. Nach wie vor versetzt es in Erstaunen und 
spätestens dann in eine gewisse Ehrfurcht, wenn man hört, 
wie kurz der Programmcode ist. 

Josef Weizenbaum, der Vater von Eliza, hat später noch 
verbesserte Programmversionen erstellt. Eine davon wurde 
unter dem Namen DOCTOR bekannt. 

Wer heute intelligente Adventures oder gar Kl-Programme 
schreiben will, kommt an dem Programm Eliza nicht vorbei. 
Zur Einführung in die Programmierung von Programmen, die 
Sprache verstehen, werden wir deshalb nun zusammen ein¬ 
mal das Eliza-Programm analysieren. Bevor Sie sich jedoch 
meine nun folgende Theorie zu Gemüte führen, sollten Sie 
erst einmal mit der Eliza spielen. Das Listing zur Eliza finden 
Sie in Listing 5. 

Zum Programmablauf läßt sich nicht viel sagen. Einfach 
RUN eingeben und Sie haben einen garantiert außergewöhn- 
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lieh geduldigen Gesprächspartner vor sich. Gute Unterhal¬ 
tung! 

Wenn Sie sich nun eine Weile mit dem Eliza-Programm 
»unterhalten« haben, haben Sie sicherlich festgestellt, daß 
nicht selten relativ unsinnige Antworten Zustandekommen. 
Daß im Programm nicht viel Intelligenz stecken kann, sieht 
man schon am Listing: Das Hauptprogramm besteht aus nur 
zirka 50 Zeilen, der restliche Teil aus DATA-Zeilen. In der Tat, 
Eliza hat keine Ahnung von dem Gesprächsinhalt der Dialoge, 
die sie führt. Der Eliza-Effekt, wie wir es einmal nennen wol¬ 
len, besteht also darin, aus eingegebenen Sätzen und 
Antworten neue Fragen zu formulieren. Daß Eliza Antwort 
gibt, ohne nachzudenken und darauf verzichtet, die Antwort 
auf Sinngehalt zu untersuchen, zeigt sich dann, wenn man 
anstelle von einfachen Sätzen wirre Zeichenfolgen eingibt. 

Ich muß an dieser Stelle zugeben, daß der Beispielsdialog, 
den ich zur Einleitung dieses Kursabschnitts gezeigt habe, 
nur deshalb relativ intelligent erscheint, weil ich durch 
gewählte Antworten (unter Kenntnis, wie Eliza arbeitet), ver¬ 
meiden konnte, daß Eliza unsinnige Antworten gibt. 

Geben Sie nach Programmstart doch bitte einmal den fol¬ 
genden Satz ein: 

»CAN YOU X« 

Eliza antwortet mit »DONT YOU BELIEVE I CAN DO X«. 

Nach dem Schlüsselbegriff CAN YOU hat Eliza also einfach 
den Satzrest X abgeschnitten und an einen ihrer Standard¬ 
sätze angehängt. Hätte man als ersten Satz 

»CAN YOU DANCE« eingegeben, so hätte Eliza mit »DONT 
YOU BELIEVE THATI CAN DANCE« geantwortet. Geben wir 
jetzt nochmals »CAN YOU X« ein. Eliza antwortet jetzt mit: 

»PERHAPS YOU WOULD LIKE TO BE ABLE TO X«. Beim 
dritten gleichen Versuch antwortet Eliza schließlich mit »YOU 
WANT ME TO BE ABLE TO X«. Gibt man zum viertenmal »CAN 
YOU X« ein, so erhält man wieder die erste Antwort. Eliza hat 
also nur eine begrenzte Anzahl von Antworten und Fragen zu 
bestimmten Schlüsselwörtern parat. 

Eliza ist also eigentlich gar kein Kl-Programm, sondern 
lediglich eine einfache Gesprächs-Simulation. Trotzdem will 
ich das Programm ausführlich besprechen, denn es läßt sich 
vieles aus ihm herausholen. Es bietet sich zum Beispiel sehr 
an, eine eliza-artige Routine in ein Text-Adventure einzu¬ 
bauen. Man könnte die Schlüsselwörter von Eliza speziell auf 
das Adventure abrechnen. Der Spieler könnte dann einen 
richtigen Dialog mit dem Computer führen, der in etwa so aus- 
sehen könnte: 

Spieler: Ich weiß hier nicht mehr weiter. 

ADV: Denken Sie halt mal scharf nach! 

Spieler: Ich krieg die verdammte Tür nicht auf! 

ADV: Sie brauchen ein Hilfsmittel, wenn Sie die Tür 

öffnen wollen. 

Spieler: Womit läßt sich die Tür öffnen? 

ADV: Stellen Sie sich nicht so dumm an. 

Spieler: Womit läßt sich die Tür öffnen? 

ADV: Sie kommen bestimmt nicht weiter, wenn Sie 

immer wieder auf der gleichen Frage herum¬ 
hacken. 

Und so kann es noch lange weitergehen. 

Dies sieht momentan natürlich wieder viel intelligenter aus, 
als es in Wirklichkeit ist. Auf jeden Fall bietet es sich an, das 
Eliza-Programm einmal genau unter die Lupe zu nehmen, um 
das Prinzip zu verstehen, das hinter dem Bilden der Antwor¬ 
ten steht: Die wichtigsten Infomationen werden der voraus¬ 
gegangenen Frage entnommen. Alle Gesprächspartner- 
Simulationsprogramme bauen irgendwie auf dem Eliza- 
Prinzip auf. Es ist also unbedingt erforderlich, die Program¬ 
mierung der Eliza zu verstehen, wenn man eigene Simula¬ 
tionsprogramme dieser Art schreiben will. Wie gesagt, das 
Eliza-Programm benötigt lediglich 8 KByte RAM. Das heißt, 
uns stehen noch 30 KByte Basic-RAM zur Verfügung. Neh¬ 


men wir alle 64 KByte RAM und bedienen uns auch noch 
einer relativen Datei auf Disk, so können wir Programme ent¬ 
wickeln, die den »IQ« der Eliza um ein Hundertfaches über¬ 
steigen. 


Eliza unter der Lupe 


Das Eliza-Listing läßt sich in zwei große Hauptabschnitte 
unterteilen: 

Dem Steuerprogramm (Zeile 5 bis 620) und DATA-Zeilen 
(Zeile 1050 bis 2250). 

Programmieranfänger sehen im Steuerprogramm lediglich 
ein Wirrwarr von Stringoperationen. Man muß schon ziemlich 
genau hinschauen, um zu erkennen, was sich in den einzel¬ 
nen Zeilen des Steuerprogramms abspielt. Lassen Sie uns 
dies jetzt einmal gemeinsam tun: 

Eliza: Dokumentation zum Listing 
10 bis 30 Unterprogramm zum Positionieren des Zeigers 
auf die DATA-Zeilen. Um das Programm möglichst klein 
zu halten (es stammt schließlich von einem PET 2001 
mit nur 8 KByte), war es nicht möglich, die gesamten 
DATAs in ein Stringfeld einzulesen. Deshalb wird dieses 
Unterprogramm benutzt, um auf einen bestimmten 
Satz N zu positionieren. Der DATA-Zeiger wird einfach 
auf das erste DATA gesetzt (mittels RESTORE), dann 
werden N-Elemente mittels READ überlesen. Es hat 
auch seinen guten Grund, daß dieses Unterprogramm 
am Kopf des Listings steht: Je niedriger die Zeile ist, in 
der ein Unterprogramm beginnt, umso schneller wird 
es mit GOSUB aktiviert. Dabei Eliza ständig positioniert 
werden muß, lohnt es sich aus Geschwindigkeitsgrün¬ 
den, das Unterprogramm voranzustellen. 

.100 bjc.,140 Hier wird eine Schlüsselbegriff-Tabelle er¬ 
zeugt. In die Variablen S%, R%, N% (DIM-Felder) wer¬ 
den die Zahlendatas ab Zeile 2530 eingelesen - also 
alle Zahlendatas, die es überhaupt gibt. Diese Tabelle 
ist die wichtigste Tabelle im ganzen Programm (und 
auch die einzige). 

Die gesamte Datei läßt sich in 3 Bereiche gliedern: 
Bereich 1 mit NI-Sätzen: Enthält alle Schlüsselwörter, 

die Eliza kennt. 

Bereich 2 mit N2-Sätzen: Hilfsverben 

Bereich 3 mit N3-Sätzen: Kommentare 

160 Beginn des Dialogs 
170 »Befehlseingabe« in den String 1$ 

200 bis 220 Alle ' werden aus 1$ herausgekürzt. 

Beispiel: Aus »l'M HUNGRY« wird »IM HUNGRY«. Dies ist 
notwendig, um später I AM und IM gleichsetzen zu können. 
Im Prinzip ist dieses Kürzen nicht unbedingt notwendig, da in 
der Schlüsselwort-Tabelle I AM und l'M aufgeführt werden. 
230 In P$ ist jeweils die letzte Befehlseingabe gespeichert. 
Es wird hier dafür gesorgt, daß der Anwender nicht zu 
schnell das Eliza-Schema begreift, indem er mehrmals 
hintereinander die gleiche Antwort gibt. Dies gilt aller¬ 
dings nur bei Verlegenheitsfällen (Erklärung folgt). 
280 Der DATA-Zeiger wird auf den ersten Satz des ersten 
Dateibereiches positioniert. 

300 bis 340 Der Befehlsstring 1$ wird auf Schlüsselwörter 
hin durchsucht. Es wird zum Beispiel gesucht, ob 
»CAN YOU« im String vorkommt. 

325 Wird ein Schlüsselwort gefunden, so speichert 
S die Nummer des Schlüsselwortes (CAN YOU = 1, CAN 

I = 2 etc.), 

T ab welchem Zeichen von 1$ das Schlüsselwort steht. 
F$: das Schlüsselwort selbst 

365 Prüfen, ob ein Schlüsselwort gefunden wurde (S grö¬ 
ßer 0). Wurde eines gefunden, so speichert 
K: die Nummer des Schlüsselwortes (K=S), 
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L wo Schlüsselwort in 1$ steht (L=T). 

Sprung nach 100 

370 Es wurde kein Schlüsselwort gefunden. In diesem Fall 
erhält K den Wert von NI (=38). Man kann aber auch 
sagen, daß doch ein Satz gefunden wurde - Satz 38, 
der bei uns NOKEYFOUND heißt. Das heißt, immer 
wenn kein Schlüsselwort gefunden wird, positioniert 
Eliza auf Satz 38. 

400 Ein Schlüsselwort wurde gefunden. N=N1 

405 Jetzt wird auf den 2. Bereich positioniert. 

410 Nehmen wir einmal an, der Befehlssatz lautete »CAN 
YOU X«. In diesem Fall nimmt C$ den Wert »X« an. 

420 bis 540 Änderung der Bezugswörter. Beispiel: Aus 
»YOU APPEAR IN MY DREAMS« als C$ wird nach der 
Umwandlung gemäß Bereich 2 »APPEAR IN YOUR 
DREAMS«. 

560 bis 570 Positionieren auf dritten Datenblock. 

580 Positionieren aus SATZ R%(K) des 3. Bereiches. 
Warum R%(K) und nicht einfach K? Ganz einfach - Eliza 
bedient sich eines Tricks, um bei gleichen Schlüssel¬ 
wörtern nicht immer identische Antworten geben zu 
müssen. Betrachten Sie bitte die Dimensionierungsan¬ 
weisung im Listing. Es gibt drei Feldvariablen: S%(X), 
R%(X) und N%(X). Nehmen wir einmal an, Eliza erhält 
viermal hintereinander das gleiche Schlüsselwort, 
zum Beispiel »CAN YOU SWIM« 

»CAN YOU DANCE« etc. 

Immer lautet das erste Schlüsselwort »CAN YOU«. Das 
erste Mal antwortet Eliza mit dem Satz R%(1) des 
3. Bereiches. Wäre das Schlüsselwort zum Beispiel 
ARE YOU, so würde sie mit R%(9) antwprten. 

590 Jetzt wird R%(1) um den Wert 1 erhöht. Überschreitet 
R%(1) den Wert N%(1), so wird R%(1) auf den Wert 
S%(1) zurückgesetzt. Das Listing zeigt uns, daß es zum 
Schlüsselwort CAN YOU drei mögliche Antwortsätze 
gibt, die in den Sätzen 1 bis 3 stehen. In S%(X) steht 


immer gespeichert, welcher Satz der erstmögliche 
Antwortsatz zu einem bestimmten Schlüsselwort ist. In 
N%(X) ist es der letzte. So wird erreicht, daß nicht ailzu- 
schnell auffällt, wie dumm Eliza eigentlich ist. 

Nun haben wir auch schon das komplette Programm Eliza 
dokumentiert. Ich weiß, daß es für einen Anfänger schwierig 
ist, das Programmkonzept der Eliza komplett zu verstehen. 
Meine Dokumentation kann Ihnen nur helfen; verstehen wer¬ 
den Sie das Programm jedoch erst dann, wenn Sie es eigen¬ 
ständig Schritt für Schritt durcharbeiten. 

Im folgenden möchte ich das Eliza-Konzept noch einmal mit 
ganz einfachen Worten zusammenfassen: 

Der Elizo-Effekt 


Der Eliza-Effekt besteht darin, aus einer Antwort eine neue 
Frage zu formulieren. 

Eliza untersucht eingegebene Sätze auf Schlüsselwörter 
hin. Nehmen wir einmal an, jemand gibt als Antwortsatz »I 
HATE SCHOOL« ein. Eliza macht sich nun keineswegs die 
Mühe, den ganzen Satz in einzelne Wörter zu zerlegen - wie 
ich es zum Beispiel im ersten Adventure-Sonderheft 
gemacht habe. 

Eliza beruft sich vielmehr zunächst auf die Tabelle der 
Schlüsselwörter. Zunächst nimmt sie das erste Wort der 
Tabelle (CAN YOU) als Schlüsselwort beziehungsweise Ver¬ 
gleichsstring K$. Nun wird der gesamte Befehlsstring 1$ 
durchsucht. 

F0RI=1 TO LEN(I$) 

: IF MID$(IS,I,LEN(K$))=K$ THEN REM GEFUNDEN 
NEXTI 

Das Suchen erfolgt also einfach durch Durchlaufen des 
gesan.cen Befehlsstrings und Vergleichen mit dem Schlüs¬ 
selwort K$. Dieser Suchalgorithmus ist sehr primitiv; es gibt 




SONDERHEFT 4/86 



















KÜNSTLICHE INTELLIGENZ 


C 64 


einen viel besseren, den ich Ihnen später noch kurz vorstel¬ 
len werde. 

Aus dem Listing können wir lesen, daß Eliza bei dem 
Befehlsstring »I HATE SCHOLL« mit Sicherheit kein Schlüs¬ 
selwort finden wird. Daher wird Eliza zu »I HATE SCHOOL« 
auch keine geistreichen Bemerkungen geben können. Sie 
bringt eine Ausweichfrage - sie weicht also einfach auf ein 
anderes Thema aus (wie wir es auch tun, wenn wir nicht mehr 
weiter wissen). Nach einer erfolglosen Schlüsselwortsuche 
steht der Tabellenzeiger auf Satz 38 (NOKEYFOUND). Der 
letzte Satz der Schlüsselworttabelle ist somit immer der Hin¬ 
weiser auf die Ausweichfragen (zum Beispiel SAY DO YOU 


HAVE ANY PSYCHOLOGICAL PROBLEMS) oder Verlegen¬ 
heitsantworten (I SEE). 

Aus dem Listing können wir erkennen, wo die Ausweich¬ 
sätze stehen: S%(38) zeigt auf den Beginn und N%(38) auf 
das Ende beziehungsweise den letzten der Verlegenheits¬ 
sätze. R%(38) ist, wie bereits dokumentiert, der Zeiger auf 
den Ausweichbereich. Er wird immer dann um 1 erhöht (auch 
zurückgestellt wenn größer als N%), wenn Eliza auf den Aus¬ 
weichbereich zugegriffen hat. Eliza kennt genau 7 Ausweich¬ 
sätze, die in den Sätzen 106 bis 113 des Bildes 1 stehen. Das 
heißt, Eliza wiederholt sich bei jeder 7. Ausweichantwort. Von 
der Größe der einzelnen Bereiche, also dem Antwortenreich- 


5 GOTO 100 
10 RESTORE 

20 FOR I»1 TO N:READ S*:NEXT 
30 RETURN 

100 DIM S'/.<3B> ,RXC38> ,N7.(38> 

110 Nl=38:N2=12:N3=l18 
120 N=N1+N2+N3:GOSUB 10 
130 FOR X-l TO NI 

140 READ S7.(X) ,L: RX < X) «SX < X > : NX < X) =S7. < X)+L 
—1sNEXT 

160 PRINT-HI, I AM ELIZA TELL ME YOUR PROB 
LEM 

INPUT I*:I*=" "+I*+" " 

FOR L=1 TO LEN(IS) 

IF MID*<I*,L,1>=.THEN I*=LEFT* < I*,L- 

1> +RIGHT* <I$,LEN(I*> —L>:GOTO 210 
NEXT 

IF I*=P*THEN PRINT-PLEASE DON'T REPEAT 
YOURSELF":GOTO 170 
RESTORE:S=0 
FOR K=1 TO NI 
IF S>0 THEN 340 
READ K* 

FOR A=1 TO LEN(I*>-LEN <K*) 

325 IF MID*(I*,A,LEN(K*>)=K*THEN S=K:T=A:F 
*=K* 

NEXT 
A=0:NEXT 

IF S>0 THEN K=S:L=T:GOTO 400 
K=N1:GOTO 560 
N=N1 

GOSUB 10 

C*=“ "+RIGHT*(I*,LEN(I*)—LEN CF*)—L+l> 
FOR X=1 TO N2/2:READ S*,R* 

FOR L=1 TO LEN(C*) 

IF L+LEN <S*> >LEN <C*)THEN 510 
IF MID*(C*,L,LEN <S*)> < >S*THEN 510 
490 C*=LEFT* <C*,L-1>+R*+RIGHT* <C*,LEN <C*>- 
L-LEN <S*> +1):L=L+LEN <R*> 

500 GOTO 540 

510 IF L+LEN<R*)>LEN<C*>THEN 540 
520 IF MID*(C*,L,LEN <R*>)< >R*THEN 540 
530 C*=LEFT* < C*,L-1)+S*+RIGHT* < C*,LEN < C* >- 
L-LEN<R*)+1> 

540 NEXT:NEXT 

555 IF MID*(C*,2,1)=" "THEN C*=RIGHT*(C *, 
CEN<C*>-1> 

N=N1+N2 
GOSUB 10 

FOR X=1 TO R7.(K):READ F*:NEXT X 
RX<K>=RX<K)+1:IF RX<K> >N7.<K>THEN RX<K> 
=S7.(K> 

IF RIGHT* <F*,IX >"*"THEN PRINT F*:P*-I 
*:GOTO 170 

PRINT LEFT*(F*,LEN<F*)-1);C*:GOTO 170 
DATA"CAN YOU","CAN I","YOU ARE","YOUR 
E","I DONT","I FEEL","WHY DONT YOU" 
1060 DATA"WHY CANT I","ARE YOU",“I CANT",” 

I AM","IM ","YOU ","I WANT","WHAT" 

DATA " HOW " , " WHO " , " WHERE " , " WHEN " , " WHY " , 
"NAME","CAUSE","SORRY","DRAEM","HELLO 


170 

200 

210 

220 

230 

280 

300 

305 

310 

320 


330 

340 

365 

370 

400 

405 

410 

420 

440 

450 

480 


560 

570 

580 

590 

600 

620 

1050 


1070 


< 189> 
<060> 

< 175> 
<0BB> 
<245> 
<032> 
<050> 
<02B> 

<134> 

<235> 

< 191 > 
<030 > 

< 118> 
<230> 

< 202 > 

< 1S0> 
<096> 
<050> 
<242> 
<151 > 

<015> 

<0B6> 

<218> 

<227> 

<243> 

< 106> 
<089> 
<142> 
<208 > 
<004> 
<096> 
< 002 > 

<093> 

<014> 

<040> 

<217> 

< 161 > 
<035> 

<241 > 
<015> 

< 000 > 
< 116> 

< 114> 

< 000 > 

<126> 

< 101 > 

<036> 


1080 DATA"HI ","MAYBE"," NO","YOUR","ALWAY 
S","THINK","ALIKE","YES","FRIEND" 

1090 DATA”COMPUTER“,"ELIZA”,"MONEY”,"NOKEY 
FOUND" 

1230 DATA" ARE "," AM ","WERE ","WAS "," Y 
OU "," I ","YOUR ","MY IVE » 

1235 DATA" YOUVE "," IM "," YOURE " 

1330 DATA"DON’T YOU BELIEVE THAT I CAN*" 


< 074 > 

<034 > 

< 209 > 

< 208 > 
< 045 > 
< 156 > 


1340 DATA"PERHAPS YOU WOULD LIKE TO BE ABL 
E TO*" 

1350 DATA"YOU WANT ME TO BE ABLE TO*" 

1360 DATA"PERHAPS YOU DON’T WANT TO*”,"DO 
YOU WANT TO BE ABLE TO*" 

1365 DATA-WHAT MAKES YOU THINK I AM*","DOE 
S IT PLEASE YOU TO BELIEVE I AM*" 

1390 DATA"PERHAPS YOU WOULD LIKE TO BE*" 
1400 DATA-DO YOU SOMETIMES WISH YOU WERE*" 
1410 DATA "DON ' T YOU REALLY*" , "WHY DON ’ T YO 
U*","DO YOU WISH TO BE ABLE TO*" 

1440 DATA”DOES THAT TROUBLE YOU?","TELL ME 
MORE ABOUT SUCH FEELINGS." 

1460 DATA"DO YOU OFTEN FEEL*","DO YOU ENJO 
Y FEELING*" 

1480 DATA"DO YOU REALLY BELIEVE I DON’T*”, 
"PERHAPS IN GOOD TIME I WILL*" 

1500 DATA"DO YOU WANT ME TO*","DO YOU THIN 
K YOU SHOULD BE ABLE TO*" 

1520 DATA "WHY CAN "T YOU*" , "WHY ARE YOU INT 
ERESTED IN WHETHER OR NOT I AM*" 

1540 DATA "WOULD YOU PREFER IF I WHERE NOT* 
","PERHAPS IN YOUR FANTASIES I AM*" 
1560 DATA"HOW DO YOU KNOW YOU CAN - T*”,"HAV 
E YOU TRIED?"."PERHAPS YOU CAN NOW*" 
1590 r>ATA"DID YOU CDME TO ME BECAUSE YOU A 
~'*","HOW LONG HAVE YOU BEEN*" 

1610 DATA 11 DO YOU BELIEVE IT IS NORMAL TO B 
E*","DO YOU ENJOY BEING*" 

1630 DATA“WE WERE DISCUSSING YOU— NOT ME. 
", n OH, I*“ 

1650 DATA"YOU'RE NOT REALLY TALKING ABOUT 
ME, ARE YOU?" 

1660 DATA"WHAT WOULD IT MEAN TO YOU IF YOU 
GOT*", "WHY DO YOU WANT*“ 

1680 DATA"SUPPOSE YOU SOON GOT*","WHAT IF 
YOU NEVER GOT*" 

1700 DATA"I SOMETIMES ALSO WANT*","WHY DO 
YOU ASK?" 

1720 DATA"DOES THAT QUESTION INTEREST YOU? 


1730 DATA“WHAT ANSWER WOULD PLEASE YOU THE 
MOST?" 

1740 DATA"WHAT DO YOU THINK?",“ARE SUCH QU 
ESTIONS IN YOUR MIND OFTEN?" 

1760 DATA"WHAT IS THAT YOU REALLY WANT TO 
KNOW?","HAVE YOU ASKED ANYONE ELSE?" 

17B0 DATA"HAVE YOU ASKED SUCH QUESTIONS BE 
FORE?" 

1790 DATA"WHAT ELSE COMES TO MIND WHEN YOU 
ASK THAT?" 

1800 DATA"NAMES DON’T INTEREST ME.","I DON 
•T CARE ABOUT NAMES— PLEASE GO ON." 

1820 DATA"IS THAT THE REAL REASON?","DON•T 
ANY OTHER REASONS COME TO MIND?" 

1840 DATA"DOES THAT REASON EXPLAIN ANYTHIN 
G ELSE" 

1850 DATA"WHAT OTHER REASONS MIGHT THERE B 
E?","PLEASE DONT APOLOGIZE!" 

1870 DATA"APOLOGIES ARE NOT NECESSARY.“ 

1880 DATA"WHAT FEELINGS DO YOU HAVE WHEN Y 
OU APOLOGIZE?","DON - T BE SO DEFENSIVE 

1900 DATA"WHAT DOES THAT DREAM SUGGEST YOU 
?","DO YOU DREAM OFTEN?" 

1920 DATA"WHAT PERSONS APPEAR IN YOUR DREA 
MS?", "ARE YOU DISTURBED BY YOUR DREAM 
S?“ 

1940 DATA"HOW DO YOU DO ... PLAESE STATE Y 

Listing 5. Das Eliza-Programm 


<249> 

< 113> 

< 167> 

<224> 

<065> 

<219> 

<059> 

< 157> 
<039> 
<137> 
< 002 > 
<159> 
< 020 > 
<247> 
<255> 
<229> 
<229> 
<015> 

< 116> 
<099> 

< 189> 
<0B6> 
<076> 
<07B> 

< 188> 
<023> 
< 128 > 
<240> 
<239> 
<231 > 

< 120 > 

< 196> 

<001 > 

< 134> 

< 171 > 
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tum eines Eliza-Programms, hängt es ab, wie schnell die 
eigentliche »Dummheit des Programmes« vom Spieler 
erkannt wird. 

Hat Eliza beim ersten Durchlauf also kein Schlüsselwort 
gefunden, so bricht sie alle weiteren »Berechnungen« ab und 
antwortet sofort mit einer Verlegenheitsantwort oder stellt 
eine Ausweichfrage. Dies kann man mit einem Adventure- 
Parser vergleichen, der abbricht, wenn er ein Wort nicht 
kennt - ICH KENNE DAS WORT X NICHT. 

Lassen Sie uns jetzt jedoch einmal von einem interessan¬ 
ten Befehlssatz ausgehen. Unter Befehlssatz verstehe ich 
alle Arten von Sätzen, die ein Spieler beziehungsweise 



OUR PROBLEM." 

<037> 

1950 

DATA"YOU DON'T SEEM QUITE CERTAIN."," 
WHY THE UNCERTAIN TONE?" 

< 199> 

1970 

DATA"CAN'T YOU BE MORE POSITIVE?","YO 
U AREN'T SURE?","DON’T YOU KNOW?" 

<223> 

2000 

DATA"WHY NO*","DON'T SAY NO IT'S ALWA 
YS SO NEGATIVE","WHY NOT?" 

<073> 

2030 

DATA"ARE YOU SURE?","WHY NO?","WHY AR 
E YOU CONCERNED ABOUT MY*" 

<214> 

2060 

DATA"WHAT ABOUT YOUR OWN*","CANT YOU 



THINK OF A SPECIFIC EXAMPLE?","WHEN? 



" 

<137> 

2090 

DATA"WHAT ARE YOU THINKING OF?","REAL 
LY, ALWAYS?" 

<076> 

2110 

DATA“DO YOU REALLY THINK SO?","BUT YO 
U ARE NOT SURE YOU*" 

<060> 

2130 

DATA"DO YOU DOUBT YOU*","IN WHAT WAY? 
","WHAT RESEMBLANCE DO YOU SEE?" 

< 131 > 

2160 

DATA"WHAT DOES THE SIMILARITY SUGGEST 



TO YOU?" 

<241 > 

2170 

DATA"WHAT OTHER CONNECTIONS DO YOU SE 
E?" 

< 160> 

21B0 

DATA"COULD THERE REALLY BE SOME CONNE 
CT IONS?" , "HOW?" 

<204> 

2200 

2240 

DATA"YOU SEEM QUITE POSITIVE.","ARE Y 
OU SURE?","I SEE.","I UNDERSTAND." 
DATA"WHY DO YOU BRING UP THE TOPIC OF 
FRIENDS?","DO YOUR FRIENDS WORRY YOU 

<074> 



?" 

<038> 

2260 

DATA"DO YOUR FRIENDS PICK ON YOU?","A 
RE YOU SURE YOU HAVE ANY FRIENDS?" 

< 154> 

2280 

DATA"DO YOU IMPOSE ON YOUR FRIENDS?" 

< 004 > 

2290 

DATA"PERHAPS YOUR LOVE FOR FRIENDS WO 
RRIES YOU.","DO COMPUTERS WORRY YOU?" 

<242> 

2310 

DATA "ARE YOU TALKING ABOUT ME IN PART 
ICULAR?“ 

<057> 

2320 

DATA"ARE YOU FRIGHTENED BY MACHINES?" 

,"WHY DO YOU MENTION COMPUTERS?" 

<170> 

2340 

DATA"WHAT DO YOU THINK MACHINES HAVE 
TO DO WITH YOUR PROBLEM?" 

<063> 

2350 

DATA"DON'T YOU THINK COMPUTERS CAN HE 
LP PEOPLE?" 

<214> 

2360 

DATA"WHAT IS IT ABOUT MACHINES THAT W 
ORRIES YOU?" 

<0B7> 

2370 

DATA"SAY, DO YOU HAVE ANY PSYCHOLOGIC 
AL PROBLEMS?" 

<080 > 

2380 

DATA"WHAT DOES THAT SUGGEST TO YOU"," 

I SEE","I'M NOT SURE I UNDERSTAND YOU 



. " 

< 129> 

2410 

DATA"COME COME ELUCIDATE YOUR THOUGHT 
S","CAN YOU ELABORATE ON THAT?" 

<239> 

2430 

DATA"THAT IS QUITE INTERESTING.","WHY 



DO YOU HAVE PROBLEMS WITH MONEY?" 

<054> 

2450 

DATA"DO YOU THINK MONEY IS EVERYTHING 

?" 

< 189> 

2460 

DATA "ARE YOU SURE THAT MONEY IS THE P 
ROBLEM?" 

<235> 

2470 

DATA” I THINK WE WANT TO TALK ABOUT YO 
U, NOT<2SPACE>ABOUT ME",”WHATS ABOUT 
ME?" 

< 151 > 

2490 

DATA "WHY DO YOU ALWAYS BRING UP MY NA 
ME?" 

<221 > 

2530 

DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,2 
0,2,22,3,25,3,28,4,28,4,32,3,35,5,40, 
9 

< 193> 

2540 

DATA 40,9,40,9,40,9,40,9,40,9,49,2,51 
,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2 

<159> 

2550 

DATA 76,4,80,3,B3,7,90,3,93,6,99,7,11 
6,3,113,3,106,7 

< 164> 

Listing 5. Das Eliza-Progamm (Schluß) 



Anwender auf einen INPUT-Befehl hin eingibt. So zum Bei¬ 
spiel »YOU APPEAR IN MY DREAMS«. Eliza findet nun das 
Schlüsselwort »YOU« - Satz 13 in Bereich 2. Anhand des 
Listings können wir herausfinden, daß Eliza mit »We were dis- 
cussing you - not me« antworten muß. Sicher haben Sie 
bereits bemerkt, daß im Listing manche Sätze mit einem 
Sternchen enden und andere wiederum nicht. Sätze, die 
nicht mit einem Sternchen enden, werden direkt ausgege¬ 
ben, also so wie sie im Listing stehen. Der Antwortsatz »WE 
WERE DISCUSSING YOU - NOT ME« steht dort an Stelle 32 
und hat am Ende kein Sternchen. Wie wir bereits wissen, 
steht der YOU-Zeiger jetzt auf Satz 33. Bei der nächsten 
Satzeingabe muß also als Antwort Satz 33 kommen - wenn 
im Befehlssatz wieder das Schlüsselwort YOU gefunden 
wird. Probieren wir dies doch einfach einmal aus. Nach Ein¬ 
gabe von »YOU APPEAR IN MY NIGHTMARES« folgt in der 
Tat die Antwort »OH, I APPEAR IN YOURNIGHTMARES«. Der 
Satz lautet jedoch nur »OH, I« und ist mit einem Sternchen 
versehen. Bei der Antwort wurde zu Satz 33 also »APPEAR 
IN YOUR NIGHTMARES« zugefügt. Vergleichen wir nun ein¬ 
mal Eingabe und Ausgabe: 

Eingabe: YOU APPEAR IN MY NIGHTMARES 

Ausgabe: OH, I APPEAR IN YOUR NIGHTMARES 

Hier sieht man ganz deutlich, was passiert ist. Eliza hat vom 
Eingabesatz den Satzbereich nach dem Schlüsselwort YOU 
abgetrennt und anschließend an den Ausgabesatz 33 OH, I 
angefügt. Dieser abgetrennte Bereich taucht im Programm 
als C$ auf. Bevor C$ jedoch an Satz 33 angefügt wurde, ver¬ 
änderte sich noch etwas: Gemäß Bereich 2 wurde das Wort 
MY durch YOUR ersetzt. 

Damit ist der Eliza-Effekt auch schon beschrieben. 

Mit dem jetzt erworbenen Wissen sollte es Ihnen nicht 
mehr allzu schwer fallen, das Eliza-Programm selbst unter die 
Lupe zu nehmen. 

Die. Lliza-Methoden sind zwar sehr simpel, zeigen bei einer 
Analyse des Programms jedoch ganz einleuchtend, wie man 
Probleme der Sprachverarbeitung, zum Beispiel Grundlagen 
der Stringprogrammierung oder der Zerlegungsverfahren für 
Zeichenketten, angehen kann. 

Das Zufallsprinzip - 
programmierter Zufall 


Künstliche Intelligenz ist das, was der Mensch besser kann. 
So lautet eine der vielen Definitionen, die im Laufe der letzten 
Zeit entworfen wurden - Versuche, zu beschreiben, was 
künstliche Intelligenz eigentlich überhaupt ist. Wie ist die 
obige Definition zu interpretieren? Am besten läßt sie sich 
wohl so erklären: Stellen wir uns doch einmal einen Arbeiter 
in einer Farbrik vor. Er hat eine bestimmte vorgegebene Auf¬ 
gabe, die er an einer Maschine verrichtet. Die Aufgabe 
könnte zum Beispiel darin bestehen, Werkzeugteile, die auf 
Fließband A ankommen, auf Fließband B umzuladen. Der 
Arbeiter steht also zwischen den Fließbändern A und B und 
verrichtet seine Arbeit. Viel nachzudenken braucht er nicht, 
um die Aufgabe richtig zu erfüllen - er kennt den Handgriff 
genau, der notwendig ist: Das Werkzeugteil von Band A neh¬ 
men und auf Band B legen. Dieser Handgriff wiederholt sich 
wieder und wieder. Der Arbeiter ist also gewissermaßen auf 
eine Tätigkeit programmiert. Stellen wir uns nun einmal einen 
Roboter, oder genauer gesagt einen Roboterarm vor, der die 
gleiche Arbeit verrichtet. Auch er hat bei korrekter Program¬ 
mierung keine Probleme beim Erfüllen des Auftrags. Der 
Arbeiter hat dem Roboter gegenüber einen gewaltigen Vor¬ 
teil. Er ist in der Lage, darüber nachzudenken, was er gerade 
tut. Vielleicht überlegt er, ob er für seine monotone Arbeit 
ausreichend Lohn erhält. Wenn ihm die Arbeit schließlich zu 
dumm wird, wenn er »keinen Bock« mehr hat, so kann er die 
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Arbeit hinwerfen, wobei er sich sogar klar darüber ist, welche 
Folgen das für ihn haben kann. Unser Arbeiter kann aus dem 
System aussteigen - er kann aus seiner aufgetragenen Funk¬ 
tion ausbrechen, aus seiner Programmierung aussteigen. 
Vom Roboter ist eine solche Reaktion niemals zu erwarten - 
er arbeitet solange weiter, bis ein mechanischer Defekt auf- 
tritt oder bis man ihm eine neue Aufgabe gibt. Wer also Pro¬ 
gramme schreiben will, die möglichst realistisch menschli¬ 
ches Verhalten oder sogar Intelligenz simulieren sollen, der’ 
darf diesen Faktor des aus-dem-System-aussteigen- 
könnens nicht vernachlässigen. Und hier stellt sich die Frage, 
wie man nun ein solches Aussteigen aus dem System pro¬ 
grammieren kann. Am einfachsten wäre es mit einem Basic- 
Befehl wie: 

IF KEIN BOCK MEHR THEN MACH, WAS DU WILLST. 

Einen solchen Befehl gibt es jedoch nicht, und es wird ihn 
höchstwahrscheinlich auch niemals geben. Es gibt jedoch 
eine andere Lösung... 

Schließlich geht es uns ja nur um eine realistische Simula¬ 
tion menschlichen Verhaltens. Sehen wir doch einmal Bild 9 
an. 

Jeder hat dieses Black-Box-Schema bestimmt schon ein¬ 
mal in irgendeinem Schullehrbuch gesehen. Die Begriffe 
»Eingabe« und »Ausgabe« sind sehr allgemein zu verstehen. 
Eine Eingabe kann zum Beispiel eine Zahl, ein Satz oder gar 
eine ganze Tabelle sein, die zur Bearbeitung eingegeben 
wird. Was passiert aber nun mit der Eingabe, und wie kommt 
es zu einer bestimmten Ausgabe? Hierfür steht die Black- 
Box, das ist der Kasten mit dem Fragezeichen. Am besten 
läßt sich diese Frage anhand von Bild 10 beantworten: Die¬ 
ses Struktogramm ist typisch für ein Programm, das mensch¬ 
liches Verhalten simulieren soll. 

Auf den ersten Blick ist gleich festzustellen, daß es zur 
Bearbeitung einer Eingabe nur zwei Möglichkeiten gibt. Ent¬ 
weder geht das Programm logisch vor, das heißt, das Pro¬ 
gramm berechnet die Ausgabe, die als Antwort auf eine 
bestimmte Frage am logischsten zu sein scheint. Hier wird 


EINGABE 

9 

^ AUSGABE 


• 



Bild 9. Das Black-Box-Schema 



Bild 10. Wie entscheide ich mich - formal 


10 REM ************»*****************,* <06(3 > 

11 REM * SCHUELER - SIMULATION * <100> 

12 REM * <C> 1986 BEI MICHAEL NICKLES * <170> 

13 REM *******************************, <063> 

100 PRINT"<CLR,YELLOW,RVSONTSCHUELER—SIMUL 

ATION <RVOFFI" <171> 

110 INRUT"<2D0WN>ZUFALLSANTEIL "3 ZU <233> 

120 IF ZU<0 OR ZU>100 THEN 110 <021> 

130 PRINT"<2DOWN>LOGIGANTEIL<2SPACE>s"100- 

ZU"X» <120> 

140 PRINT"CDOWNJZUFALLSANTEIL:"ZU"X" <116> 

150 PRINT"C3D0WNJBITTE EINE TASTE DRUECKEN 

!“:POKE 198,0:WAIT 198,1 <165> 

1000 REM AUFGABE STELLEN - 


< 022 > 

1001 s <215> 
1010 A“INT(10*RND <1)> +1 <155> 
1020 B*=INT(10*RND(1) )+1 <169> 
1030 PRINT"WIEVIEL IST“A"*"B”?t3SPACE>"; <018> 
2000 REM ANTWORT DES SCHUELERS - 


< 212 > 

2001 : <199> 

2010 X=INT<100*RND(1>>+l <098> 

2020 IF X>ZU THEN 2100:REM LOGISCHE ANTWOR 

T <140> 

2030 IF X<=ZU THEN 2200:REM ZUFALLSANTWORT <110> 

2100 REM RICHTIGE ANTWORT- <063> 

2101 : <045> 

2110 C=A*B <041> 

2120 PRINT C <216> 

2130 POKE 198,0:WAIT 198,l:GOTO 1000 <146> 

2200 REM ZUFALLSANTWORT- <120> 

2201 : <145> 

2210 C-INT(100*RND(1>)+l <216> 

2220 PRINT C <060> 

2230 POKE 198,0:WAIT 198,1:G0T0 1000 <246> 


Listing 6. Ein Schüler, der rechnen kann 


zum Beispiel der bestmögliche Zug bei einer Schachstellung 
berechnet. Oder das Programm geht unlogisch vor. Hier gibt 
das Programm eine Antwort vor, die unabhängig von der Ein¬ 
gabe berechnet wird. 

Nehmen wir an, wir unterhalten uns mit einem Programm, 
zum Beispiel mit ELIZA, und dabei entsteht folgender Dialog: 

Mensch: Ich habe Angst vor großen Hunden. 

Computer: Finden Sie nicht auch, daß das Wetter heute 
besonders schlecht ist? 

Unter die zweite Kategorie fallen jedoch nur solche 
Antworten, die wirklich absolut zufällig entstanden sind. Gibt 
nämlich ELIZA eine Verlegenheitsantwort, weil sie im Ein¬ 
gabesatz kein Schlüsselwort findet, so zählt dies als logi¬ 
sches Vorgehen! Am interessantesten in Bild 10 ist die For¬ 
mel, mit der ermittelt wird, ob die Antwort auf eine Eingabe 
zufällig oder per Berechnung folgerichtig erfolgt. 

Hierzu dient eine einfache RND-Funktion, mit der eine 
Zufallszahl erzeugt wird, die im Bereich zwischen 1 und 100 
liegt: 

X=INT(100*RND(l))+l 

In der Variablen ZU wird angegeben, wie groß der Zufalls¬ 
anteil in der »Black-Box« ist. 

Nehmen wir einmal an, der Zufallsanteil beträgt 0 Prozent. 
Es soll also jede Eingabe logisch beantwortet werden 
INT(100*RND(1))+1 

ist aber immer größer als 0! So wird also immer die linke 
Spalte angewählt. Hat die Variable ZU hingegen den Wert 
100 Prozent, so wird 
INT(100#RND(1))+1 

immer kleiner als 100 - die Antwort wird immer zufälliger 
ermittelt. Mittels dieser Zufallsformel ist es also möglich, das 
Logik/Zufalls-Verhältnis genau festzulegen. 

Das folgende Schülerprogramm (Listing 6) arbeitet nach 
diesem Prinzip. Es wird ein Schüler simuliert, der nach dem 
kleinen Einmaleins abgefragt wird. Der Computer stellt die 
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Aufgaben automatisch - man muß nach jeder Antwort einfach 
eine Taste drücken. Zu Beginn des Programms läßt sich ein 
Wert für ZU, nämlich der Intelligenzgrad des Schülers, ein¬ 
geben. Je kleiner der Intelligenzanteil (also je größer ZU ist), 
um so öfter gibt der Schüler eine falsche Antwort. 

Probieren Sie nach Eingabe des Programmes einmal ver¬ 
schiedene ZU-Werte aus. 

Es läßt sich mit diesem Programm jede Art von Schüler 
simulieren - vom Dummkopf bis zur Intelligenzbestie. 

Für das Programmieren von Schüler-Simulationen lassen 
sich folgende Regeln festlegen: 

1. Regel: Kein Mensch ist perfekt. Also darf auch eine 
Simulation niemals vom perfekten Menschen ausgehen. Es 
ist also falsch, bei der obigen Schülersimulation dem Zufall 0 
Prozent Anteil zuzuordnen. Dann wäre der Schüler nämlich 


hundertprozentig irrtumsfrei. Lassen Sie deshalb auch zur 
Simulation einer Intelligenzbestie den Zufallsanteil minde¬ 
stens 1 betragen! 

2. Regel: Gehen wir nun noch mal davon aus, daß ein 
extrem intelligenter Schüler simuliert werden soll. Die erste 
Regel besagt ja, daß ZU hier mindestens 1 betragen soll. Dies 
hat zur Folge, daß der Schüler in 99 Prozent der Fälle eine 
richtige Antwort gibt. Tritt jedoch das eine Prozent ZU in Kraft, 
so kann es zu einer absolut idiotischen Antwort kommen, wie 
zum Beispiel 1 mal 1 = 78. Sehr gute Schüler können sich 
schon mal irren, jedoch nicht derartig extrem. Auch eine fal¬ 
sche Antwort soll bei einer Extrem-guter-Schüler-Simulation 
deshalb niemals den Eindruck von Dummheit, sondern viel¬ 
mehr den Eindruck eines Irrtums, also einer versehentlich fal¬ 
schen Antwort erwecken. Man muß also für diesen 1-Pro- 
zent-Fall im Programm eine falsche Antwort vorsehen, die nur 
geringfügig vom richtigen Ergebnis abweicht. Man kann zum 
Beispiel die Zeile 2210 so abändern: 

2210 C=A*B: C=C+ INT(6*RND(1))—3 

Jetzt liegen auch falsche Antworten in der Nähe der richti¬ 
gen. 

3. Regel: ZU darf nicht konstant sein. Wird ein Schüler sehr 
lange abgefragt, so treten irgendwann Ermüdungserschei¬ 
nungen auf - die Leistungsfähigkeit geht zurück, ZU nimmt 
zu. 

Die drei Regeln sind äußerst simpel. Sie können bei 
bestimmten Grenzfällen auch kombiniert werden. 

Noch viel anschaulicher wird die Bedeutung des program¬ 
mierten Zufalls beim Pacman-Algorithmus: 

Jeder kennt das Labyrinth in Bild 11, das Zuhaus von Pac- 
man und seinen Gegnern, den vier Gespenstern. Pacman 
war das erste Videospiel, das von Pong und Space Invader 
Schema abwich. Die meisten von uns haben sie miterlebt, die 
Pacman-Welle, die zirka 1979 über die ganze Video-Spielwelt 
schwappte. In der Tat, Pacman war das erste Videospiel, des¬ 
sen Programmierung »intelligente« Rechenalgorithmen erfor¬ 
derte. Im Gegensatz zur primitiven Links-rechts-Bewegung 
der Space Invader war es hier erforderlich, vier Gespenster 
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(mehr oder weniger intelligent) durch ein Labyrinth laufen zu 
lassen; und das mit dem Ziel, den Pacman des Spielers zu 
fangen. Von kaum einem anderen Videospiel gab es soviele 
Programmversionen wie von Pacman: Pac man, Munchy, 
Puckman, MS. Pacman und Side Pacman, um nur einige von 
ihnen zu nennen. Viele haben bestimmt auch schon einmal 
versucht, eine eigene Pacman-Version (sei es auch nur in 
Basic) zu programmieren. Das ist gar nicht so leicht! Sind die 


0 REM ******************************** <050> 

1 REM * PAC-MAN KI-PROGRAMM * <050> 

2 REM * <C> 19B5 BEI MICHAEL NICKLES * <156> 

3 REM ******************************** <B53> 

4 POKE 53280,0:POKE 53281,0:PRINT"CCLR>"; <098> 

10 PRINT"£CLR,YELLOW,RVSONITAKTIK / ZUFALL 

EXPERIMENT<RVOFF>" <092> 

20 PRINT"fDOWNJWIE GROSS SOLL DER ZUFALLSA 

NTEIL SEIN <162> 

30 INPUT ZU <091> 

40 IF ZU<0 OR ZU>100 THEN 10 <100> 

50 PRINT" £2DOWN>ZUFALL: "ZU“7." <146> 

60 PRINT"£2DOWN>TAKTIK:"100—ZU"X" <064> 

70 PRINT"£3D0WN>BITTE EINE TASTE DRUECKEN! 

<004> 

80 POKE 198,0:WAIT 198,1 <052> 

99 GOSUB 10000 <079> 

100 X=17:Y=16:XX=1024+X+Y*40:XP=PEEK(XX)«P 

OKE XX,42 <127> 

110 GG=1361:GP=PEEK(GG>:POKE GG,160:GW—1 <17B> 

1000 REM STEUERUNG SPIELFIGUR - 


<235> 

1001 : <215> 

1010 J0=56320 <036> 

1020 IF PEEK(J0)=126 THEN WY=-1:WX=0 <174> 

1030 IF PEEK(JO)=125 THEN WY=1 :WX=0 <017> 

1040 IF PEEK(JO)=123 THEN WY=0 :WX=-1 <197> 

1050 IF PEEK(JO)=119 THEN WY=0 :WX=1 <096> 

1100 POKE XX,XP <188> 

1110 X=X+WX:Y=Y+WY <153> 

1120 XX=1024+X+40*Y <096> 

1130 XP=PEEK(XX) <184> 

1140 IF XP=102 THEN X=X—WX: Y=Y—WY: GOTO 112 

0 <119> 

1150 IF X=-l AND Y=10 THEN X=33:Y=10:GOTO 

1120 <238> 

1160 IF X=34 AND Y=10 THEN X=0:Y=10:GOTO 1 

120 <025> 

1200 XP=PEEK(XX) <254> 

1210 POKE XX,42 <01B> 

2000 REM STEUERUNG GESPENSTER - 


<088> 

2001 : <199> 

2032 IF GW< >40 THEN IF PEEK(GG-40)=32 OR P 

EEK(GG—40)=96 THEN 2100 <146> 

2034 IF GWO-40 THEN IF PEEK (GG+40) =32 OR 

PEEK(GG+40)=96 THEN 2100 <054> 

2035 IF GWOl THEN IF PEEK (GG-1 > =32 OR PEE 

K(GG—1)=96 THEN 2100 <109> 

2037 IF GWO-1 THEN IF PEEK (GG+1) =32 OR PE 

EK(GG+1)=96 THEN 2100 <122> 

2040 POKE GG,GP:GG=GG+GW <010> 

2042 IF GG=1459 THEN GG=1424:GW=1 :REM TUN 

NEL <220> 

2043 IF GG-1423 THEN GG= 1458: GW=— 1: REM TUN 

NEL <205> 

2045 IF GG-XX THEN POKE 53280,1:END <181> 

2050 IF PEEK(GG)032 THEN GG=GG-GW:GOTO 21 

00 <105> 

2070 GP=PEEK(GG):POKE GG.160 <199> 

20B0 GOTO 1000 <105> 

2100 REM NEUE RICHTUNG WAEHLEN - 

- <054> 

2101 :POKE GG,GP <067> 

2110 REM WELCHE RICHTUNGEN SIND'MOEGLICH <231> 
2120 RZ=0:FOR 1=0 TO 3:RI(I)=0:NEXT I <184> 


2130 IF GW< >40 THEN IF PEEK(GG-40)=96 OR P 

EEK(GG—40)=32 THEN RI(RZ)=-40:RZ=RZ+1 <013> 
2140 IF GWO-40 THEN IF PEEK (GG+40) =96 OR 
PEEK(GG+40)=32 THEN RI(RZ)=+40:RZ=RZ+ 

1 <209> 

2150 IF GWOl THEN IF PEEK (GG-1) =96 OR PEE 

K(GG-1)=32 THEN RI(RZ)=-1 :RZ=RZ+1 <053> 


2160 IF GWO-1 THEN IF PEEK (GG+1) =96 OR PE 

EK(GG+1> =32 THEN RI(RZ)=+1 :RZ=RZ+1 <162> 
2200 REM WAHL DES BESTEN ZUGES- 


2201 

2205 

2210 

2220 

2230 

2235 

2240 

2250 

2255 

2260 

2270 

2280 

2300 


E 

REM F0RI = 1T04:PRINT" "5 RI(I) 5 :NEXT:P 
OKEGG,87:PRINTPEEK(GG+40):WAIT198,1 
GY=INT((GG—1024)/40) 

GX=GG—1024—GY*40 
FOR 1=0 TO RZ 
: IF GX=X THEN 2255 
: IF RI(I)=1 AND GX<X 
: IF RI(I>■—1 AND BX>X 
: IF GY=Y THEN 2280 
: IF RI(I)=40 AND GY<Y 
: IF Rill)-40 AND GY>Y 
NEXT I 

REM ZUFALLS-ELEMENT - 


THEN GW=1 
THEN GW—1 

THEN GW=40 
THEN GW=—40 


<084 > 

< 145> 

< 222 > 

< 172> 
<04B> 
<243> 
<053> 

< 176> 
<025> 

< 177> 
<080> 

< 1B6> 

<076> 


2301 : 

2310 IF INT(100+RND(1)> +1>ZU THEN 2400 

2320 REM ZUFALLSZUG 

2330 GW=RI(INT(RZ)*RND(1)) 

2400 REM AUSFUEHREN DES ZUGES - 


2401 : 

2404 GG=GG+BW 

2405 IF GG=1459 THEN GG=1424:GW=1 :REM TUN 
NEL 

2406 IF GG=1423 THEN GG=1458:GW=—1:REM TUN 
NEL 

2410 IF GG=XX THEN POKE 53280,1:END 
2420 GP=PEEK(GG):POKE GG,160 
2430 GOTO 1000 

10000 REM UP-SPIELFELD ZEICHNEN - 


<096> 

<245> 

< 200 > 

< 062 > 

<078> 


< 186> 
<091 > 
<251 > 

<075> 

<060> 

<038> 

<039> 

<084> 


10001 : 

10010 PRINT"£CLR,LIG.BLUE>"; 

10020 ATA “ YYYtYYtY 
’ + HY " 

10025 DATA" Yt 16SPACE>Y<16SPACE>Y" 
10030 DATA”? 


■+++++++ + ++++++++ +++ 

++ Y" 

10035 DATA" 1 ? +++++ Y++Y++YY Y ++++++++ YY+' 
+"+' +" 

10040 DATA " Y€33SPACE } Y" 

10045 DATA "Y '+'+'+++ YYY V+YY+YYVY+Y YYY YYY 
’+'+' T 1 ' 

10050 DATA"Y<7SPACE)Y YI6SPACE> +I6SPACE>Y 
Y£7SPACE>Y" 

10055 DATA “ '+V+-+-+-++ Y ’+V+V+V Y ++++++ Y YYY 
'+■+■+■+" 

10060 DATA"€6SPACE>Y Y Y£13SPACE>Y Y Y(6SP 
ACE>" 

10065 DATA" YY+YYYY YYY € SH IFT-SPACE > V+V+V+V 
YYYY€SHIFT-SPACE>YYY YYY+YY+" 

10070 DATA"<12SPACE> Y€YELLOWISUPERMIKE€LIG 
.BLUE>Y£12SPACE>" 

10075 DATA'"+-+-++■+•+-+• YYYISHIFT-SPACE > ¥VV+ ' +V+ 
YYYY€SHIFT-SPACE>YYY Y+V+V+V " 

10080 DATA"C6SPACE1Y Y Y£13SHIFT-SPACE>Y Y 
Y€6SPACEJ" 

10085 DATA " YY+'+V+Y +YY(SH I FT-SPACE > Y+V+Y+V 
YYYY€SHIFT-SPACE>YYY YY+V+V+" 

10090 DATA" Y£ 16SPACE >Y£16SPACE >Y" 

10095 DATA"T ++-++Y YY+V+V+Y Y Y+V+'+V+V Y¥T 
TY Y" 

10100 DATA"Y€5SPACE >Y€21SPACE >YI5SPACE >Y" 
10105 DATA" Y+V+Y Y YYY YYYYYYYYYYY YYY Y i 
YYYY" 

10110 DATA"Y€7SPACE>Y Y€6SPACE>Y€6SPACE>Y 
Y€7SPACE>Y" 

10115 DATA"Y 
YY Y" 

10120 DATA"Y£33SPACE > Y" 

10125 DATA"^ 

YYYY" 

10130 RESTORE 

10140 FOR 1=1 TO 22:READ I*:PRINT I*:NEXT 
10150 RETURN 

Listing 7. Ein Gespenst greift an 


< 106> 
<071 > 

< 144> 

< 121 > 
<142> 

< 179> 

< 1B4> 

< 107> 

< 194> 

< 135> 
<204> 
< 110 > 
<195> 
<144> 
<205> 

< 098 > 

<215> 

<207> 

<244> 
<061 > 

<254> 

<195> 

< 18 B> 

< 1B7> 

<226> 
<01B> 
<016> 
<046> 
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KÜNSTLICHE INTELLIGENZ 


Gespenster zu intelligent, so hat der Spieler kaum eine 
Chance. Sind sie aber dumm, dann gewinnt der Spieler pro¬ 
blemlos, und das Spiel verliert seinen Reiz. Intelligenz (Logik, 
Berechnung) und Dummheit (Zufallsbewegung) der Gespen¬ 
ster müssen richtig miteinander abgestimmt sein, um einen 
Spielwitz zu schaffen. 

Das Logik-Zufalls-Verhältnis bleibt beim Pacman-Algorith- 
mus übrigens auch bei steigendem Level konstant. Gelangt 
der Spieler in die nächste Spielrunde, so wird einfach die 
gesamte Ablaufgeschwindigkeit des Programmes gestei¬ 
gert. Der Spieler muß dann schneller reagieren und hat weni¬ 
ger Zeitzum Nachdenken - er empfindet die neue Spielrunde 
schwerer als die zuvor bewältigte. Wie sieht der Algorithmus 
für ein solches Spiel aus? Lassen Sie uns zunächst davon 
ausgehen, daß das Gespenst absolut logisch vorgeht. Und 



das geht so: Das Gespenst bewegt sich zu Beginn des Spiels 
in einem beliebigen Gang des Labyrinths in eine beliebige 
Richtung. Es bewegt sich solange in diese Richtung, bis es 
an eine Abzweigung gelangt. Dann »überlegt« es sich, wel¬ 
che mögliche Richtung am ehesten zum Spieler führt. In dem 
Fall, der in Bild 12 vorliegt, würde sich das Gespenst für die 
Richtung SÜDEN (nach unten) entscheiden. 

Verhalten sich alle Gespenster gemäß diesem Schema, so 
hätte der Spieler, wie bereits gesagt, keine Chance. Wir müs¬ 
sen also den Zufall ins Spiel bringen. Dieser Zufall sorgt dann 
dafür, daß sich ein Gespenst bei einer Wegrichtung nicht 
immer logisch verhält und den Weg in Richtung Spieler 
nimmt, sondern daß es ab und zu auch einen willkürlich 
gewählten Weg nimmt und diesen solange geht, bis es wie¬ 
der an eine Kreuzung gelangt. Das folgende Programm in 
Listing 7 simuliert ein Pacman-Spiel mit einem Gespenst. Der 
Pacman wir mit einem Joystick in Port 2 gesteuert, die Varia¬ 
ble ZU wird zu Beginn des Spiels eingegeben. In dem Spiel 
Pacman gibt es normalerweise vier Gespenster: Inky, Blinky, 
Winky und Dinky. In unserem Beispiel programmieren wir erst 
mal nur ein Gespenst, weil das Basic-Programm sonst viel zu 
langsam wird. 

Probieren Sie bitte auch hier wieder verschiedene ZU- 
Werte aus. Sie werden schnell feststellen, daß es gar nicht 
einfach ist, den optimalen ZU-Wert zu finden. Trotzdem kann 
man auf den Zufallsfaktor in Kl-Simulationen und Spielen 
nicht verzichten, wie es die beiden Beispiele gezeigt haben. 
Soweit ist ja wohl alles klar. Aber eine Anmerkung möchte ich 
zum Schluß noch machen: Bei ELIZA gibt es keinen Zufalls¬ 
faktor. ELIZA ist jedoch auch keine extrem gute Simulation. 
Ein Zufallsfaktor ließe sich in das Programm aber leicht ein¬ 
bauen und würde es mit Sicherheit noch verbessern. 

(M. Nickles/bs/cg) 
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C 64 


Mein Com|niler 
versteht midi 

Die folgenden Seiten beschäftigen sich mit der 
Programmierung von Parsern - den Programmen, 
die den Spieler »verstehen«. 

W as ist ein Parser? Schlägt man in einem Englisch- 
Deutsch-Wörterbuch nach, so findet man unter dem 
Begriff »to parse«: grammatisch zerlegen, analysie¬ 
ren. Oft wird statt Parser auch der Begriff Phrasen etwas aus- 
drücken oder formulieren, verwendet. In jedem Parser muß 
zwangsläufig auch ein Phraser enthalten sein. Der Parser ist 
in der Lage, eingegebene Sätze (zum Beispiel Adventure- 
Spiel-Befehle) grammatisch zu zerlegen, sie zu analysieren, 
um letztendlich eine mehr oder weniger intelligente Antwort 
zu geben. Es wird also erst »geparst« (Satz zerlegt), dann 
analysiert (Reaktion auf den Befehl) und schließlich »ge- 
phrast« (eine Antwort formuliert). Parser gewinnen im Bereich 
der Adventures und Kl-Programmierung (Kl=Künstliche 
Intelligenz) zunehmend an Bedeutung, denn letztendlich 
sind sie es schließlich, die eine Kommunikation zwischen 
Mensch und Maschine mittels der menschlichen Sprache 
ermöglichen. Wenn man sich einmal vor Augen hält, wie kom¬ 
pliziert die menschliche Ausdrucksweise mittels Sprache 
sein kann, dann kann man sich auch gut vorstellen, wie 
schwierig es ist, einen »perfekten« Parser zu programmieren. 
Trotzdem, die Fortschritte, die in letzter Zeit im Bereich 
Parser-Programmiertechnik gemacht wurden, sind enorm; 
man bringt immer bessere Parser in immer weniger Speicher¬ 
platz unter. Inzwischen scheinen die Parser-Programmierer 
jedoch vor ernsten Schwierigkeiten zu stehen, besonders 
die, die Parser für die deutsche Sprache entwickeln wollen. 

Zweideutigkeiten 


Betrachten Sie einmal folgenden Satz: 

»Moritz fotografiert die Frau mit dem Fotoapparat.« 

Für uns ist der Fall eindeutig: Moritz hat einen Fotoapparat 
und fotografiert damit eine Frau. Der Satz kann jedoch auch 
völlig anders gedeutet und trotzdem völlig richtig werden: 
Moritz fotografiert eine Frau, die einen Fotoapparat bei sich 
hat. Dies ist nur eines von zahlreichen Beispielen. Uns soll 
dieses Problem jedoch nicht weiter berühren. 

Unser Ziel ist es, einen Parser zu programmieren, der mög¬ 
lichst schnell ist, einen möglichst großen Wortschatz verwal¬ 
ten kann und dem es auch nicht an Intelligenz mangelt. 

Der bekannteste Parser, den es gibt, ist der von Infocom. 
Zunächst möchte ich jedoch noch den Scott-Adams-Parser 
beschrieben. Scott Adams, Autor von bekannten Adventures 
wie Adventure, Pirate Cove, Voodoo Castle, The Hulk etc., 
hält auch heute noch an seinem 2-Wort-Parser fest. Ihm geht 
es wohl mehr um knifflige Aufgaben und weniger um großarti¬ 
gen Textumfang und Wortschatz. Bei dem 2-Wort-Parser han¬ 
delt es sich um einen Parser, der nur Sätze versteht, die aus 
einem Verb und einem Objekt oder einer Richtungsangabe 
bestehen, zum Beispiel NIMM SCHWERT, WIRF SEIL etc. 

Einen 2-Wort-Parser zu programmieren, bereitet wohl 
kaum jemand allzu große Schwierigkeiten. Auch die meisten 
Adventures, wie man sie vom Abtippen aus Zeitschriften 
kennt (zum Beispiel Zauberschloß), bedienen sich eines sol¬ 
chen Parsers. Der nächste Parser, der von sich Reden 


machte, ist der, der in Melbourne Houses »The Hobbit« zur 
Geltung kam. Er versteht wirklich komplexe englische Sätze, 
Verknüpfungen sowie Unterhaltungen mit Personen, die im 
Spiel auftauchen. Beispiel: »Say to Gandalf please carry me«. 
Da sich das gesamte Hobbit-Programm auf einmal samt Gra¬ 
fik im Speicher befindet und nie nachlädt, läßt sich auf eine 
äußerst geschickte Programmierung schließen. Nun aber 
zum Infocom-Parser. Die Infocom-Adventures waren die 
ersten, die ständig auf Diskette Zugriffen. Dadurch konnte 
natürlich auch der Parser entsprechend besser gestaltet 
werden. Infocom-Spiele haben einen Wortschatz von bis zu 
1000 Wörtern. Auch die Intelligenz des Parsers läßt nur 
äußerst selten zu wünschen übrig. Bis vor kurzem galt der 
Infocom-Parser als das Beste, was sich mit einem 64-KByte- 
RAM-Computer verwirklichen läßt. Vor noch nicht allzu lan¬ 
ger Zeit wurde von Synapse/Broderbond ein Text-Adventure 
namens Mindwheel veröffentlicht; ausgerüstet mit einem 
BTZ-(Better than Zork) Parser, der angeblich bis zu 1500 
Wörter verstehen soll. An dieser Stelle erlaube ich mir auch 
gleich zu erwähnen, daß wir im Rahmen dieses Kurses einen 
BABAZ-Parser (besser als besser als Zork) entwickeln wer¬ 
den. Ich bin mir sicher, daß dieser Parser wirklich das Opti¬ 
male ist, was sich mit 64 KByte RAM programmieren läßt. 
Allerdings hängt die Qualität eines Parsers keineswegs von 
der Größe des Wortschatzes ab. Werfen wir an dieser Stelle 
doch einmal einen Blick auf mein erstes Adventure »Gordon 
Saga«. Der Parser - so denke ich heute - war extrem schlecht 
programmiert. Trotzdem verstand er Sätze wie zum Beispiel 
»Ich will nach Norden gehen und das Schwert nehmen« 
genausogut wie »Nimm schnell das Schwert und renne dann 
sofort nach Norden«. Auch werden Sätze wie »Schließe die 
Tür« und sogar »Mache schnell die Tür zu« verstanden. 

Besonders erstaunlich ist dies alles, wenn man weiß, daß 
der Wortschatz von Gordon Saga aus lächerlichen 85 Worten 
bestem. Sie sehen also: Auch mit geringem Wortschatzum¬ 
fang lassen sich erstaunliche Parser programmieren. 

Falls Sie noch keinerlei Vorstellung davon haben, wie ein 
Parser funktioniert, also wie Befehlssätze zerlegt, codiert 
und analysiert werden: alles darüber finden Sie im ersten 
Adventure-Kurs im 64’er-Sonderheft 2/85. 

Der Grundaufbau eines Parsers 

Das Grundschema eines jeden Parsers ist in Bild 1 veran¬ 
schaulicht. 

Die Grundlagen der Parsertechnik sind keineswegs spezi¬ 
fisch für den C 64 oder einen 64-KByte-RAM-Computer aus¬ 
gelegt. Sie gelten für jedes Computersystem - egal, wie groß 
und wie schnell. 

Wie Sie aus Bild 1 entnehmen können, setzt sich der Grund¬ 
aufbau eines Programmes, das Sprache verstehen soll, aus 
4 oder 5 Teilen zusammen. Diese Teile wollen wir nun im ein¬ 
zelnen besprechen: 

Befehlseingabe 

Wie der Name schon sagt, geht es hier um die Eingabe 
eines Befehls. Dieser Befehl muß jedoch nicht unbedingt das 
Format »TUE DIES UND JENES« haben. Er kann genausogut 
eine Frage, eine Antwort oder eine Bemerkung sein. Unter 
einem Befehl versteht man also alles, was einem Computer 
mitgeteilt wird. Die Befehlseingabe besteht in der Regel beim 
C64 aus einer modifizierten INPUT-Routine. Bei anderen 
Computern, die bei ihrer INPUT-Routine von vorneherein 
Kommas und Anführungszeichen erlauben, muß erst gar 
nicht lange modifiziert werden. Eine modifizierte INPUT- 
Routine für den C 64 stellt Listing 22 (im Artikel Dateiverwal¬ 
tung) dar. In diesem Bereich des Parser-Programms läßt sich 
kaum noch etwas verbessern. Eine Befehlseingabe muß 
jedoch nicht unbedingt über Tastatur erfolgen. Manche 
Adventures können, zumindest teilweise, mit Joystick oder 
Maus gesteuert werden. Theoretisch wäre auch eine 
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Spracheingabe denkbar. Beide Systeme sind aber derart 
speicherintensiv, daß wir uns nicht näher damit beschäftigen 
werden. 

Parser 

Von der Befehlseingaberoutine aus gelangt der Befehls¬ 
satz (den ich auch in meinem zweiten Programmierkurs stets 
im String BES ablegen will) in den Parser. Der Parser selbst 
besteht im Prinzip aus zwei Hälften: Befehlszerlegung und 
Befehlscodierung (siehe Bild 2): 

Wer meinen ersten Adventure-Kurs gelesen hat, weiß 
bereits, was hiermit gemeint ist. In der ersten Hälfte wird der 
Befehlssatz zunächst in einzelne Worte zerlegt. Nun greift 
der Parser in der Codierungshälfte auf den Wortschatz 
zurück und codiert jedes einzelne Wort. Er stellt fest, daß es 
in seinem Wortschatz nicht enthalten ist. Diese Zerle¬ 
gung/Codierung läßt sich auf verschiedene Art und Weise 
durchführen. Hierzu später mehr, denn zunächst müssen wir 
erst einmal wissen, wie ein Wortschatz aufgebaut ist. 

Wortschatz 

Unter einem Wortschatz versteht man alle Wörter, die ein 
Adventure beziehungsweise Kl-Programm kennt. Bei Eliza 
jedoch ist der Wortschatz gleich Null - wenn man einmal von 
den Schlüsselbegriffen und Wörtern absieht. Ich muß an die¬ 
ser Stelle jedoch auch zugeben, daß sich der Parser meiner 
Gordon Saga eines kleinen Tricks bedient - er gaukelt dem 
Spieler mehr Intelligenz vor, als er eigentlich besitzt. Gibt man 
bei einem Infocom-Spiel beispielsweise den Befehlssatz 
»Küsse das goldene Schwert« ein, so erhält man mit Sicher¬ 
heit eine Antwort wie zum Beispiel »Das kann doch nicht Ihr 
Ernst sein!«. Der Infocom-Parser weiß also, daß es keinen 
Sinn ergibt, wenn man ein Schwert küßt (Es sei denn, das 
Schwert ist in Wirklichkeit gar kein Schwert, sondern eine 
hübsche, verzauberte Prinzessin - lechz - aber lassen wir 
das lieber!). Woher ein Parser so etwas weiß, werde ich Ihnen 
später ausführlich erklären! 

Betrachten wir noch einmal den Gordon-Saga-Parser: 
Wenn im Spiel eine Tür vorkommt, so gibt es verschiedene 
Befehlssatz-Möglichkeiten, um diese Tür zu schließen: 

1. SCHLIESSE DIE TÜR. 

2. MACHE DIE TÜR ZU. 

3. ICH WILL DIE TÜR ZU MACHEN. 

Bis heute gibt es keinen anderen deutschen Parser, bei 
dem eine solche Eingabevielfalt erlaubt ist. Wie schafft der 
Gordon-Saga-Parser dies, wenn er doch nur über einen Mini¬ 
wortschatz von 85 Worten verfügt? 

Betrachten wir doch einmal einen kleinen Ausschnitt aus 
dem Wortschatz. 

Dort steht gespeichert, daß TÜR ein Objekt ist, dem der 
Objektwert 1 zugeordnet ist. 

Es ist auch festgelegt, daß SCHLIESSE und ZU Verben 
sind. Da beide die gleiche Bedeutung haben, wird beiden 
zum Beispiel der Verbwert 8 zugeordnet. 

Wenn jetzt einer der 3 obigen Sätze nach den Verben ZU 
oder SCHLIESSE durchsucht wird, wird immer der Verben¬ 
wert (beziehungsweise Verbzahl VE) 8 gefunden. 


Bei der Objektsuche wird jedesmal der für TÜR entspre¬ 
chende Wert 1 gefunden. 

Der Parser hat somit zwei Werte gefunden: 

Objektzahl = 1 
und 

Verbzahl = 8 

Diese beiden Werte werden dem Analyse-Teil des Parsers 
übermittelt. Der weiß, daß eine Tür geschlossen werden soll, 
wenn VE=8 und OB=1. Er überprüft jetzt nur noch zwei 
Dinge: 

- ob überhaupt eine Tür vorhanden ist 
und 

- ob die Tür nicht bereits zu ist (man kann keine verschlos¬ 
sene Tür schließen). 

Schließlich antwortet der Parser mit »Ok. Die Tür ist jetzt 
zu.«. 

Gibt man bei Gordon Saga jedoch zum Beispiel einen 
Befehl ein, der unsinnig ist und »Schließe das Schwert« lau¬ 
tet, so schweigt der Parser beziehungsweise antwortet mit 
»Ich verstehe nicht, was Sie wollen«. Er erkennt also nicht - 
so wie der Infocom-Parser - daß es unsinnig ist, ein Schwert 
zu schließen. Entschuldigen Sie bitte, wenn ich hier etwas 
vom eigentlichen Thema Wortschatz abgewichen bin und 
schon etwas vorausgegriffen habe, aber Sie sehen ja selbst, 
wie eng die einzelnen Bereiche des Parsers miteinander ver¬ 
schlungen sind! Unser momentanes Problem ist es, wie man 
einen Wortschatz anlegt und wie man ihn im Computer unter¬ 
bringt und verwaltet. 

Es gibt verschiedene Möglichkeiten, einen Wortschatz zu 
programmieren. Die Zahl dieser Möglichkeiten hält sich 
jedoch in überschaubaren Grenzen. 

Ganz anders ist dies bei der Analyse. Hier gibt es unheim¬ 
lich viele Programmiermöglichkeiten. Der Analyse-Teil des 
Parser? >st nicht zuletzt auch der Teil, in dem die Kl steckt. Die 
Kl entscheidet auch, ob der Parser weiß, wovon er redet, 
oder ob er nur so tut, als verstünde er, was los ist. Sie sehen 
also schon, daß der »Parser« des ELIZA-Effektes keinesfalls 
mit einem Parser verglichen werden kann, den ein gutes 
Adventure haben soll. Wenngleich dies jedoch eine Kombi¬ 
nation beider Möglichkeiten nicht ausschließen darf. Im Rah¬ 
men dieses Kurses werden alle Parserbereiche ausführlich 
behandelt. Es werden alle Möglichkeiten beschrieben, die 
sich mit einem C64 und Floppy realisieren lassen. Was den 
Analyse-Teil anbelangt, so kann ich Ihnen jedoch nur einige 
Lösungsideen vorstellen (Kursteil Adventureprogrammie- 
rung). Jeder muß für sich selbst entscheiden, welches Analy¬ 
sekonzept für ihn das beste ist. 

Ausgabe 

Im Ausgabe-Teil des Parsers wird schließlich das Resultat.der 
Analyse ausgegeben. Dies geschieht in der Regel in Form 
einer PRINT-Ausgabe auf dem Bildschirm. 
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Bild 2. Grundfunktionen eines Parsers 


Bild 1. Aufbau eines Parsers 
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Parser 4.0 ist ein völlig Disketten-orientiertes System. Das 
heißt, der gesamte Wortschatz befindet sich in Form einer 
relativen Datei auf Diskette. Eine Diskettenseite faßt 170 
KByte. Bei dem Wortschatz können wir davon ausgehen, daß 
die Wörter (Verben, Objekte etc.) eine Wortlänge von 20 Zei¬ 
chen nicht überschreiten. Man kann theoretisch also Wort¬ 
schätze mit über 6000 Wörtern verwalten. Praktisch ist dies 
jedoch Unsinn, da auf der Diskettenseite ja auch noch der 


Text für das Adventure untergebracht werden muß. Rea¬ 
listisch ist es allerdings, mit Parser 4.0 Wortschätze mit etwa 
500 Wörtern zu verwalten - denn dann ist noch genug Platz 
für Texte. Lassen Sie uns also jetzt gemeinsam den Disk¬ 
orientierten Wortparser 4.0 entwickeln. Bevor man allerdings 
einen solchen Parser programmieren kann, braucht man erst 
einmal einen Wortschatz. Wie ist so ein Wortschatz aufge¬ 
baut? Die Liste in Tabelle 1 stellt einen solchen Relativen- 


Tabelle 1. Wortschatz 
(relative Datei) 


48 

fliehen 

1019 

98 

pruefen 

1033 

148 

sw 

2007 


49 

fragen 

1066 

99 

putzen 

1048 

149 

taetschle 

1017 




50 

fuellen 

1040 

100 

quetschen 

1051 

150 

tauchen 

1022 

1 

abwaerts 

2010 

51 

geben 

1043 

101 

ra 

2009 

151 

toeten 

1057 

2 

aufwaerts 

2009 

52 

gebrauchen 

1063 

102 

rasten 

1027 

152 

tragen 

1065 

3 

bedanken 

1074 

53 

gehen 

1001 

103 

rauchen 

1079 

153 

tragen 

1065 

4 

bedecken 

1037 

54 

gellen 

1070 

104 

rauf 

2009 

154 

trinken 

1078 

5 

befestigen 

1042 

55 

gib 

1043 

105 

reden 

1073 

155 

umhuellen 

1037 

6 

bekleiden 

1065 

56 

giessen 

1050 

106 

reiben 

1017 

156 

unterrichten 

1069 

7 

belohnen 

1046 

57 

graben 

1015 

107 

reinigen 

1048 

157 

untersuchen 

1011 

8 

benutzen 

1063 

58 

grabschen 

1017 

108 

reisen 

1052 

158 

verankere 

1042 

9 

berauben 

1058 

59 

greifen 

1012 

109 

reiten 

1029 

159 

verbinden 

1042 

10 

beruehren 

1017 

60 

haendigen 

1043 

110 

rennen 

1001 

160 

verbrennen 

1045 

11 

bestechen 

1068 

61 

heben 

1044 

111 

ru 

2010 

161 

verdecken 

1037 

12 

betatschen 

1017 

62 

hinab 

2010 

112 

rudere 

1026 

162 

verdrehen 

1061 

13 

betrachten 

1011 

63 

hinauf 

2009 

113 

rufen 

1070 

163 

verhuellen 

1037 

14 

betreten 

1018 

64 

hinunter 

2010 

114 

ruhen 

1027 

164 

verkaufe 

1054 

15 

betritt 

1018 

65 

hoch 

2009 

115 

runter 

2010 

165 

verknoten 

1042 

16 

bewaessere 

1050 

66 

holen 

1012 

116 

s 

2002 

166 

verkorken 

1036 

17 

bewegen 

1025 

67 

huepfen 

1024 

117 

saeubere 

1048 

167 

verlassen 

1020 

18 

bezahlen 

1046 

68 

informieren 

1 

CD 

L_ 

118. «gen 

1073 

168 

verlieren 

1014 

19 

bieten 

1043 

69 

inventur 

1013 

119 

saufen 

1078 

169 

verlocken 

1068 

20 

binden 

1042 

70 

kaufen 

1032 

120 

schauen 

1011 

170 

verloeschen 

1062 

21 

bitten 

1066 

71 

kitzle 

1075 

121 

schenken 

1043 

171 

vernichten 

1056 

22 

blasen 

1067 

72 

klauen 

1058 

122 

schicken 

1055 

172 

verriegle 

1036 

23 

blockieren 

1075 

73 

koepfen 

1057 

123 

schieben 

1051 

173 

verruecken 

1025 

24 

brennen 

1045 

74 

kontrollieren 

1063 

124 

schlafen 

1028 

174 

verschieben 

1025 

25 

bruellen 

1070 

75 

kuessen 

1071 

125 

schliessen 

1035 

175 

verschliessen 

1036 

26 

buchstabieren 

1016 

76 

laufen 

1001 

126 

schmecken 

1059 

176 

versperren 

1036 

27 

buddle 

1015 

77 

leeren 

1039 

127 

schreien 

1070 

177 

versuchen 

1059 

28 

danken 

1074 

78 

legen 

1014 

128 

schuettle 

1049 

178 

w 

2003 

29 

dechiffrieren 

1038 

79 

lesen 

1016 

129 

schwimmen 

1021 

179 

wandere 

1001 

30 

druecken 

1051 

80 

lies 

1016 

130 

senden 

1055 

180 

warten 

1027 

31 

entfachen 

1045 

81 

liste 

1013 

131 

setzen 

1030 

181 

wecken 

1076 

32 

entkommen 

1019 

82 

n 

2001 

132 

so 

2008 

182 

wedeln 

1064 

33 

entkorken 

1034 

83 

nehmen 

1012 

133 

spielen 

1072 

183 

werfen 

1014 

34 

entleeren 

1039 

84 

nimm 

1012 

134 

sprechen 

1073 

184 

westen 

2003 

35 

entraetsle 

1038 

85 

no 

2006 

135 

sprich 

1073 

185 

winden 

1060 

36 

entriegle 

1034 

86 

norden 

2001 

136 

springen 

1024 

186 

winken 

1064 

37 

entziffre 

1038 

87 

nordosten 

2006 

137 

stecke 

1047 

187 

wirf 

1014 

38 

entzuenden 

1045 

88 

nordwesten 

2005 

138 

stehen 

1031 

188 

wuehlen 

1015 

39 

erbitten 

1066 

89 

nw 

2005 

139 

stehlen 

1058 

189 

zerquetschen 

1051 

40 

ergreifen 

1012 

90 

0 

2004 

140 

stoepsle 

1047 

190 

zerrelssen 

1052 

41 

ermorden 

1057 

91 

oeffnen 

1034 

141 

strecken 

1053 

191 

zerren 

1052 

42 

erschiessen 

1057 

92 

osten 

2005 

142 

streichle 

1017 

192 

zerschlagen 

1056 

43 

erstechen 

1057 

93 

paddle 

1026 

143 

suchen 

1041 

193 

zerschmettere 

1056 

44 

erwerben 

1032 

94 

pennen 

1028 

144 

sueden 

2002 

194 

zerstoeren 

1056 

45 

erwirb 

1032 

95 

pfeifen 

1067 

145 

suedosten 

2008 

195 

zertruemmere 

1056 

46 

erwuergen 

1057 

96 

polieren 

1048 

146 

suedwesten 

2007 

196 

ziehen 

1025 

47 

finden 

1041 

97 

probieren 

1059 

147 

summen 

1067 

197 

zuenden 

1045 


60 
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Datei-Wortschatz dar. Sie wurde mit Hilfe des Relativen- 
Dateien-Editors zusammengestellt und anschließend ausge¬ 
druckt. 

Dieser Wortschatz besteht bis jetzt nur aus Verben und 
Himmelsrichtungsangaben. Diese Verben können als eine 
komplette Verbensammlung betrachtet werden, die man in 
einem Adventure benötigt. Das heißt, mit diesen Verben läßt 
sich nahezu jeder Befehlssatz ausdrücken (in Verbindung mit 
entsprechendem Objekt natürlich). 

Wie liest man diese Wortschatztabelle? Stellen wir diese 
Frage erst einmal zurück! Nehmen Sie zunächst bitte einmal 
eine leere Diskette her und formatieren Sie diese. Dann legen 
Sie mit Hilfe des Relativen-Datei-Editors auf dieser Disk eine 
relative Datei mit folgenden Angaben an: 600 Sätze mit je 25 
Zeichen. In diese relative Datei schreiben Sie dann die 
Wortschatz-Tabelle. Das geht einfach: Die linke Zahl in der 
Tabelle gibt jeweils die Satznummer der relativen Datei an. 
Danach kommt der Satzinhalt: Verbname und Codierungs¬ 
zahl. Bild 3 zeigt ganz genau, wie der erste Satz in der relati¬ 
ven Datei aussehen muß. Die Wörter (=Verben, Objekte etc.) 
dürfen also maximal 21 Zeichen lang sein. Die letzten vier Zei¬ 
chen der Sätze sind für die Codierungszahl reserviert, deren 
Bedeutung uns im Moment noch nicht interessieren soll. 

Beim »Abtippen« ist zu beachten, daß Sie nicht vom deut¬ 
schen Zeichensatz Gebrauch machen. Das heißt, für »ae« 
darf nicht »ä« gesetzt werden und so weiter. 

Wir haben jetzt also einen Wortschatz (bisher zwar nur Ver¬ 
ben, aber das ist zunächst egal), auf den wir zurückgreifen 
können. 


50000 

REM ***************************** 

<227> 

50001 

REM * 

* 

<009> 

5BBB2 

REM * WORT-PARSER 4.0 

* 

< 169> 

5BBB3 

REM * 

* 

< 011 > 

50004 

REM * <C> 1986 BEI 

* 

<:bb 6 > 

50005 

REM * 

* 

<013> 

50006 

REM * MICHAEL NICKLES 

* 

<082> 

50007 

REM * 

* 

<015> 

50008 

REM ***************************** 

<235> 

50010 

REM BEFEHLSSATZEINGABE - 

— 



— 


<069> 

50011 

s 


< 202 > 

50015 

SL=80: REM BEFEHLSSATZLAENGE 


< 144> 

50020 

PRINT"IDOWN}":BE*="":POKE 198 

,0:POKE 



211,0:POKE 214,22:SYS 58732: 

PRINT"t 



YELLOW 


< 156> 

50030 

GET X*:IF PEEK(203>=1 THEN 50120 

<226> 

50040 

IF X*=""THEN 50030 


< 171 > 

50050 

IF LEN(BE*)=0 AND ASC(X*>=20 

THEN 50 



030 


< 14B> 

50060 

I=ASC(X*):IF I<32 OR I>133 AND I<159 



THEN IF 1020 THEN 50030 


< 131 > 

50070 

IF LEN <BE*> =SL AND 1020 THEN 

50030 

<128> 

50080 

BE*=BE*+X* 


<031 > 

50090 

PRINT CHR* (20) ; X*; "t?" ; 


<10B> 

50100 

IF 1=20 THEN BE*=LEFT* <BE*,LEN(BE*)- 



2):GOTO 50030 


< 101 > 

50110 

GOTO 50030 


< 001 > 

50120 

PRINT"<LEFT,SPACE >" 


<227> 


Listing 1. Befehlssatzeingabe 


51000 

REM BEFEHLSZERLEGUNG-CODIERUNG - 



— 

< 174> 

51001 

s 

< 176> 

51010 

VG*="NIMM“:VG=1012 

<0B1> 

51020 

REM SUCHEN OB VG* IN BE* VORKOMMT 

<057> 

51030 

FOR 1=1 TO LEN(BE*)-LEN(VG*)+1 

<010> 

51040 

: IF VG*=MID*(BE*,I,LEN(VG*)) THEN V 



E=VG 

<088> 

51050 

NEXT I 

<077> 

51060 

IF VE=0 THEN PRINT VG*" KOMMT NICHT 



IN BE* VOR" 

<092> 

51070 

IF VE=1012 THEN PRINT VG*" KOMMT IN 



BE* VOR" 

<212> 


Listing 2. Befehlszerlegung 


In der Einleitung zum Kapitel Parsertechnik habe ich Ihnen 
bereits den Grundaufbau eines JEDEN Parsers vorgestellt. 
Am Anfang jedes Parsers kommt folglich die Befehlseingabe, 
die beim C64 in der Regel aus einer modifizierten INPUT- 
Routine besteht. 

Nach Durchlauf der Befehlseingabe liegt der Befehl bezie¬ 
hungsweise Befehlssatz als String BES vor. Lassen Sie mich 
nun wieder einmal von meinem alten Lieblingsbefehlssatz 
ausgehen: NIMM DAS SCHWERT. Also BE$= »NIMM DAS 
SCHWERT«. Dieser Befehlssatz soll jetzt anhand Vergleich 
mit dem Wortschatz codiert werden. Das heißt, dem VERB im 
Satz wird eine Verbzahl VE zugeordnet, dem Objekt eine 
Objektzahl OB, unbedeutende Wörter (zum Beispiel der, die, 
das und so weiter) werden ignoriert. Es gibt nun verschie¬ 
dene Möglichkeiten, einen String beziehungsweise Befehls¬ 
satz zu codieren, nach Wörtern zu durchsuchen. Diese Mög¬ 
lichkeiten, ihre Vor- und Nachteile möchte ich Ihnen nun im 
folgenden einmal ganz genau vorstellen: 

Möglichkeit 1 


Bitte tippen Sie Listing 1 ab und ergänzen Sie es um Listing 2. 

Bei dieser Befehlszerlegungs-Methode wird der Befehls 
satz eigentlich gar nicht zerlegt. Es wird einfach überprüft, ob 
das Verb »NIMM« (stellvertretend für die GANZE Worttabelle) 
im Befehlssatz BES enthalten ist. Dazu wird der gesamte 
Befehlsstring durchlaufen und mittels MIDS-Funktion über¬ 
prüft, ob das Verb NIMM (=VG$) im String vorkommt. Bild 4 
demonstriert diesen Suchvorgang für den Befehlssatz 
»NIMM DAS SCHWERT«: das heißt, nehmen wir lieber als 
Befehlssatz »OTTO BITTE NIMM ES«, damit es nicht zu ein¬ 
fach wird. Aus Bild 4 wird auch deutlich, warum es legitim ist, 
anstelle von LEN(BES) LEN(BE$)-LEN(VG$) + 1 zu setzen. 
Es isi ochließlich logisch, daß ein Suchbegriff von 4 Zeichen 
Länge spätestens in den letzten 4 Zeichen von BES gefun¬ 
den werden muß. 
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Achtung: Beim bisherigen Programm wird VG$ im gesam¬ 
ten BES gesucht. Es wird so zum Beispiel für BES=»OTTO 
BITTE NIMM ES«, aber auch in »OTTOBITTENIMMES« gefun¬ 
den. Will man nach absoluten Wörtern (zum Beispiel ELIZA- 
Schlüsselwörter) suchen, so muß sichergestellt sein, daß 
überprüft wird, ob sich am Ende und Anfang des gesuchten 
Wortes ein SPACE befindet. 

Listing 2 muß für diesen Fall so modifiziert werden: 

51015 BE$=BE$+" "+BE$+" * 

51040 : IF * "+VG$+" *=MID$(BE$,I,LEN(VG$)+2) THEN 
VE=VG 

Methode 1 ist ganz die Methode, die bei ELIZA angewandt 
wird - nämlich dann, wenn die Schlüsselwörter gesucht wer¬ 
den. Das heißt, alle 38 Schlüsselwörter der ELIZA werden 
mittels dieser Methode in BES gesucht. Nicht zuletzt aus die¬ 
sem Grund braucht ELIZA ziemlich viel Zeit, bis sie zu einer 
Antwort kommt. Gehen wir nun einmal von einem Wortschatz 
für ein Adventure aus, der ca. 600 Wörter groß ist. Ich sagte 
oben ja bereits, daß das Verb NIMM stellvertretend für den 
ganzen Wortschatz gesucht wird. Tatsächlich müßten alle 
600 Wörter im Befehlssatz gesucht werden. Dies würde viel 
zuviel Zeit in Anspruch nehmen und außerdem zu Schwierig¬ 
keiten führen, wenn sich ein Befehlssatz aus mehreren Ein¬ 
zelbefehlen, die durch UND oder KOMMA getrennt sind, 
zusammensetzt. Methode 1 ist im Bereich der Adventure- 
Parser-Programmierung folglich völlig unbrauchbar. Aber 
auch was die Anwendung bei ELIZA anbelangt, gibt es inzwi¬ 
schen eine wesentlich bessere Methode zum Suchen eines 
Strings VG$ in einem String BE$: 

Möglichkeit 2 


Ergänzen Sie diesmal Listing 1 mit Listing 3. Geben Sie auch 
hier als Befehlssatz BE$ wieder »OTTO BITTE NIMM ES« ein. 
Auch bei dieser Routine handelt es sich um eine Routine, die 
den Befehlsstring BES durchläuft und VG$ (wieder »NIMM«, 
stellvertretend für den gesamten Wortschatz) darin sucht. 
Allerdings erfolgt das Suchen nicht wie bei Methode 1 in »ein 
Zeichen«-Schritten. Bild 5 verdeutlicht den Suchvorgang bei 
der hier verwendeten Routine. 

Während beim gleichen Befehlssatz BE$ bei Methode 1 
ganze 12 Schritte bis zum Finden von VG$ in BES benötigt 
wurden, sind es hier nur noch 4. Der in Methode 2 ange¬ 
wandte Algorithmus wurde übrigens erst vor kurzem erfun¬ 
den und in der 64’er Ausgabe 2/85 im Kurs »Effektives Pro¬ 
grammieren« beschrieben. 

Wie funktioniert das in Bild 5? Nun, der Suchvorgang 
beginnt ganz klar am Anfang des Befehlssatzes. Besteht hier 
noch keine Übereinstimmung, so wird VGS einfach um eine 
bestimmte Zeichenanzahl nach rechts verschoben. Woher 
weiß das Programm, um wie viele Zeichen es bei Nicht¬ 
übereinstimmung verschieben muß? Das Prinzip ist eigent¬ 
lich ganz einfach: Zunächst wird eine Tabelle angelegt, aus 
der hervorgeht, wie viele Zeichen jeder Buchstabe im Such¬ 



wort VGS entfernt ist. Bei unserem Suchwort VG$=»NIMM« 
gilt folgendes: 

M = 0 entfernen. Bei doppelt auftretenden Buchstaben 
wie zum Beispiel M im Wort NIMM, wird der Buchstabe 
notiert, der dem Ende des Wortes näher ist. Für alle Buchsta¬ 
ben, die im Suchwort VGS nicht enthalten sind, wird als »Ent¬ 
fernungswert« die Länge von VGS eingetragen - also 4 bei 
VGS=»NIMM«. 


Für das Wort NIMM ergibt sich die folgende Tabelle: 


VGS = NIMM 

A =4 

J 

= 4 

S 

= 4 

B =4 

K 

= 4 

T 

= 4 

C =4 

L 

= 4 

U 

= 4 

D =4 

M 

= 0 

V 

= 4 

E =4 

N 

= 3 

w 

= 4 

F =4 

0 

= 4 

X 

= 4 

G =4 

P 

= 4 

Y 

= 4 

H =4 

Q 

= 4 

z 

= 4 

1 = 2 

R 

= 4 




Das Erstellen dieser Tabelle findet beim Programm in den 
Zeilen 51020-51052 statt. Aus dieser Tabelle kann nun 
immer ermittelt werden, um wie viele Zeichen VGS nach 
einem mißglückten Versuch nach rechts verschoben werden 
darf. Und das geht so: Betrachten Sie bitte wieder Bild 5. VG$ 
wird von hinten nach vorn beziehungsweise von rechts nach 
links durchlaufen. Dabei wird jedes Zeichen mit der entspre¬ 
chenden Stelle in BES verglichen. Stimmen alle Zeichen 
überein, so ist das Word VGS in BES gefunden. Erfolgt 
jedoch bei einem Buchstabenvergleich keine Übereinstim¬ 
mung, so darf BGS nach rechts verschoben werden - und 
zwar genau um die Zeichenzahl beziehungsweise zu dem 
Wert, der gemäß der Tabelle dem Zeichen von BES zugeord¬ 
net ist, •'ui dem zum ersten Mal keine Übereinstimmung fest¬ 
gestellt wurde. Beim ersten Suchschritt wird NIMM mit OTTO 
verglichen. Es wird also schon beim letzten Buchstaben 
Unübereinstimmung festgestellt, daß M ungleich O ist. 
Gemäß der Tabelle hat O den Wert 4. VGS darf somit um 4 
Zeichen nach rechts verschoben werden. Allerdings spielt 
der Tabellenwert nicht die einzige Rolle beim Verschieben. 
Vom aus der Tabelle ermittelten Wert wird noch die Entfer¬ 
nung des Buchstabens vom Wortende abgezogen, bei der 


10 DIM MX(26) <1B1> 

51000 REM BEFEHLSZERLEGUNG-CODIERUNG - 


<174> 

51001 : <176> 

51010 VG*="NIMM":VB=1012 <0B1> 

51020 REM M*—TABELLE ANLEGEN- <219> 

51040 FOR 1=1 TO 26:MX(I)“LEN(VG*>:NEXT I <077> 
51050 FOR 1=1 TO LEN(VG*):MX(ASC(MID*(VG*, 

1,1)>-64>=LEN(VG*)-I:NEXT I <101> 

51052 FOR 1=1 TO LEN(VG*):PRINT MID*(VG*,I 

,1),MX(ASC(MID*(VG*,I,1))-64):NEXT I <15B> 

51060 REM VG* IN BE* SUCHEN- <035> 

51065 PRINT"<CLR,SPACE>“;BE* <120> 

51070 PO=l <025> 

51080 FOR 1=1 TO PO:PRINT" ";:NEXT I:PRINT 

VG* <104> 

51085 IF VG*=MID*(BE*,PO,LEN(VG*>)THEN PRI 

NT"GEFUNDEN !“:END <214> 

51090 FOR I=LEN(VG*> TO 1 STEP-1 <107> 

51095 : IF MID* (BE*,PO+I , 1 > =" "THEN PRINT"NI 

CHT GEFUNDEN!":END < 231> 

51105 :IF MID*(VG*,I,l)=MID*(BE*,PO+I-l,l) 

THEN 51120 <218> 

51109 :IF ASC(MID*(BE*,PO+I—1,1))=32 THEN 

PO=PO+LEN(VG*):1=0:GOTO 51120 <022> 

51110 :PO=PO+MX(ASC(MID*(BE*,PO+I—1,1))—64 

>+LEN(VG*>-1:1=0 <216> 

51120 NEXT I <147> 

51130 GOTO 510B0 <0B7> 


Listing 3. Zweite Möglichkeit zur Befehlszerlegung 


Bild 5. So kann schneller gesucht werden 

62 I 
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die erste Nichtübereinstimmung gefunden wurde. Dies ist 
nicht ganz einfach verständlich. Ich rate Ihnen daher eine 
eigenständige Analyse von Listing 3, Zeile 51060-51130. 
Danach wird Ihnen das Prinzip dieser Methode mit Sicherheit 
klar sein. 

Man kann nicht so ohne weiteres behaupten, daß die 
zweite Methode der ersten überlegen ist. Auf den ersten 
Blick scheint Methode 2 zwar schneller zu sein, da weniger 
Verschiebungen notwendig sind. Dem steht jedoch eine 
wesentlich größere Rechenzeit als bei Methode 1 gegen¬ 
über. Am besten, Sie probieren selbst einmal aus, mittels 
Tl$-Zeitmessung, welche der beiden Methoden die geeigne¬ 
tere ist. Auf jeden Fall ist die Methode 2 äußerst interessant, 
nicht zuletzt deshalb, weil sie erst vor kurzem entdeckt 
wurde. 

Möglichkeit 3 


Wie Methode 1 eignet sich Methode 2 jedoch kaum zur 
Adventureprogrammierung, sondern vielmehr zur Entwick¬ 
lung von ELIZA-ähnlichen Simulationen. Anders Methode 3: 

Die 3. Methode entspricht weitgehend der Methode, die ich 
bereits in meinem ersten Adventure-Kurs verwendet habe. 
Es geht darum, den eingegebenen Befehlssatz BES 
zunächst in einzelne Worte BE$(0)-BE$(N) zu zerlegen, 
wobei N für die Anzahl der im Befehlssatz vorkommenden 
Worte steht. Der Befehlssatz kann in BE$(0)= "NIMM" 
BE$(1)= "DAS" und BE$(2)= "SCHWERT" zerlegt werden. 


GESAMTABLAUFSCHEMA 



__ 

Bild 6a. Aufbau und Ablauf eines Spiels 


BE$(3) ist hier natürlich " ", wodurch das Satzende 
gekennzeichnet ist. 

Nun wurde eine Wortzählvariable WZ auf 0 gesetzt. 
Sodann wurde das Wort BE$(WZ) codiert - also im Wort¬ 
schatz gesucht. Es wird so eine Verbzahl beziehungsweise 
Objektzahl etc ermittelt. Wird das Wort nicht im Wortschatz 
gefunden, so kommt die Fehlermeldung »ICH KENNE DAS 
WORT...NICHT«, und der gesamte Codiervorgang wurde 
abgebrochen. Sodann wurde der Wortzähler WZ um 1 er¬ 
höht, und eine neue Suchrunde begann. Der ganze Satz 
wurde so also codiert. Der Suchvorgang wurde dann abge¬ 
schlossen, wenn BE$(WZ)=» « war (also Satzende) oder 
BE$(WZ)=»UND« beziehungsweise »,« war (=Befehlssatz 
mit mehreren Befehlen). Wurde der Suchvorgang wegen 
letzterem unterbrochen, so wurde die Variable UD auf den 
Wert 1 gesetzt. Dadurch wußte das Programm, daß beim 
nächsten Mal, wenn der Spieler dran ist, die Befehlseingabe 
(INPUT-ROUTINE) übersprungen werden muß und die 
Codierung im alten Befehlssatz dort fortgesetzt werden 
mußte, wo man zuletzt wegen einem UND beziehungsweise 
KOMMA abgebrochen hatte. 

In Bild 6a und 6b finden Sie nochmals die beiden Ablauf¬ 
schemen, die diese Codiermethode beschreiben: 

Wer meinen ersten Adventurekurs durchgearbeitet hat, 
dem sind diese beiden Ablaufschemen mit Sicherheit gut 
bekannt. 

Obwohl die Ablaufschemen bereits über 1 Jahr alt sind und 
es inzwischen gravierende Verbesserungen im Bereich der 
Adventureprogrammierung gegeben hat (wie Sie schon bald 



Bild 6b. Die Befehlscodierung im Detail 
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sehen werden !), haben sie keineswegs ihre Gültigkeit verlo¬ 
ren. 

Bild 6a stellt das Gesamtablaufschema eine Adventures 
dar. Sie können jedes Adventure-Programmierkonzept in die¬ 
ses Schema quetschen. Unter Adventure läßt sich natürlich 
auch jedes andere Kl-Programm verstehen, bei dem im Pro¬ 
gramm folgende Teile enthalten sind: Befehlseingaberoutine, 
Analyse des Befehlssatzes anhand eines gegebenen Wort¬ 
schatzes, Interpretation der Analyse beziehungsweise Reak¬ 
tion auf die Befehlseingabe. 

Bild 6b beschreibt den Ablauf der Befehlscodierung nach 
Methode 3. Lassen Sie uns jetzt Methode 3 programmieren. 

Ergänzen Sie dieses Mal Listing 1 bitte um Listing 4. Unser 
Parsersystem 4.0 ist nun insofern komplett, daß nach der 
Befehlseingabe der Befehlssatz BES in einzelne Worte 
BE$(1)-BE$(N) zerlegt wird. Dabei ist festgelegt, daß der 
Befehlssatz aus maximal 10 einzelnen Wörtern bestehen 
darf. Dies läßt sich natürlich leicht abändern, aber 10 sollen 
uns zunächst genug sein zum Experimentieren. Die Wortzer¬ 
legung funktioniert äußerst primitiv: Es wird einfach BES 
durchlaufen und nach den SPACEs zwischen den einzelnen 
Wörtern gesucht. Eine Dokumentation zu Listing 4 erübrigt 
sich (hoffe ich doch !!!). 

Jetzt muß der Codiervorgang gemäß Bild 6b programmiert 
werden. Ergänzen Sie das jetzige Programm bitte um 
Listing 5. 

Auch Listing 5 läßt sich leicht verstehen. Auf Einbau von 
UND-Befehlstrennungen habe ich der Einfachheit halber 
zunächst verzichtet. Listing 5 bringt im Moment allerdings 
noch gar nichts. Wir müssen uns zunächst noch überlegen, 
wie wir das Wort in unserer relativen Wortschatzdatei finden 
beziehungsweise die einzelnen Befehlswörter BE$(1)- 
BE$(N). Im letzten Adventurekurs war dies noch ganz ein¬ 
fach: Da gab es für Verben und Objekte einzelne Tabellen 
(dimensionierte Stringfelder), in denen gesucht wurde. Jetzt 
befindet sich der gesamte Wortschatz, also Verben, Objekte, 
unwichtige Wörter, Richtungen etc; in einer relativen Datei, 
die alphabetisch sortiert ist. Nun, wie findet man Wörter in 
einer sortierten relativen Datei am schnellsten ? Ganz klar - 
binäre Suchmethode. Wir müssen also in Listing 5 eine binäre 
Suchroutine einbauen. Eine solche Routine haben wir ja 
bereits im Kursabschnitt »Dateiverwaltung« kennengelernt. 
Bevor wir die binäre Suchroutine in Listing 5 einbauen, müs¬ 
sen wir uns allerdings noch einige Gedanken zur Organisa¬ 
tion des Wortschatzes machen. 

Kleine Wortschatzlehre 


Werfen Sie an dieser Stelle bitte nochmals einen Blick auf Bild 
3. Dort habe ich Ihnen gezeigt, wie sich die 25 Zeichen eines 
jeden Satzes der Wortschatz-Datei aufteilen: Die ersten 21 
Zeichen sind für das Wort selbst reserviert. Also zum Beispiel 
für NIMM, ÖFFNE (Verben) oder auch HAUSTÜR, 
SCHRANK (Objekte). Die letzten 4 Zeichen jedes Satzes 
sind für eine Zahl - die Codierungszahl - reserviert. Was hat 
es nun mit dieser Codierungszahl auf sich ? Ganz einfach, aus 
ihr läßt sich ermitteln, welcher Wortart das entsprechende 
Wort angehört und welche Zahl ihm als Codierung (zum Bei¬ 
spiel Verbzahl VE usw.) zugedacht ist. Die 4stellige Zahl ist 
also vielmehr als zwei Zahlen beziehungsweise eine Ziffer 
und eine Zähl zu verstehen, die unmittelbar nebeneinander 
stehen. Bild 7 macht die genaue Unterteilung deutlich: 

Die erste Ziffer der 4stelligen Zahl beschreibt somit die 
Wortart WA, während die letzten drei Ziffern den Wortcode 
WC bestimmen. Wir können also festlegen: 

Wortart: WA= VAL(MID$(A$,22,1)) 

Wortcode: WC= VAL(MID$(A$,23,3)) 

A$ steht dabei für einen beliebigen Satz der Wortschatz- 


Datei. Das tatsächliche Wort ermittelt sich als 
A$=LEFT$(A$,21) 

Allerdings hat das absolute Wort nicht immer die Länge von 
21 Zeichen. Es wäre jedoch günstig, wenn in A$ nur das Wort 
(keine SPACEs mehr danach) stehen würde. Die SPACEs 
kann man ganz einfach eliminieren: 

9340 IFRIGHT$(A$,1)="Cursor right" THENA$=LEFT$ 
(A$,LEN(A$-1)) :G0T0 9340 
Diese Zeile wiederholt sich so lange, bis in A$ nur noch das 
Wort und keine SPACEs mehr danach stehen. Eigentlich darf 
ich hier gar nicht von SPACEs reden. Was wir auf dem Bild¬ 
schirm als SPACE sehen, ist bei Sätzen, die von relativen 
Dateien, die mit unserem Relative-Dateien-Editor erstellt wur¬ 
den, stammen, tatsächlich ein »Cursor right«-Zeichen. Achten 
Sie also stets darauf, daß Sie in Sätzen aus unseren Dateien 
niemals nach einem SPACE, sondern vielmehr nach dem 
cursor-right-Zeichen suchen (vergleiche Beschreibung zum 
Relative-Dateien-Editor im Kapitel »relative Dateien«)! 

Natürlich muß jetzt noch festgelegt werden, welche Wort¬ 
artzahl welcher Wortart entspricht: 

1 = Verb 

2 = Richtung 

3 = Objekt 

4 = Aus-Wort 

Bisher treten in unserem Wortschatz nur 1 und 2 als WA- 
Werte auf - kein Wunder, denn unser Ausgangs-Wortschatz 
besteht ja bisher nur aus Verben und Richtungen (die im Prin¬ 
zip auch als Verben verstanden werden können, jedoch trotz¬ 
dem einen eigenen WA-Wert benötigen, wie Sie gleich sehen 
werden). 

Unter Aus-Wort verstehe ich jedes Wort, das im Befehls¬ 
satz auftreten kann, bei der Codierung jedoch keinerlei Rolle 
spielt. Gemeint sind Wörter wie zum Beispiel der, die, das, 
nach, '."■'m und so weiter. 


51000 

REM BEFEHLSZERLEGUNG—CODIERUNG - 



— 

<174> 

51001 

: 

< 176> 

51005 

REM BE* IN BE*(1)—BE* <N) ZERLEGEN 

<165> 

51010 

FOR 1=0 TO 10:BE* CI> ="":NEXT I 

< 183> 

51020 

WZ=0 

<059> 

51030 

FOR 1=1 TO LEN(BE*> 

<004> 

51040 

: IF MID*(BE*,I,1>=" "THEN WZ=WZ+1:G 



OTO 51060 

<223> 

51045 

: IF WZ>10 THEN PRINT"EINGABE IST ZU 



LANG !I=LEN<BE*>+1:GOTO 51060 

<037> 

51050 

: BE*(WZ) =BE*(WZ)+MID*(BE*,1,1) 

<247> 

51060 

NEXT I 

<087 > 


Listing 4. Befehlscodierung nach Methode 3 


51100 

REM BE*(1)—BE* <N) CODIEREN 

<107> 

51110 

WZ=0 : REM WORTZAEHLER AUF 0 

<094> 

51120 

VE=0:OB=0:REM ALTE ERG. LOESCHEN 

<247> 

51130 

REM WORT BE*(WZ) IM WORTSCHATZ SUCHE 



N 

<065> 

51140 

: 

<059> 

51150 

s 

<069> 

51160 

8 

<079> 

51170 

8 

<089 > 

511B0 

c 

<099> 

51190 

: 

< 109> 

51200 

WZ=WZ+1 

<241> 

51220 

IF BE*(WZ)=""THEN 52000 

< 197> 

51230 

52000 

GOTO 51130 

REM REAKTION AUF BEFEHL - 

<155> 


— 

< 11B> 


Listing 5. Der Codiervorgang nach Bild 6b 





a|b|w| a|e |r|t |s| | f| | | | | 1 1 

1 2 1 0 | 1 1 0 1 




V 

WORT 

WORTART WORTCODE 


Bild 7. Die Wortcodierung im Datensatz 
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10 OPEN 1, B,3,“WORTSCHATZ":OPEN 15,8,15:RE 


M 

WORTSCHATZ—DATEI DEFFNEN 

< 125> 

20 INPUT SU* 

<157> 

30 60T0 9500 

< 114> 

9000 

REM ZEIGER POSITIONIEREN - 



- 

<187> 

9001 

: 

<0B7> 

9010 

HB7.=SA/256: LB7.=SA-HB7.*256 

<068> 

9020 

PRINT#15,"P";CHR*<3> ;CHR*(LB7.) jCHR*(H 



B7.) ; CHR* < 1) 

<005> 

9030 

INPUT#15,A:IF A-50 THEN PRINT"SATZNUM 



MER ZU HOCH" 

<088 > 

9040 

RETURN 

<20B> 

9100 

REM SATZ LESEN - 



- 

<17B> 

9101 

3 

< 1B7> 

9110 

IF A=50 THEN RETURN 

<0B2> 

9120 

INPUT#1,A* 

< 116> 

9130 

RETURN 

<042> 

9200 

REM SATZ SCHREIBEN- 



- 

<105> 

9201 

3 

<031 > 

9210 

IF A-50 THEN RETURN 

< 182> 

9220 

PR I NT # 1 , A* 

<042> 

9230 

RETURN 

< 144> 

9300 

REM SATZ-TEILBEREICH LESEN - 



— 

<021 > 

9301 

3 

<133> 

9310 

IF A=50 THEN RETURN 

<02B> 

9320 

INPUT#1,A* 

<062> 

9330 

WA=VAL(MID* < A*,22,1)):REM WORTART 

<075> 

9332 

WC-VAL(MID*(A*,23,3)): REM WORTCODE 

<100> 

9335 

A*=LEFT*(A*,21> :REM WORT 

<075> 

9340 

IF RIGHT*(A*,1>=”<RIGHT>"THEN A*=LEFT 



*<A*,LEN(A*>-1):GOTO 9340 

< 171 > 

9345 

PRINT A*,LEN(A*> 

<049> 

9350 

RETURN 

<008 > 

9500 

REM BINAERE SUCHROUTINE- 




<166> 

9520 

REM SU*=SUCHWORT 

<044> 

9540 

SZ=197:N—INT(LOG(SZ)/LOG(2))+1 



:REM MAXIMAL-FORMEL 

<224> 

9560 

SA=(2tN)/2:REM MITTE DER GES.DAT 

<209> 

9565 

GOSUB 9000:GOSUB 9300 



:REM A* LESEN 

< 121 > 

9580 

N=N—1 :REM 1.ABFRAGE 

<234> 

9600 

3 

< 178> 

9620 

REM SU* MIT A* VERGLEICHEN - 

<251 > 

9623 

: IF LEN(SU*)<3 THEN 9635 

< 189> 

9625 

: IF WA=1 AND SU*=LEFT*(A*,LEN(SU*)) 



THEN PRINT"SU*=VERB:SATZ ";SA:END 

<223> 

9630 

: IF WA—3 AND SU*=RIGHT*(A*,LEN(SU*)) 



THEN PRINT"SU*—OBJEKT:SATZ ”;SA:END 

<172> 

9635 

: IF WA—2 AND SU*=A* 



THEN PRINT"SU*—RICHTUNG:SATZ ";SA:END 

< 192> 

9637 

: IF WA-1 AND SU*=A* 



THEN PRINT“SU*—VERB:SATZ “;SA:END 

<094> 

9640 

: IF SU*<A*THEN SA-SA-(2t(N-l)):GOSUB 



9000:GOSUB 9300:GOTO 9700 

<060> 

9660 

: IF SA+(2t(N—1))>SZ AND N>-1 THEN N= 



N-l:GOTO 9660 :REM *’UEBERLAUF"’ 

<038> 

96B0 

: SA—SA+(2t(N—1)):GOSUB 9000:GOSUB 93 



00 :REM •'HALBIEREN'• 

<154> 

9700 

3 

<022> 

9720 

:N—N—1 :REM NAECHST. HALBIEREN 

<021 > 

9740 

:IF N<0 THEN PRINT"SU* GIBT’S NICHT! 



IN 1220":END :REM SU* NICHT IN DAT 



EI 

<043> 

9760 

PRINT"5A—";SA;" N— H ;N 



:REM UNNOETIG !! 

< 199> 

9780 

:GOTO 9600:REM NAECHST. SUCH-VERS. 

<069> 


Listing 6. Die Binäre Suchmethode 


NIMM 



SCHUETTLE 

POLIEREN 

NORDWESTEN 

SA=128 N=8 

SA=96 N=5 

SA=88 N=3 

HINUNTER 

LIES 

NIMM 

SA=64 N=6 

SA=80 N=4 

SA=84 N=2 


Bild 8. Binär gesucht = schnell gefunden 


030 ? 


Bei dem Wortschatz, den wir im letzten Adventurekurs ver¬ 
wendet haben, mußten die Wörter nicht mit Zahlen gekenn¬ 
zeichnet werden. Auch Wörter mit gleicher Bedeutung wur¬ 
den anders abgehandelt. Die nun angewandte Methode hat 
natürlich ihre Vorteile: Zum einen läßt sich der Wortschatz 
leichter um Worte erweitern, und zum anderen müssen nicht 
mehr mehrere Einzeltabellen verwaltet werden (für die ver¬ 
schiedenen Wortarten). 

Eine gute Wortschatzverwaltung beeinflußt nicht zuletzt 
auch die Anwenderfreundlichkeit eines Parsers in positivem 
Maße. Ein anwendungsfreundlicher Parser ist ein Parser, der 
bei der Befehlssatz-Analyse äußerst tolerant vorgeht. 

Es muß zum Beispiel anstelle des Verbs NIMM auch 
NEHME und NEHM sowie gegebenenfalls auch HOLE und 
ERGREIFE verstehen. Der Trick bei dieser Sache ist, daß 
mehr Worte verstanden werden, als eigentlich im Wortschatz 
stehen. Was das soll? Ganz einfach: 

Nehmen wir einmal an, wir wollen in einem Adventure die 
NIMM-Routine programmieren: 

IF VERB=NIMM AND OBJEKT X IST HIER THEN PRINT 
"OK. ICH HABE OBJEKT X." 

So könnte eine vereinfachte Syntax lauten. Dem Verb 
NIMM ist gemäß der Wortschatztabelle der Wortwert 12 
zugeordnet (also VE=12). Wir können also sagen: 

IF VE=12 AND OBJEKT X IST HIER THEN PRINT "OK. 

ICH HABE OBJEKT X". 

Was passiert, wenn der Spieler den Befehlssatz »HOLE 
OBJEKT X« eingibt? Nun, das Programm antwortet mit »OK. 
ICH....«, da dem Verb HOLE ebenfalls der Wortwert (bezie¬ 
hungsweise Verbwert) 12 zugeordnet ist. Unser Wortschatz 
ist ziemlich intelligent aufgebaut - intelligent insofern, daß 
Verben gleicher Bedeutung der gleiche Verbwert zugeordnet 
ist. Ein guter Parser sollte allerdings »NIMM DAS SCHWERT« 
genauso gut verstehen wie »ICH WILL DAS SCHWERT NEH¬ 
MEN - lind »NEHM DAS SCHWERT« (auch wenn es grammati¬ 
kalisch nicht in Ordnung ist). Wie stellt man es nun an, daß 
NEHM genauso gut verstanden wird wie NEHMEN? Nun, 
ganz einfach. NEHM steckt schließlich in NEHMEN drin. 
Nicht zuletzt ist dies auch der Grund, warum im Wortschatz 
immer die längstmögliche Form eines Verbs gespeichert wird 
- insofern ist dies möglich. Die meisten routinierten 
Adventure-Spieler geben eh in der Sytax NIMM, VERLIER, 
GIB etc. ein. Wir können uns deshalb auch hauptsächlich an 
dieser Form orientieren. Nehmen wir einmal an, der Satz 
»NIMM DAS SCHWERT« soll codiert werden (welcher sonst). 
BE$(0) ist dann ganz klar »NIMM«. Wir wollen BE$(0) jetzt 
anhand des Wortschatzes codieren. Mittels der binären 
Suchmethode werden dann verschiedene Sätze vom Wort¬ 
schatz eingelesen (als String A$) und mit SU$(=BE$(0)) 
verglichen. Bild 8 zeigt, wie das Wort NIMM im Wortschatz 
nach der binären Suchmethode gefunden wird. 

Wie wird A$ eingentlich mit SU$ verglichen? 

Ein Vergleich IF A$=SU$ THEN PRINT »GEFUNDEN« 
wäre mit Sicherheit falsch, da man in diesem Fall niemals das 
Verb NEHM finden würde (im Wortschatz steht nur NEHME). 
Der korrekte Vergleich lautet daher: 

IF SU$=LEFT$(A$,LEN(SU$)) THEN ? "GEFUNDEN" 

Dadurch sind bei der Befehlseingabe auch Abkürzungen 
der Verben erlaubt - zum Beispiel UNTERSU statt UNTER¬ 
SUCHEN beziehungsweise NEHM statt NEHMEN. Dies ist 
mit Sicherheit jedem sonnenklar. Was aber, wenn der Spieler 
nach Norden gehen will? Er wird dann mit größter Wahr¬ 
scheinlichkeit BE$=»N« eingeben. Aufgrund unserer bishe¬ 
rigen Abfragemethode IF SU$=LEFT$(A$,...) wird das Pro¬ 
gramm annehmen, daß das erste Wort, das mit N beginnt, das 
richtige ist. Werfen Sie doch bitte einmal einen Blick in die 
Wortschatztabelle: Sie werden merken, daß dort für Norden 
sowohl »N« als auch »NORDEN« vermerkt ist. Nicht umsonst 
haben Richtungen deshalb einen anderen WA-Wert als Ver- 
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ben. Sicher erinnern Sie sich daran, daß A$ vor dem Ver¬ 
gleich mit SU$ präpariert wird. Zunächst wird A$ mit einem 
Satz der Wortschatzdatei gefüllt. Dann werden Wortcode WC 
und Wortart WA ermittelt. Zuletzt steht in A$ dann nur noch 
das absolute Wort. Dadurch, daß die Wortart beim Verglei¬ 
chen bereits bekannt ist, kann folgender Vergleich program¬ 
miert werden: 

IF WA=1 AND SU$=LEFT$(A$,LEN(SU$)) THEN ? "VERB GE¬ 
FUNDEN" 

IF WA=2 AND SU$=A$ THEN ? "RICHTUNG GEFUNDEN" 

Sie sehen also, bei RICHTUNGEN muß SU$ mit A$ über¬ 
einstimmen und SU$ nicht nur linksbündig in A$ enthalten 
sein. 

Wie muß nach Objekten gesucht werden? Wir wollen uns 
auch mit dieser Frage beschäftigen - auch wenn sich im 
Wortschatz bisher noch keine Objekte befinden. 

Objektnamen setzen sich oft aus Hauptwörtern zusam¬ 
men. So zum Beispiel HAUSTÜR, HOLZKISTE, WEINFLA¬ 
SCHE und so weiter. Will der Spieler eine Haustür öffnen, so 
kann er sagen »ÖFFNE DIE HAUSTÜR« oder auch »ÖFFNE 
DIE TÜR«. Der Parser muß also wissen, daß 
HAUSTÜR=TÜR, HOLZKISTE=KISTE und so weiter ist. Ent¬ 
scheidend zur Bestimmung eines Objektes ist stets das 
zweite Hauptwort (beziehungsweise das Hauptwort, das 
ganz rechts im Objektnamen steht, beziehungsweise das 
Objekt selbst, wenn es sich nicht aus mehreren Hauptwör¬ 
tern zusammensetzt). Es bietet sich also an, bei der Objekt¬ 
suche von »rechts her« zu vergleichen: 

IF WA=3 AND SU$=RIGHT$(A$,LEN(SU$)) THEN ? "OBJEKT¬ 
GEFUNDEN" 


Das war wieder mal ziemlich viel Theorie. Listing 6 setzt das 
eben Gelernte in die Praxis um. 

Dokumentation: 


10-30 


9000-9230 


9300-9350 


9500-9780 


9540 


9620-9637 


Hier wird die Wortschatzdatei geöffnet. 
Vor Programmstart ist es also erforder¬ 
lich, daß Sie die Diskette mit der Wort¬ 
schatzdatei einlegen. Anschließend wird 
ein Suchbegriff SUS eingegeben. 

Hier stehen die drei Unterprogramme, 
die beim Arbeiten mit relativen Dateien 
immer wieder benötigt werden: Positio¬ 
nieren, Lesen und Schreiben. 

Hier wird ein Satz A$ der Wortschatzda¬ 
tei gelesen. Zunächst werden Wortcode 
WC und Wortart WA gelesen, dann die 
Codierzahl vom A$ abgeschnitten und 
alle SPACES (cursor-rights) hinter dem 
absoluten Wort weggenommen (Zeile 
9340). 

Hier steht die binäre Suchroutine, wie 
ich sie Ihnen bereits im Kapitel Dateiver¬ 
waltung Listing 15 beschrieben habe. 

Die Routine wurde zwecks Zusammen¬ 
arbeit mit relativer Datei entsprechend 
modifiziert. 

Für SZ muß die Anzahl der Worte, die im 
Wortschatz enthalten sind, eingesetzt 
werden. (Im Moment haben wir 197 
Worte.) 

Hier werden die Objekte, Verben und 
Richtungen gesucht. 


0 REM ********************************* 

< 131 > 




1 REM * INDEX-MAKER - ERSTELLT DEN * 

<097> 


— 

< 185> 

2 REM * INDEX ZU EINEM BELIEBIGEN, * 

<05B> 

20E: 

<199> 

3 REM * ALPHABET I SCH GEORDNETEN * 

<134> 

2010 

PRINT"ICLR}INDEX—AUSGABE:" 

<030> 

4 REM * BEREICH EINER RELATIVEN DATEI * 

<19B> 

2020 

PRINT"<2D0WN}AUSGABE AUF BILDSCHIRM < 


5 REM * <C> 1986 BEI MICHAEL NICKLES * 

< 163> 


1 > 

<06B> 

6 REM ********************************* 

< 137> 

2030 

PRINT"<DOWN}ALS SEQ-FILE AUF DISK<2SP 


10 PRINT"TCLR,YELLOW,RVSON}INDEX-MAKERIRVO 



ACE}<2> 

<247> 

FF}" 

<022> 

2040 

POKE 198,0 

< 170> 

20 DIM MX(26) : REM INDEX-TABELLE 

<034> 

2050 

GET IS:IF IS< >"1"AND IS< >"2"THEN 2050 

<094> 

30 PRINT"<DOWN>BITTE GEBEN SIE DEN NAMEN D 


2060 

IF IS="1"THEN 2100 

<023> 

ER RELATIVEN 

<039> 

2070 

IF IS="2“THEN 2200 

< 170> 

40 PRINT"DATEI AN, VON DER EIN INDEX ERSTE 


2100 

REM AUSGABE AUF BILDSCHIRM 

< 197> 

LLT 

<250> 

2101 

: 

<045> 

50 PRINT"WERDEN SOLL!" 

<202> 

2110 

PRINT"tCLR}" 

<066> 

60 POKE 198,0:INPUT"{DOWN}";DS 

<225> 

2120 

FOR 1=1 TO 13:PRINT CHRS(1+64)"="MX(I 


70 OPEN 1,8,3,DS:OPEN 15,B,15:REM DATEI OE 



),CHRS(1+13+64)"="MX(1+13):NEXT I 

<086> 

FFNEN 

< 197> 

2130 

END 

<100> 

B0 PRINT"<DOWN}BITTE GEBEN SIE DEN BEREICH 


2200 

REM MX(1)—MX(26) ALS SEQFILE SPEICHER 


DER DATEI AN"; 

< 143> 


N 

<16B> 

90 PRINT"VON DEM DER INDEX ERSTELLT WERDEN 


2201 

8 

< 145> 

SOLL!" 

<061 > 

2210 

POKE 19B,0:INPUT"<DOWN}FILENAME ";IS: 


100 POKE 19B,0:INPUT"<DOWN}ANFANG";AN 

< 133> 


IS=IS+",S,W" 

<043> 

110 POKE 198,0:INPUT"CDOWNIENDE{2SPACE}";E 


2220 

OPEN 2,8,2,IS 

<006> 

N 

<0B6> 

2230 

FOR 1 = 1 TO 26 

<223> 

120 SA=AN:GOSUB 9000: IF A=50 THEN PR INT "AN 


2240 

:PRINT#2,MX(I> 

< 103> 

FANGSATZ EXISTIERT NICHT!":GOTO 100 

<236> 

2250 

NEXT I:CLOSE 2 

< 113> 

130 SA=EN:GOSUB 9000:IF A=50 THEN PRINT“EN 


2260 

END 

<230> 

DSATZ EXISTIERT NICHT ! " : GOTO 100 

< 190> 

9000 

REM ZEIGER POSITIONIEREN - 


140 IF AN>EN THEN PRINT"UNSINN!":GOTO 100 

<244> 


— 


1000 REM INDEX-ERSTELLEN - 



— 

< 187> 



9001 

| 

<0B7> 

- 

<138> 

9010 

HBX=SA/256:LBX=SA-HBX*256 

<068> 

1001 : 

<215> 

9020 

PRINT#15,"P";CHRS(3);CHRS(LBX);CHRS(H 


1005 PRINT"(DOWN}BITTE WARTEN !" 

<016> 


BX);CHRS(1) 

<005> 

1010 SA=AN:GOSUB 9000 

< 149> 

9030 

INPUT#15,A:IF A=50 THEN PRINT"SATZNUM 


1020 IZ=0 

<042> 


MER ZU HOCH" 

<0B8> 

1030 FOR SA=AN TO EN 

<246> 

9040 

RETURN 

<20B> 

1035 : 

<251 > 

9100 

REM SATZ LESEN - 


1040 : GOSUB 9100:PRINT SA, AS 

<000> 




1050 : IF MX(ASC(LEFTS(A*,l>)-64>=0 THEN M 



- 

< 178> 

X(ASC(LEFTS(A*,1)>-64)=SA 

<227> 

9101 

* 

< 1B7> 

1080 : 

<040> 

9110 

IF A=50 THEN RETURN 

<0B2> 

1100 NEXT SA 

<012> 

9120 

INPUT#1,AS 

< 116> 

2000 REM INDEX AUSGEBEN - 


9130 

RETURN 

<042> 



Listing 7. Mit diesem Programm kann der Index einer relativen Datei erstellt werden 
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9623 Wenn die Zeichenanzahl des Suchbe¬ 

griffs weniger als 3 Zeichen beträgt, muß 
davon ausgegangen werden, daß es sich 
bei SU$ um eine Richtungsangabe han¬ 
delt. Das heißt auch, daß Verbenabkür¬ 
zungen mindestens 3 Buchstaben betra¬ 
gen müssen. Man kann für INVENTUR 
also nicht die Abkürzung I eingeben- es 
sei denn, I wurde zusätzlich im Wort¬ 
schatz definiert (Zeile 9637 sorgt dafür, 
daß solche Verbabkürzungen akzeptiert 
werden). 

Ist LEN(SUS) also kleiner als 3, so wer¬ 
den die Zeilen 9625 (Verbvergleich 
linksbündig) und Zeile 9630 (Objektver¬ 
gleich rechtsbündig) übersprungen. 

9625 Verbsuche (linksbündig) 

9630 Objektsuche (rechtsbündig) 

9635 Richtungssuche (absolut) 

9637 Verbsuche (absolut) - für Verben, deren 

Abkürzung auch weniger als 3 Zeichen 
betragen darf - müssen im Wortschatz 
extra verzeichnet werden! 

Zum Abschluß von Methode 3 müßte Listing 6 nun eigent¬ 
lich mit Listing 5 kombiniert werden. Ich möchte jedoch davon 
absehen, da Sie dies zum einen leicht selbst machen können 
und es zum anderen noch eine bessere Möglichkeit gibt, die 
im Prinzip eine Verbesserung des letzten Programms bedeu¬ 
tet: 

Möglichkeit 4 


Unser Wortschatz besteht aus 197 Worten. Um ein bestimm¬ 
tes Wort mittels der binären Suchmethode in diesem Wort¬ 
schatz zu finden, beziehungsweise um festzustellen, daß 
dieses Wort im Wortschatz nicht vorkommt, sind maximal 8 
Lesezugriffe auf Disk erforderlich. Jeder Schreib- bezie¬ 
hungsweise Lesezugriff auf Disk kostet Zeit. Auch durch 
Assemblerprogrammierung läßt sich diese Zugriffszeit kaum 
verkürzen. Es gibt allerdings eine Suchmethode, bei der 
weniger Lesezugriffe aus Disk nötig sind als bei Möglich¬ 
keit 3. 

Das Index-Binäre-Suchprinzip 


Keine Angst, dieses Prinzip läßt sich einfacher verstehen, als 
der komplexe Name vermuten läßt. Beim Index-Binären- 
Suchprinzip handelt es sich lediglich um eine Verbesserung 


_ BE$=BE$+* * _ 

BE$= | NIMM DAS SCHMERt' 

A 

10 B = A+l:IF MID$(BE$,B,1)=" " THEN END 
20 IF MID$(BE$,B,1) < > * " THEN B=B+1:GOT020 


NIMM DAS SCHWERT 


A B 

30 SU$=MID$(BE$,A,B-A) 
JETZT WIRD SU$ CODIERT 
DANN: A=B+1:G0T010 


Bild 9. Befehlscodierung mit Methode 4 


der binären Suchmethode. Gehen wir einmal davon aus, daß 
unser Suchbegriff SU$=»NIMM« ist. Unser Parser erkennt 
nicht auf Anhieb, daß SU$ ein VERB ist. Er erkennt SU$ erst 
dann als Verb an, wenn er es im Wortschatz gefunden hat. 
Etwas könnte der Parser allerdings schon vor Beginn des 
Suchvorgangs wissen - und zwar, daß der Suchbegriff mit 
dem Buchstaben N beginnt. Wozu also den gesamten Wort¬ 
schatz durchsuchen, der ja eh alphabetisch geordnet ist? Es 
würde doch vollkommen ausreichen, den Bereich, in dem alle 
mit N beginnenden Wörter stehen, mittels der binären Such¬ 
methode zu durchsuchen! Dazu benötigt man zunächst 
einen Index - eine Tabelle, in der steht, ab welchem Satz die 
mit A beginnenden Wörter stehen, ab welchem die mit B 
beginnenden, und so weiter. Das Programm in Listing 7 ist in 
der Lage, den Index zu einem beliebigen Bereich einer relati¬ 
ven Datei (der natürlich alphabetisch geordnet sein muß) zu 
erstellen. 

Das Programm ist anwenderfreundlich - es erkennt unlogi¬ 
sche Eingaben und erklärt sich nach Programmstart selbst. 

Es lohnt sich eigentlich gar nicht, den Index-File jedesmal 
erst lange von Disk zu laden. Es ist günstiger, die Werte ein¬ 
fach in DATA-Zeilen im Listing abzulegen. 

Durch Anwendung der Index-Binären-Methode sind nur 
wenig Lesezugriffe auf Disk notwendig, bis ein Wort gefun¬ 
den ist: Die größte Wortgruppe unserer Wortschatzdatei stel¬ 
len die Wörter dar, die mit S beginnen: Das sind 33 Worte. Im 
ungünstigsten Fall werden nur 6 Zugriffe benötigt, um ein 
Wort zu finden. Vorteilhaft an der neuen Methode ist außer¬ 
dem, daß Wörter, die mit einem Buchstaben beginnen, der im 
Wortschatz als Anfangsbuchstabe überhaupt nicht auftaucht 
(zum Beispiel C,J,M,X und Y), erst gar nicht gesucht werden, 
weil von vorneherein klar ist, daß sie im Wortschatz nicht auf- 
treten. 

Bei Methode 4 wird allerdings auch noch etwas anderes 
verbessert: Das Zerlegen von BE$ in BE$(0)-BE$(N). 
Eigentlich ist es nämlich Quatsch, BE$ in einzelne Worte zu 
zerlegen. Es reicht völlig aus, mit Zeigern zu arbeiten. Bild 9 
verdeutlicht dies. 

Das mit den Zeigern funktioniert ganz einfach: Zu Beginn 
wird Zeiger A auf das erste Zeichen von BES gesetzt. Zeiger 
B läuft von Zeiger A aus nach rechts bis zum nächsten Space. 
Das erste Suchwort ist somit festgelegt. Nachdem dieses 
Wort codiert ist, wird Zeiger A auf das Zeichen rechts neben 
Zeiger B gesetzt - auf das erste Zeichen des neuen Such¬ 
wortes. Jetzt läuft Zeiger B wieder nach rechts und sucht 
erneut das Wortende, und so weiter. 

Trifft Zeiger B auf kein Zeichen mehr, so ist er am Ende des 
Satzes angelangt - der Satz ist komplett codiert. 

Damit das letzte Wort der Sätze noch codiert wird, muß am 
Befehlssatz BE$ noch ein SPACE angehängt werden. 

Bei Methode 4 soll auch noch etwas anderes berücksich¬ 
tigt werden - das Satzende. Es gibt 3 Möglichkeiten, einen 
Satz zu beenden - mit einem Punkt, einem Ausrufezeichen, 
einem Fragezeichen oder einfach nichts. 

Uns interessieren allerdings nur zwei Fälle: Fragezeichen 
oder nicht. Bevor BES also codiert wird, muß künftig darauf 
geachtet werden, ob am Ende des Satzes ein Satzzeichen 
steht. Die Variable SN speichert das Satzzeichen (Punkt etc. 
=0, Fragezeichen =1). Dann wird BE$ so gekürzt, daß das 
Zeichen wegfällt. 

Nach dem Codiervorgang müssen folgende Werte in Form 
von Variablen vorliegen: 

SN Satzzeichen am Satzende 

VE Verbzahl 

O Objektzahl für erstes Objekt 

02 Objektzahl für zweites Objekt (falls vorhanden) 

RI Richtung 

UD UND-Speicher 

AD Adjektiv-Zahl 
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10 DPEN 1,8,3,"WORTSCHATZ":OPEN 15,8,15:RE 


51001 

| 

< 17A> 

M WORTSCHATZ-DATEI OEFFNEN 

<125> 

51007 

REM ANFANG UND ENDE DES SUCHBEREICHE 


20 DATA 1,3,0,28,31,47,51,60,68,0,70,76,0, 



S ERMITTELN 

< 117> 

82, 

90,93,100,101,116,149,155,15B 

<160> 

51008 

I=ASC(LEFT*(SU*,1)> 

< 176> 

30 DATA 178,0,0,189 

<193> 

51009 

IF I—65<0 OR 1—65>25 THEN GOSUB 5150 


35 DATA 19B :REM BUCHSTABE NACH Z !?! 

<235> 


0:GOTO 50000 

<134> 

40 DIM IN(26):FOR 1=0 TO 26:READ IN(I):NEX 


51010 

AN=IN(I-65):REM ANFANG DES SUCHBEREI 


T 


< 193> 


CHES 

< 164> 

50 SOSUB 50000 

<062> 

51012 

IZ=64 

<200> 

60 PRINT”SN= "SN:PRINT"VE="VE: PRINT"01 = "01: 


51013 

IF IN(I—IZ)=0 THEN IZ=IZ—1:GOTO 5101 


PRINT"02="02:PRINT"UD="UD:PRINT"RI="RI 

<017> 


3 

<0B6> 

70 PRINT"AD="AD:PRINT:GQTO 50 

<111> 

51015 

EN=IN(I —IZ> — 1:REM ENDE DES SUCHBEREI 


50000 

REM ***************************** 

<227> 


CHES 

<070> 

50001 

REM * * 

<009> 

51016 

IF AN=0 THEN GOSUB 51500:UD=0:GOTO 5 


50002 

REM * WORT-PARSER 4.0 * 

< 169> 


0000 

<249> 

50003 

REM * * 

<0U> 

51020 

SZ=197:N=INT(LOG(EN-AN+1)/LOB(2))+1 


50004 

REM * <C> 1986 BEI * 

<0B6> 


:REM MAXIMAL-FORMEL 

< 121 > 

50005 

REM * * 

<013> 

51030 

SA=AN—1+(2TN)/2:REM MITTE DER GES.DA 


50006 

REM * MICHAEL NICKLES * 

<082> 


T 

<073> 

50007 

REM * * 

<015> 

51040 

GOSUB 52100:REM A* LESEN 

<234> 

50008 

REM ***************************** 

<235> 

51050 

N=N—1 :REM 1.ABFRAGE 

<045> 

50010 

REM BEFEHLSSÄTZEINEABE - 


51060 

3 

<235> 




51070 

REM SU* MIT A* VERBLEICHEN - 

<042> 


— 

<069> 

51080 

: IF LEN(SU*)<3 THEN 51110 

< 140> 

50011 

: 

< 202 > 

51090 

: IF WA=1 AND SU*=LEFT*(A*,LEN(SU*)) 


50012 

IF UD>0 THEN 50500:REM UND 

< 171 > 


THEN VE=WC: GOTO 51300 

< 157> 

50015 

SL=B0: REM BEFEHLSSATZLAENGE 

< 144 > 

51100 

: IF WA<>3 OR SU*<>RIGHT*(A*,LEN(SU* 


50020 

PRINT"(DOWN>":BE*="":POKE 19B,0:POKE 



>)THEN 51110 

< 161 > 


211,0:POKE 214,22:SYS 58732:PRINT"< 


51102 

: IF UD=1 OR UD=2 THEN UD=3:O1=0:O2 



YELLOW>5"; 

< 156> 


=0 

<042> 

50030 

GET X*:IF PEEK(203)=1 THEN 50120 

<226> 

51104 

: IF 01=0 THEN 01=WC:OM=01:GOTO 51 


50040 

IF X*=""THEN 50030 

< 171 > 


300 

< 133> 

50050 

IF LEN(BES)=0 AND ASC(X*>=20 THEN 50 


51105 

: IF 02=0 THEN 02=WC:0M=01:GOTO 51 



030 

< 14B> 


300 

< 170> 

50060 

I=ASC(X*):IF I<32 OR I>133 AND IC159 


51110 

: IF WA=2 AND SU*=A* 



THEN IF 1020 THEN 50030 

< 131 > 


THEN RI=WC:GOTO 51300 

<140> 

50070 

IF LEN(BE*)=SL AND 1020 THEN 50030 

<128> 

51115 

: IF WA=5 AND SU*=A* 


50080 

BE*=BE*+X* 

<031 > 


THEN AD=WC: GOTO 51300 

<247> 

50090 

PRINT CHR*(20); X*; "{?"; 

< 108> 

51120 

: IF WA=1 AND SU*=A* 


50100 

IF 1=20 THEN BE*=LEFT*(BE*,LEN(BE*>- 



THEN VE=WC:GOTO 51300 

<017> 


2):GOTO 50030 

<101> 

51125 

: IF WA=4 AND SU*=A* 


50110 

GOTO 50030 

<001> 


THEN 51300 

<204> 

50120 

PRINT“CLEFT,SPACE >“ 

<227> 

51130 

: IF SU*<A*THEN SA=SA-(2t(N-l)>:GDSU 


50400 

REM SATZZEICHEN SUCHEN-<= 

mnasE 

B 52100:GOTO 51160 

<015> 




51140 

: IF SA+(2t(N—1)> >SA+EN—AN AND N>-1 



— 

< 103> 


THEN N=N—1:GOTO 51140:REM '’UEBERLAU 


50401 

: 

<082> 


F - ’ 

<204> 

50415 

SN=0 

< 104> 

51150 

: SA=SA+(2t(N—l)):GOSUB 52100:REM *' 


50420 

IF RIGHT*(BES,1)=” "THEN BE*=LEFT*(B 



HALBIEREN'’ 



E*,LEN(BE*)—1):GOTO 50420 

<233> 



< 141 > 

50430 

I*=RIGHT*(BE*,1) 

<1B0> 

51160 

s 

<079> 

50440 

IF I*="."OR I*="!"THEN SN=0:BE*=LEFT 


51170 

:N=N-1 :REM NAECHST. HALBIEREN 

<068> 


*(BE*,LEN(BE*)—1):GOTO 50420 

<010> 

51180 

:IF N<0 THEN GOSUB 51500:UD=0:GOTO 5 


50450 

IF I*=“?"THEN SN=1:BE*=LEFT*(BE*,LEN 



0000 

<201 > 


(BE*)-1):GOTO 50420 

< 144> 

51190 

REM PRINT"SA=";SA;" N=";N 


50500 

REM BE*—ZEIGER SETZEN - 



:REM UNNOETIG !! 

<216> 




51200 

:GOTO 51060:REM NAECHST. SUCH-VERS. 

< 192> 


— 

< 199> 

51300 

REM NAECHSTES WORT 

<027> 

50501 

3 

< 184> 

51310 

ZA=ZB+1 

<254> 

50502 

IF UD=0 THEN VE=0:RI=0:01=0:02=0 

<012> 

51320 

IF MID*(BE*,ZA,1)=""THEN 50530 

< 128> 

50504 

IF UD>0 THEN R1=0:GOTO 50530 

< 199> 

51330 

IF MID*(BE*,ZA,1)=" "THEN ZA=ZA+1:G0 


50505 

IF LEFT* ( BE*,1 )=“ "THEN BE*=RIGHT *( B 



TO 51330 

<207> 


E#,LEN ( BE*) — 1 ): GOTO 50505 

< 132> 

51350 

GOTO 50530 

< 131 > 

50510 

BE*=BE*+" " 

<232> 

51500 

REM ICH KENNE SU* NICHT - 


50520 

ZA=1 :REM ZEIGER A SETZEN 

<058> 




50530 

ZB=ZA+1 

< 1 80 > 


— 

<232> 

50540 

IF MID*(BE*,ZB,1 )=" "THEN UD=0:RETURN 

<213> 

51501 

8 

<168> 

50550 

IF MID* (BE*, ZB, 1)0" "THEN ZB=ZB+1:G 


51510 

I=INT(3*RND ( 1 )> +1 

<0B0> 


OTO 50550 

< 175> 

51520 

ON I GOTO 51530,51540,51550 

< 173> 

50590 

SU*=MID* ( BE*,ZA,ZB-ZA ) 

< 222 > 

51530 

X*=“ "+" ICH KENNE DAS WORT '"+SU*+" ' 


50600 

REM SU* VORBEHANDLUNG - 



NICHT. ": GOTO 52000 

<002> 




51540 

X*="“+"DAS WORT ' "+SU*+" ' IST MIR NI 



— 

<130> 


CHT BEKANNT. ": GOTO 52000 

< 113> 

50601 

3 

<028> 

51550 

X*="“ + "DEUTSCH IST LEIDER NUR MEINE 


50610 

IF SU*="UND"THEN UD=1:G0T0 50630 

<093> 


ZWEITE SPRACHE. ICH KENNE DAS " 

<038> 

50620 

IF SU*=","THEN UD=2:GOTO 50630 

<061 > 

51555 

X*=X*+"WORT ’"+SU*+"' NICHT.":BOTO 5 


50625 

GOTO 50670 

<201 > 


2000 

< 157> 

50630 

ZA=ZB+1 

<080 > 

52000 

REM FORMATIERTE TEXTAUSGABE- 


50640 

IF MID*(BE*,ZA,1)=""THEN PRINT"UND W 






AS ?“:GOTO 50530 

< 153> 


— 

<120> 

50650 

IF MID*(BE*,ZA,1)=" "THEN ZA=ZA+1:G0 


52010 

IF X*=""THEN 52090 

<213> 


TO 50650 

<242> 

52020 

IF LEN(X*)<40 THEN PRINT X*:GOTO 520 


50660 

RETURN 

-169> 


90 

<24B> 

50670 

IF SU*="IHN"OR SU*="SIE"OR SU*=“ES"T 


52030 

IF LEN(X*)=40 THEN PRINT X*;:GOTO 52 



HEN 01=0M:GOTO 51300 

<069 > 


090 

< 148> 

51000 

REM BINAERE SUCHROUTINE - 


52040 

I *=LEFT* (X*, 41 ) : I C=0 : FOR 1 = 1 TO LEN ( 






I*>:IF MID*(I*,I,1)=” "THEN IC=I 

<242> 



< 113> 
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52050 

NEXT IsIF IC=0 THEN PRINT XS-.GOTO 52 



090 


<064> 

52060 

I*=LEFT*<I*,IC-1>:IF LEN(I*)=40 THEN 



PRINT I*; 


<046> 

52070 

IF LEN(I*> <40 THEN PRINT I* 


< 116> 

52080 

X*=’RIGHT*(X*,LEN(X*>-IC>:GOTO 

52010 

<206> 

52090 

RETURN 


<075> 

52100 

REM SATZ-TEILBEREICH LESEN - 




— 


<254> 

52101 

8 


<004> 

52110 

HBX-SA/256:LBX=SA-HBX*256 


<241> 

52112 

PRINT#15,“P";CHR*<3> jCHR*(LBX> 

(CHR*( 



HBX);CHR*(1) 


< 170> 

52114 

INPUT#15,A: IF A-=50 THEN PRINT 1 

SATZNU 



MMER ZU HOCH" 


<245> 

52120 

IF A=50 THEN RETURN 


<165> 

52130 

INPUT#1,A* 


< 199> 

52140 

WA-VAL<MID*<A*,22,1>) 


<030> 

52150 

WC-VAL(MID*(A*,23,3>> 


<0B9> 

52160 

A*”LEFT*<A*,21> 


<202> 

52170 

IF RIGHT*<A*,1>-"<RIGHT>"THEN 

A*=LEF 



T*(A*,LEN(A*>-l)iGOTO 52170 


< 154> 

52180 

RETURN 


<165> 


Listing 8. Methode 4 als Programm 


Zur Objektcodierung werden zwei Variablen 01 und 02 
benötigt, da ein Befehl aus maximal zwei Objekten (direktes 
und indirektes) bestehen kann. Beispiel: »ÖFFNE DIE TÜR 
MIT DEM SCHLÜSSEL«. Im Befehl kann auch nur ein Verb 
auftreten. Gegebenenfalls kann auch noch eine Variable AD 
für Adjektiv zur näheren Beschreibung der Objekte verwen¬ 
det werden. Adjektive haben die Wortzahl WZ=5. 

Jetzt kann Methode 4 wie in Listing 8 programmiert wer¬ 
den: 

Die REM-Zeilen können beim Abtippen nicht so ohne wei¬ 
teres weggelassen werden! 

Mit REM-Zeilen beansprucht Parser 4.0 zirka 3 KByte RAM 
Basic-Speicher. Entfernt man die REM-Zeilen unter Berück¬ 
sichtigung der dann teils veränderten Ansprungsadressen, 
so werden nur zirka 2 KByte Basic-RAM benötigt. 

Parser 4.0 ist ziemlich intelligent und zum größten Teil 
sogar idiotensicher. Das heißt, es werden die blödsinnigsten 
Befehlseingaben akzeptiert. Zum Beispiel: 

"NIMM DAS SCHWERT" 

" NIMM DAS SCHWERT!" 

"NIMM SCHWERT, UNTERSUCHE ES" 

Die UND-Routine ist auch eingebaut. Außerdem speichert 
Parser 4.0 jeweils das zuletzt eingegebene Objekt in der 
Variablen OM. Bei Eingabe eines der Schlüsselwörter IHN, 
SIE oder ES (zum Beispiel BES=»UNTERSUCHE ES«), so 
wird O gleich OM gesetzt. Der Clou ist auch, daß Sie einfach 
nur GOSUB 50000 eingeben müssen, wenn vom Spieler 
eine Befehlseingabe erwartet wird. Parser 4.0 erkennt auto¬ 
matisch, ob die INPUT-Routine angesprungen werden muß 
oder ob der letzte Befehlssatz noch nicht ganz abgehandelt 
ist (UND-FALL). Kann Parser 4.0 ein Wort nicht codieren, weil 
es im Wortschatz nicht vorkommt, so erfolgt »ICH KENNE 
DAS WORT .... NICHT«, und anschließend wird zur 
Befehlseingabe-Routine zurückgesprungen. Dies ist not¬ 
wendig, damit ein Spieler niemals verlieren kann, wenn er bei 
einer entscheidenden Situation (zum Beispiel Kampf mit 
Monster) sich aus Versehen vertippt (zum Beispiel TOTE 
MONSTER statt TOETE MONSTER). Das Programm darf also 
erst dann weiterlaufen, wenn der Spieler eine korrekte 
Befehlseingabe gemacht hat. 

Nach dem Rücksprung aus Parser 4.0 liegt der Satz codiert 
in den Variablen SN,VE,01,02,UD,AD vor. Natürlich können 
Sie Parser 4.0 jetzt noch nicht gründlich testen, da im Wort¬ 
schatz momentan noch die Objekte fehlen. Zunächst rate ich 
Ihnen, die nun folgende Dokumentation gründlich zu studie¬ 
ren, damit Sie in der Lage sind, Parser 4.0 selbst zu modifizie¬ 
ren - denn dies ist beim Einbau in eigene Programme fast 
immer notwendig! 

33E? 


Dokumentation zu Parser 4.0 


10 Hier wird die Wortschatz-Datei geöffnet. Das heißt es 

muß die Diskette eingelegt sein, auf der sich der Wort¬ 
schatz befindet. 

20-30 Hier stehen die DATAs zum Wortschatz-Index, die mit 
dem Index-Maker ermittelt wurden. 

35 Tatsächlich besteht die Index-Tabelle nicht nur aus 26, 

sondern 27 Elementen. Das 27. Element steht für 
den Buchstaben, der nach Z kommt. Richtig, nach Z 
kommt kein Buchstabe mehr. Das 27. Element der 
Index-Tabelle errechnet sich vielmehr aus ANZAHL 
WÖRTER DER WORTTABELLE +1. Dies ist nötig, 
damit das Programm erkennt, von welchem bis zu wel¬ 
chem Satz die mit Z beginnenden Wörter zu finden 
sind. Der 27. Wert wird NICHT automatisch vom 
Index-Maker erstellt. Er muß als »von Hand« berech¬ 
net und eingesetzt werden. 

40 Einlesen der Index-Datas in das Index-Feld IN(0)- 
IN(26) 

50-70 Hier wird Parser 4.0 mittels GOSUB 50000 aufgeru¬ 
fen. Danach werden die codierten Werte, SN, VE, 01, 
02, UD, RI, AD ausgegeben. Dann erfolgt Rücksprung 
zum Parser-Aufruf. Die Zeilen 50-70 dienen also nur 
zum Testen des Parsers. 

50000-50120 Hier erfolgt die Befehlseingabe in Form einer 
erweiterten INPUT-Routine, wie ich sie Ihnen im Kurs¬ 
abschnitt Datei-Verwaltung bereits vorgestellt habe. 

50012 Hier wird überprüft, ob die letzte Befehlseingabe 
bereits voll codiert worden ist oder ob sie nach einem 
UND abgebrochen wurde. ZB BE$ = »NIMM 
SCHWERT UND GEH NORDEN« wobei erst der Teil¬ 
befehl »NIMM SCHWERT« ausgeführt worden ist. Ist 
der Befehlssatz BES also noch nicht komplett codiert, 
so wird die Befehlseingabe (und natürlich auch die 
Suche nach dem Satzzeichen, die ja bereits erfolgt 
ist) übersprungen, alle bisherigen codierten Werte 
VE,01 etc. werden beibehalten, und es wird dort wei¬ 
ter codiert, wo zuletzt abgebrochen wurde - GOTO 
50500. 

50400-50450 Hier wird nach einem Satzzeichen am Ende 
von BES gesucht. 

50420Alle unnötigen Leerzeichen, die dem Befehlssatz BES 
anhängen, werden weggekürzt. Beispiel: AUS 
BES=»NIMM SCHWERT ! « wird BE$=»NIMM 
SCHWERT!«. 

50440-50450 Wird ein Satzzeichen gefunden, so wird es 
in der Variablen SN gespeichert (interessant ist dabei 
eher nur das Fragezeichen!). Dann wird das Satzzei¬ 
chen weggekürzt. Also aus »NIMM SCHWERT I« wird 
jetzt »NIMM SCHWERT«. All dies ist notwendig, damit 
bei einer Befehlseingabe BE$=»NIMM SCHWERT!« 
nicht die Fehlermeldung » »Ich kenne das Wort 
SCHWERT!« nicht« nicht auftritt. Denken Sie also 
stets daran, alle unnötigen Leerzeichen vor oder nach 
dem Befehl zu eliminieren. Einen Parser zu program¬ 
mieren, ist wirklich eine verflixte Sache: Es gibt 
soviele Dinge, die berücksichtigt werden müssen, 
damit der Parser auch wirklich absturzfrei läuft. Das 
Wegkürzen der Leerstellen ist ein gutes Beispiel hier¬ 
für. Ein Tip: Wenn Sie glauben, den Parser endlich fer¬ 
tig zu haben, dann compilieren Sie ihn mit Hilfe eines 
Compilers wie zum Beispiel Austro Comp oder Pet 
Speed. Der Compiler überprüft alle Zeichen und weist 
auf eventuelle Syntax-Errors hin. Wird ein Parser- 
Programm fehlerfrei compiliert, so können Sie davon 
ausgehen, daß im Programm keine schwerwiegen¬ 
den Fehler Vorkommen! 
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50500-50600 Hier werden die Zeiger ZA und ZB auf den 
Befehlssatz BE$ gesetzt oder weitergerückt. 

50502Wurde beim letzten Vorgang nicht wegen UND abge¬ 
brochen, so werden alle bisher codierten Werte auf 0 
gesetzt. 

50504Wird hier festgestellt, daß der letzte Befehlssatz noch 
nicht komplett codiert worden ist (UD größer 0), so 
passiert folgendes: Die Richtungszahl RI wird auf 0 
gesetzt (warum, erfahren Sie später noch!). Dann 
erfolgt ein Sprung zu Zeile 50530. Das heißt, alle 
Operationen oder Einstellungen, die vorgenommen 
werden, wenn ein neuer Befehlssatz codiert werden 
soll (also kein wegen UND abgebrochener), werden 
übersprungen. 

50505-50520 Einstellung der Zeiger auf einen neuen 
Befehlssatz. 

50505Alle Leerstellen, die dem eigentlichen Befehl voran¬ 
stehen, werden entfernt. Beispiel: Aus » NIMM 
SCHWERT« wird »NIMM SCHWERT«. 

50510 BES wird ein Leerzeichen angehängt. Aus BES = 
»NIMM SCHWERT« wird also BE$ = »NIMM 
SCHWERT «. Dies ist nötig, da später beim Suchvor¬ 
gang das Auffinden eines Leerzeichens als Markie¬ 
rung eines Wortendes interpretiert wird. 

50520Zeiger ZA wird auf das erste Zeichen von BES 
gesetzt. 

50530Zeiger ZB wird auf das Zeichen nach ZA gesetzt. 

50540lst MID$(BE$,ZB,1) = "", so wurde das Satzende 
erreicht. Der Codiervorgang wird mittels RETURN 
abgebrochen. 

50550lst MID$(BE$,ZB,1) kein Leerzeichen, so wird Zeiger 
ZB um ein Zeichen nach rechts gerückt und es erfolgt 
ein Rücksprung zu Zeile 50550. Zeiger ZB wird also 
so lange nach rechts geschoben, bis entweder das 
Satzende oder ein Leerzeichen gefunden wird. Wird 
ein Leerzeichen gefunden, so ist das neue Suchwort 
festgelegt: SU$=MID$(BE$,ZA,ZB-ZA). 

50590Das neue Suchwort, das von den Zeigern ZA und ZB 
auf BES bestimmt ist, wird im String SU$ abgelegt. 

50600-50670 Es erfolgt eine »Vorbehandlung« des Such¬ 
wortes SU$. Hierbei werden solche Wörter gesucht, 
die Parser-intern gespeichert sind und nicht auf der 
Wortschatz-relativen Datei verzeichnet sind. 

50610 Hier wird überprüft, ob SU$ gleich UND ist. Wenn ja, 
so ist klar, daß ein Teilbefehl von BES codiert ist und 
später von hier aus weitercodiert werden muß. 
Zunächst muß jedoch der bisherig ermittelte Teilbe¬ 
fehl analysiert werden. Dazu wird die Variable UD auf 
1 gesetzt und der Codiervorgang mittels RETURN 
abgebrochen. 

50620 Das gleiche wie bei 50610 in Grün - nur, daß hier 
nach einem Komma gesucht wird. Die Komma-Suche 
hat allerdings einen Haken: Das Komma wird nur dann 
gefunden, wenn links und rechts von ihm mindestens 
je ein Leerzeichen steht. Bei Befehlssätzen wie zum 
Beispiel BES = »NIMM SCHWERT,BIERFLASCHE« 
erfolgt eine Fehlermeldung ä la »Ich kenne das Wort 
Bierflasche nicht«. Mit einem direkten Vergleich 
IF SU$ = " ist es also nicht abgetan. Um den Par¬ 

ser nicht unnötig kompliziert zu machen, habe ich 
deshalb auf diese umfangreiche Abfrage verzichtet. 
Wie umfangreich diese Abfrage ist, werden Sie späte¬ 
stens dann bemerken, wenn Sie versuchen, sie zu 
programmieren. Ich rate Ihnen, bei einem Basic- 
Parser auf diese Abfragerei zu verzichten, denn sie 
kostet viel zuviel kostbare Rechenzeit, und der Parser 
wird zu langsam! 

50630-50660 Diese Zeilen treten dann in Kraft, wenn ein 
U N D oder ein Komma gef unden worden ist. Zeiger ZA 


wird auf eine Stelle nach ZB gesetzt. 

50540-50550 Hier erfolgt das bereits beschriebene Wei¬ 
terrücken von Zeiger ZB nach rechts, bis ein Leerzei¬ 
chen oder das Satzende gefunden wird. Wird hier ein 
Satzende festgestellt, so heißt dies, daß nach dem 
UND oder Komma nichts mehr kommt. Der Parser 
äußert sich im Fall zum Beispiel BES = »NIMM 
SCHWERT UND« empört mit »Und was?«, wobei er 
wieder einen Hauch von Intelligenz beweist und den 
Spieler in Erstaunen versetzt... 

50670Wird eines der Schlüsselwörter IHN, SIE oder ES 
gefunden, so weiß der Parser sofort, daß der Spieler 
sich auf das zuletzt erwähnte Objekt bezieht. Das 
zuletzt erwähnte Objekt wird immer in der Variablen 
OM gespeichert. Der Parser braucht hier also nichts 
weiter zu tun, als der Objektzahl 01 den Wert OM 
zuzuweisen und dann die binäre Suchroutine zu über¬ 
springen mit GOTO 51300. 

51000-51330 Hier steht die binäre Suchmethode, mit 
deren Hilfe SU$ in der relativen Wortschatzdatei 
gesucht wird. 

51008 Der ASC-Wert des 1. Buchstabens vom Suchwort 
SU$ wird in der Variablen I gespeichert. 

51009 Wenn I nicht der ASC-Wert eines der Buchstaben von 
A-Z ist, also 1-65 kleiner 0 oder 1-65 größer 25, dann 
ist klar, daß das Suchwort nicht mit einem Buchsta¬ 
ben, sondern mit irgendeinem Zeichen beginnt, zum 
Beispiel SU$= "/%&%/". Es erfolgt dann eine »ICH 
KENNE DIESES WORT NICHT«-Meldung, und der 
Codiervorgang wird abgebrochen. 

51010 Der Anfang des zu durchsuchenden Bereiches wird 
mittels der Index-Tabelle IN(0)-IN(26) ermittelt und in 
AN gespeichert. 

51012-51015 Hier wird das Ende des Suchbereiches, EN 
irmittelt. Das Ende berechnet sich NICHT einfach 
durch EN=IN(l-64), da berücksichtigt werden muß, 
daß in der Index-Tabelle für nicht existierende 
Anfangsbuchstaben (zum Beispiel C) eine Null einge¬ 
tragen ist. Es darf also nicht der unmittelbare nächste 
Buchstabe zur Ermittlung des Suchendes herange¬ 
zogen werden, sondern vielmehr der nächste exi¬ 
stente Buchstabe (Tabellenwert ungleich 0). 

51016 Wenn AN=0 ist, so beginnt das Suchwort SU$ mit 
einem Buchstaben, mit dem kein Wort des Wortschat¬ 
zes beginnt. Es braucht dann gar nicht erst lange 
gesucht werden - Fehlermeldung ICH KENNE WORT 
NICHT. 

51020-51200 Hier steht die binäre Suchroutine, die ich 
Ihnen bereits im Kapitel Dateiverwaltung beschrieben 
habe. Allerdings ist die Routine diesmal so modifiziert, 
daß sie mit relativen Dateien arbeitet und nicht mit 
Stringfeldern im Speicher. 

52100-52180 Dieses Unterprogramm wird innerhalb der 
binären Suchroutine angesprungen. Es dient dazu, 
um aus einer relativen Datei einen Satz zu lesen. 
Diese Routine ist im wesentlichen eine Kombination 
unserer bisher verwendeten Unterprogramme zum 
Positionieren auf (GOSUB 9000) und Lesen (GOSUB 
9100) eines Satzes aus einer relativen Datei. 

52100-52130 Positionieren und anschließendes Lesen des 
Satzes A$. > 

52140 Die Wortart WA wird ermittelt. 

52150 Der Wortcode WC wird ermittelt. 

52160 AS wird auf das eigentliche Wort gekürzt. Aus 
A$=»abwaerts 2010« wird 

A$=»abwaerts «. 

52170 Alle unnötigen Leerstellen in A$ werden gekürzt. Aus 
A$=»abwaerts « wird also A$=»abwaerts«. 
Dies ist eigentlich nur dann nötig, wenn es sich bei A$ 
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um ein Objekt handelt (WA=3), denn schließlich wer¬ 
den nur Objekte »rechtsbündig« verglichen beim 
Suchvorgang. Wer will, kann folgende Zeile einfügen 
(ohne Gewähr): 

52165 IF WA=3 THEN RETURN 
Warum ohne Gewähr? Während man einen Parser 
programmiert oder dokumentiert, entdeckt man stän¬ 
dig kleine Dinge, die man noch zu verbessern glaubt. 
Schnell sind drei, vier Änderungen gemacht, und 
plötzlich läuft der Parser nicht mehr so recht, obwohl 
alle Änderungen für sich allein betrachtet doch 
eigentlich funktionieren sollten!?! Ich rage Ihnen 
daher, an einem Parser-Programm nie mehr als eine 
Änderung auf einmal vorzunehmen und dann auch 
gleich alle Fälle auszuprobieren, um sicherzustellen, 
daß auch alles noch funktioniert... 

51070-51125 Hier werden die einzelnen Wortzahlen VE,01 
etc. ermittelt. Es wird also genau hier codiert. 

51080 Verben werden, wie bereits erklärt, linksbündig 
gesucht beim Vergleich - also IF SU$=LEFT$(A$, 
LEN(SU$))... 

Es sind somit auch Abkürzungen legitim - zum Bei¬ 
spiel NIM statt NIMM oder INV statt INVENTUR. Eine 
Abkürzung muß allerdings mindestens 3 Zeichen 
lang sein. Ist die Abkürzung kleiner als 3 Zeichen, so 
werden Verbsuche und Objektsuche übersprungen 
und der Parser stellt sich darauf ein, eine Richtung¬ 
sangabe zu finden. Würde man auf diese Abfrage ver¬ 
zichten, so wüßte der Parser nicht, wie er sich im Fall 
einer Befehlseingabe BE$=»N« verhalten soll. Er 
würde als Verbzahl VE das nächstbeste Verb ermit¬ 
teln, das mit N beginnt, und anschließend auch noch 
die Richtungsangabe beziehungsweise Richtungs¬ 
zahl RI für die Richtung Norden ermitteln. 

51090 Hier erfolgt die linksbündige Verbsuche. 

51100 Hier erfolgt die Objektsuche - und zwar wie bereits 
erklärt rechtsbündig, damit zum Beispiel sowohl 
HOLZKISTE als auch KISTE verstanden werden, 
wenn der Objektname HOLZKISTE lautet. 

51102 Jetzt wird’s kompliziert zu erklären! 

Es wird überprüft, ob bei der letzten Codierung 
wegen Auffinden eines UNDs beziehungsweise 
Kommas abgebrochen wurde (UD größer 0). Ist dies 
der Fall, so werden 01 und 02 gelöscht und UD auf 
3 gesetzt, damit beim Auffinden eines zweiten 
Objekts nicht wieder gelöscht wird. 

51104-51105 In einem Befehlssatz können maximal zwei 
Objekte gleichzeitig auftreten (beziehungsweise Teil¬ 
befehl) - vergleiche Wortschatzlehre! Es müssen 
also zwei Variablen zum Speichern von Objekten zur 
Verfügung stehen - 01 und 02. 

Nehmen wir einmal BES=»ÖFFNE TÜR MIT DEM 
SCHLÜSSEL UND BETRETE DAS ZIMMER« an. 
Zuerst wird ÖFFNE im Wortschatz gesucht und eine 
Verbzahl VE gefunden. Dann wird das Wort TÜR 
gesucht und gefunden. Das Objekt TÜR wird codiert 
in der 1. Objektzahl 01 gespeichert. 

Das Wort MIT wird nicht berücksichtigt (ich setze hier 
einmal voraus, daß es im Wortschatz als AUS-Wort 
aufgeführt ist). 

Jetzt wird das Objekt SCHLÜSSEL gesucht und 
gefunden. In der Variablen 01 kann sein Code nicht 
gespeichert werden, da 01 bereits belegt ist. In 02 ist 
allerdings noch Platz. Dem Parser ist also klar, daß ein 
zweites Objekt gefunden wurde und dies in 02 
gespeichert werden muß. Nehmen wir jetzt einmal 
den unmöglichen Fall an, daß in einem Befehlssatz 
oder Teilbefehl 3 Objekte auftauchen. Das dritte 
Objekt wird vom F’arser dann eiskalt ignoriert, und es 


erfolgt keine Fehlermeldung. Wenn in einem Befehls¬ 
satz 3 Objekte verwendet werden, so ist klar, daß der 
Befehlssatz nur unsinnig sein kann, zum Beispiel 
»ERSCHLAGE MONSTER MIT DEM SCHWERT DAS 
AUF DEM STUHL LIEGT«. Ok, eigentlich ergibt dieser 
Satz einen Sinn, aber wir wissen, daß dies nicht die 
Eingabe-Syntax eines routinierten Adventure- 
Spielers ist. Man dürfte es dem Parser also nicht übel 
nehmen, wenn er sich mit »ICH VERSTEHE SIE 
NICHT« meldet. Man könnte also (wieder ohne 
Gewähr) noch folgende Zeile einbauen: 

51103 IF 0100 AND 0200 THEN? »ICH 
VERSTEHE SIE NICHT«:GOT050000. 

Als nächstes Wort wird UND gefunden. Die Variable 
UD wird auf 1 gesetzt und der Codiervorgang abge¬ 
brochen. Der erste Teilbefehl des gesamten Befehls¬ 
satzes ist somit codiert und liegt anhand der Variablen 
VE,01,02 und sekundär UD vor. 

Nach Analyse dieses Teilbefehls wird die Codierung 
fortgesetzt. Zunächst wird BETRETE als neues 
VERB ermittelt. Aus der Wortschatzlehre wissen Sie 
bereits, daß ein Befehlssatz maximal ein Verb enthal¬ 
ten kann. Stehen unsinnigerweise doch mal zwei Ver¬ 
ben in einem Befehl, so speichert F’arser 4.0 den 
Wert des Verbs in VE ab, das am weitesten rechts im 
Befehl steht. 

Jetzt wird nach Ignorieren von DAS das neue Objekt 
ZIMMER gesucht. Wäre Zeile 51102 nicht vorhan¬ 
den, so würde der Parser dieses Objekt nicht mehr 
codieren können, da erst die beiden Werte 01 und 02 
gelöscht werden müssen. 

Jetzt liegt der zweite Teilbefehl von BES codiert vor. 
Und zwar diesmal in den Variablen VE und 01. 
51110 Hier wird eine Richtungsangabe absolut gesucht. 
511 IC Adjektivsuche - ebenfalls absolut. 

Zur Adjektivcodierung wurde nur die Variable AD 
reserviert. Ein Befehl kann also nur maximal ein Adjek¬ 
tiv enthalten. Dies langt in der Regel. Wer jedoch 
Adventures programmieren will, bei denen extrem 
komplizierte Befehlseingaben als BES=»ÖFFNE DIE 
GRÜNE TÜR MIT DEM GELBEN SCHLÜSSEL« erfor¬ 
derlich sind, der muß hier entsprechend modifizieren 
(analog zur Objektcodierung mittels 01 und 02). 
51120 Absolute Verbsuche. Hier werden Verben gefunden, 
deren Satzlänge weniger als 3 Zeichen beträgt. Wol¬ 
len Sie zum Beispiel I als Abkürzung für INVENTUR 
erlauben, so können Sie I extra in der Wortschatzdatei 
als Verb eintragen. 

51125 AUS-Wörter wie der, die, das werden absolut gesucht 
und gegebenenfalls ignoriert. 

51300-51350 Weiterrücken der Zeiger ZA und ZB aufs 
nächste Wort. Eine neue Suchrunde wird eingeläutet. 
51500-51555 Kleine Bierbraukunde 
52000-52090 Wird hier endlich geklärt, was Lolo, Peter 
und Mike im Wald machen? 

Variablenliste 

IN(0) bis IN(26) Index-Tabelle 

UD UND-Variable (größer 0 bei Codierungsabbruch 
wegen UND oder,) 

SL Maximal erlaubte Befehlssatzlänge 
(max. 255 Zeichen!) 

BES Gesamter Befehlssatz 
X$ Hilfsstring 

I Hilfsvariable 

SN Satzzeichenwert 
1$ Hilfsstring 

VE Verbzahl 

RI Richtungszahl 

01 1. Objektzahl 
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02 2. Objektzahl 

ZA,ZB Zeiger zum Eingrenzen des Suchwortes SU$ in BES 
SU$ Suchwort 
IZ Hilfsvariable 
AN Anfang des Suchbereichs 
EN Ende " ' 

SZ Anzahl der Worte in der Wortschatzdatei 
N Hilfsvariable 

SA Satz einer relativen Datei (Nummer) 

WA Wortart 
WC Wortcode 
HB% Higher Byte 
LB% Lower Byte 
A Fehlerkanal-Zahl 

A$ Satz, der von relativer Datei gelesen wurde. 

Das war’s auch schon. Anhand dieser umfangreichen 
Dokumentation sollte es Ihnen nun nicht mehr schwerfallen, 
sich mit Parser 4.0 zurechtzufinden und eigene Änderungen 
am Programm durchzuführen. Mit Sicherheit haben Sie bald 
so manche Idee, was man noch verbessern kann. Ich rate 
Ihnen auf jeden Fall, an dieser Stelle erst dann mit dem folgen¬ 
den Kursabschnitt fortzufahren, wennn Sie Parser 4.0 ver¬ 
standen haben. 

Für Profis: Parser 4.1 


Parser 4.1 ist eine Verbesserung beziehungsweise eine 
schnellere Version von Parser 4.0. Das nun Folgende soll 
Ihnen lediglich als theoretisches Gedankengut dienen, wenn 
Sie Parser 4.0 selbständig verbessern wollen. 

Parser 4.0 basiert auf dem index-binären Prinzip. Der Wort¬ 
schatz muß daher alphabetisch geordnet sein, damit eine 
Index-Tabelle IN(0)-IN(26) erstellt werden kann. Aus dieser 
Tabelle kann man schnell erlesen, in welchem Satzbereich 
der relativen Datei Wörter mit gleichem Anfangsbuchstaben 
stehen. Durch diese Eingrenzung des Suchbereiches wer¬ 
den einzelne Suchwörter mit relativ wenigen Diskzugriffen 
gefunden. Die Idee von Parser 4.1 ist wie folgt: Auch hier fin¬ 
det die index-binäre Methode Verwendung. Allerdings wird 
diesmal nicht eine Indextabelle IN(0)-IN(26) verwendet, son¬ 
dern vielmehr ein Index-Feld, das so angelegt wird: 

DIM IN*(26,26) 

In IN%(0,0)-IN%(26,0) steht hierbei wieder die gleiche 
Index-Tabelle, die bei Parser 4.0 in IN(0)-IN(26) steht. 

Jetzt spielt allerdings auch noch der 2. Buchstabe des 
Suchwortes eine Rolle bei der Einschränkung des Suchbe¬ 
reiches. 

In IN%(0,0)-IN%(0,26) zum Beispiel ist die Index-Tabelle 
des zweiten Buchstabens aller Wörter, die mit A beginnen, 
gespeichert. 

Das heißt, in IN%(0,0) steht, wo alle Wörter der Wort¬ 
schatzdatei beginnen, deren erste beide Buchstaben AA 
sind. In IN%(0,1) entsprechend AB, in IN%(1,3) entspre¬ 
chend BD etc. Anhand eines Index-Feldes kann der Suchbe¬ 
reich folglich noch viel feiner eingeschränkt werden als bei 
einer Index-Tabelle. Das heißt, es werden weniger zeitrau¬ 
bende Disketten-Zugriffe zum Finden eines Suchwortes 
benötigt, und der gesamte Parser wird schneller. 

Parser 4.0 braucht ziemlich lange, um festzustellen, daß er 
ein mit den beiden Buchstaben RT beginnendes Wort nicht 
kennt. Parser 4.1 hingegen benötigt nicht einmal einen einzi¬ 
gen Disketten-Zugriff. Er kann aus seinem Index-Feld auf 
Anhieb erlesen, daß die Buchstabenkombination RT im Wort¬ 
schatz nicht vertreten ist. Parser 4.0 läßt sich schnell und 
relativ einfach zu Parser 4.1 aufrüsten. Zunächst müssen Sie 
den Index-Maker modifizieren, damit er Index-Felder erstel¬ 
len kann. Der Rest dürfte für Sie dann ein Kinderspiel sein - 
wenn Sie Parser 4.0 verstanden haben. 


Parser 5.0 - der Superparser 


Parser 4.0 ist ja recht nett. Man kann relativ umkompliziert 
den Wortschatz erweitern und schnell Programmänderun¬ 
gen vornehmen. Trotzdem reicht Parser 4.0 in puncto Ge¬ 
schwindigkeit keineswegs an den INFOCOM-Parser heran. 
Parser 4.0 braucht im Durchschnitt 15 Sekunden zum Codie¬ 
ren eines Befehls, Parser 4.1 etwa die Hälfte. Mit dem Codie¬ 
ren ist es allerdings noch lange nicht abgetan - bis auf dem 
Bildschirm eine Antwort erscheint, muß die Codierung erst 
noch analysiert werden etc. Um eine INFOCOM ähnliche 
Geschwindigkeit zu erreichen, muß man daher einen mög¬ 
lichst schnellen Parser haben, um Zeit für die Analysenbe¬ 
rechnung zu sparen. Wie macht’s INFOCOM? Mit Sicherheit 
verwaltet INFOCOM seine 1000 Wörter NICHT in Form einer 
relativen Datei. Zwar beginnt nach jeder Befehlseingabe die 
Floppy zu laufen, jedoch nur, um den Antwortsatz einzule¬ 
sen. Codiert ist er ruck, zuck. Um solche Geschwindigkeiten 
zu erreichen, hilf die schnellste Floppy beziehungsweise 
relative Datei-Programmierung nicht weiter. Der Wortschatz 
muß irgendwo im RAM untergebracht werden. Nehmen wir 
einmal an, wir möchten im Speicher 600 Wörter unterbrin¬ 
gen. Für jedes Wort haben wir uns 21 Zeichen +4 Zeichen 
für Wortart und Wortcode reserviert. Wir brauchten also 600 
mal 25 Byte RAM, um diesen Wortschatz im RAM zu ver¬ 
stauen. Also einen freien RAM-Bereich von zirka 15 KByte. 
Abgesehen vom Basic-RAM verfügt der C64 über freies 


10 REM ***************************** 

<022> 

20 REM * RAM-EDITOR * 

<053> 

30 REM * <C> 1985 BEI * 

< 149> 

40 REM * MICHAEL NICKLES * 

< 157> 

50 REM ***************************** 

<B62> 

60 CI” MS(255),WZ(26) 

< 152> 

70 Su.O 51000 

<082> 

8000 

REM ORDNUNGSFILE INDEX—SEQ - 



- 

<087> 

8005 

PRINT“MOECHTEN SIE EINEN INDEX-FILE E 



RSTELLEN?"; 

< 144> 

8006 

GET IS: IF ISO"J"AND ISO“N“THEN B006 

<051 > 

8008 

IF IS="N"THEN RETURN 

<240> 

B019 

INPUT"AB SPEICHERSTELLE “;E1 

<124> 

8020 

INPUT"BIS{1SSPACE>“;E2:IF E1>E2 THEN 



PRINT"UNSINN!:GOTO8005 

<234> 

8030 

INPUT"SCHRITTWEITE—STEP ";SW 

<048> 

8100 

PRINT"CDOWNJBITTE WARTEN!“ 

<255> 

8105 

FOR I1—El TO E2 STEP SW 

<235> 

8110 

:FOR 12=1 TO 26 

<222> 

8112 

: IF USR(11)=64+12 AND WZ(I2)=0 THEN 



WZ(12)=11 

<001 > 

8114 

:NEXT 12 

< 198> 

8120 

NEXT 11 

<093> 

8400 

REM WZ(N) ALS SEQ—FILE SPEICHERN - 



— 

<010> 

8410 

POKE 198,0:INPUT-FILENAME ";IS:IS=IS+ 



",S,W" 

<231 > 

8420 

OPEN 2,8,2,IS 

<135> 

8430 

FOR 1=1 TO 26 

<249> 

8440 

:PRINT#2,WZ(I) 

<080> 

8450 

NEXT I:CLOSE 2 

<219> 

8500 

RETURN 

< 176> 

9000 

REM UP-POSITIONIEREN - 



- 

<215> 

9010 

HB7.-SA/256: LB7.=SA-HB7.*256 

<06B> 

9020 

PR I NT# 15 , " P " ; CHRS (3) ; CHRS (LB7.) ; CHRS (H 



B7.) ; CHRS (1 > 

<005> 

9030 

INPUT#15,A:IF A=50 THEN PRINT"SATZNUM 



MER ZU HOCH!":END 

< 135> 

9040 

RETURN 

<20B> 

9100 

REM UP-SATZ LESEN - 



— 

<037> 

9110 

IF A=50 THEN RETURN 

<0B2> 

Listing 9. Relative Dateien werden mit dem RAM-Editor in 

RAM-Dateien gewandelt 
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9120 INPUT#1,A* <116> 
9130 RETURN <042> 
51000 REM RAM-EDITGR - 


<113> 

51029 PQKE 53280,0:POKE 53281,0:PRINT“{WHI 

TE>" <100> 

51030 PRINT“{CLR,RVSONJRAM-EDITOR V. 1.5t4 
SPACEJVON MICHAEL NICKLES{RVOFFJ"; <049> 

51040 REM MODIFIZIERTE PEEK—FUNKTION - 


<234> 

51045 DATA 32,247,183,120,169,52,133,1 <112> 

51048 DATA 160,0,177,20,168,169,55,133 <243> 

51050 DATA 1,88,76,162,179 <07B> 

51060 FOR 1=704 TO 724:READ X:POKE I,X:S=S 

+X:NEXT I <178> 

51070 POKE 785,192:POKE 786,2:REM USR-ZEIG 

ER <022> 

51080 IF S02325 THEN PR INT “FEHLER IN DATA 

S{SHIFT-SPACEJ!“:END <036> 

51130 REM ANFANB - 


<174> 

51131 REM GOTOB000 <127> 

51132 PRINT"{DOWN>RAM EDITOR<2SPACE>KANN I 

N FREIEN RAM-BEREICHEN"; <128> 

51134 PRINT"RELATIVE DATEIEN VERWALTEN." <066> 

51135 PRINT “BITTE NAME DER RELATIVEN DATEI 

ANGEBEN, <145> 

51136 PRINT“VON DER DATEN INS RAM GESCHRIE 

BEN WERDEN“; <246> 

51137 PRINT“SOLLEN <DISK EINLEGEN)!“ <027> 

51138 INPUT"{DOWNJFILENNAME ";F* <028> 

51139 OPEN 15,8,15 :REM FLOPPYKANAL AN <130> 

51140 PRINT#15,"10":REM INITIALIZIEREN <09B> 

51141 OPEN 1,B,3,F* :REM DATEI OEFFNEN <200> 

51143 PR INT "BITTE GEBEN SIE ANFANG UND END 
E DES{5SPACE JBEREICHES AN, DER INS R 

AM"; <041> 

51144 PRINT" GESCHRIEBEN{3SPACE JWERDEN SOL 

L!" <037> 

51146 POKE 198,0:INPUT”{DOWNJANFANG";AN <122> 

51147 INPUT“ENDE{2SPACE J " ;EN:IF EN<=AN THE 

N PRINT"UNSINN !":GOTO 51146 <235> 

51148 SA=AN:GOSUB 9000:GOSUB 9100 <143> 

51149 PRINT"{DOWNJBITTE GEBEN SIE ANFANG U 
ND ENDE DES{5SPACE>RAM—BEREICHES AN, 

IN DEM"; <0BB> 

51150 PRINT" DIE DATEN{ 6 SPACE>ABGELEGT WER 
DEN SOLLEN! ACHTUNG - DIESE ANGABEN 

“i <041> 

51151 PRINT"WERDEN NICHT UEBERPRUEFT ! <04B> 

51152 POKE 198,0:INPUT"{DOWNJANFANG";El <029> 

51153 INPUT"ENDE";E2 <149> 

51154 IF E2<E1 THEN PRINT"UNSINN !":GOTO 5 

1152 RUN <220> 

51159 GOSUB 60000 <122> 

51200 REM INS RAM SCHREIBEN- <023> 

51205 PRINT"{DOWNJBITTE WARTEN!" <179> 

51210 IZ=E1 <177> 

51215 FDR SA=AN TO EN:GOSUB 9000:GOSUB 910 

0: REM LESE A* <18B> 

51220 FDR 11=1 TD 3 <176> 

51225 :IF MA(II)=0 THEN 51250 <152> 

51230 :IF TYX(II)=2 THEN GOSUB 51500:REM * <097> 
51240 :IF TYX(II>=1 THEN GOSUB 51600:REM V 

AL <213> 

51250 NEXT II <171> 

51255 NEXT SA <12B> 

51270 REM SPEICHERN AUF DISK- <206> 

51280 PRINT"{DOWNJBITTE DISKETTE EINLEGEN 

AUF DER RAM- <133> 

51281 PRINT"BEREICH GESPEICHERT WIRD! {RET 

URN3":POKE 198,0:WAIT 198,1 <0B8> 

51290 POKE 198,0:INPUT"FILENAME";I*:IF I*= 

""THEN 51290 <075> 

51300 PRINT"{DOWNJBITTE WARTEN!" <018> 

51315 FOR 1=1 TO 15:CL0SE I:NEXT <206> 

51320 OPEN 1,8,1,1* <202> 

51330 HB7.= I NT ( E1 /256) : LBX=E 1 -HBX*256 <070> 

51340 PRINT#1,CHR*(LBX);CHR*(HBX); <01B> 

51350 FOR I=E1 TO E2 <145> 

51360 :PRINT#1,CHR*(USR(I)); <232> 

51370 NEXT I:CLOSE 1 <146> 

51375 GOSUB 8000 :REM INDEX-SEQ-FILE <115> 

51380 PRINT"*** FERTIG ***":END <196> 


51500 

51501 

51510 

51515 

51516 
51520 
51550 
51600 
51610 
51620 
51630 
60000 
60010 
60012 

60014 

60015 

60019 

60020 
60025 

60030 

60035 

60040 

60042 

60045 

60047 

60050 


60055 

60056 


OJ1 


60060 
60070 

60100 
60102 
601- 

60110 


60112 

60113 

60115 

60120 

60125 

60130 

60135 

60140 

60150 

60200 


60210 

60215 

60220 

60230 

60240 

60245 

60250 

60260 

60262 

60265 

60270 

60275 

60280 

60290 

60300 

61000 

61010 

61020 

61030 


REM ALS STRING SPEICHERN - 

IF LEN(A*)<MB<11)—MA<11> +1 THEN A*=A 

*+.GOTO 51501 

FOR I=MA(II)TO MB <11> 

5IF ASC(MID*(A*,I,1))=29 THEN POKE I 
Z,32:IZ=IZ+1:GOTO 51520 
:POKE IZ,ASC(MID*(A*,I,1)):IZ=IZ+1 
NEXT I 
RETURN 

REM ALS VAL-WERT SPEICHERN - 

POKE IZ,VAL(MID*(A*,MA(II),MB(II))) 

IZ=IZ+1 

RETURN 

REM MARKIEREN WIE DATIERT WIRD 
I*="":FOR 1 = 1 TO LEN<A#) 

: IF ASC(MID*(A*,I,1)> =29 THEN I*=I* 

..GOTO 60015 

: I*=I*+MID*(A*,I,1) 

NEXT I 

FOR 1=1 TO LEN(I*):M*<I)="0":NEXT 
IM=1:PRINT 

PRINT I*:FOR 1=1 TO LEN(I*>:PRINT M* 
<I>;:NEXT:PRINT 

PRINT"{DOWN JEDIT{3SPACEJ>";MID* <I*,I 

M,1);"<{4SPACE,RVSON J"IM"{RVOFFJ" 

I=PEEK(203):IF 1=64 THEN 60035 

IF 1=2 AND PEEK (653) =0 AND IMOLENU 

*)THEN IM=IM+1:GOTO 60070 

IF 1=2 AND PEEK(653) = 1 AND IMOl THE 

N IM=IM—1:GOTO 60070 

IF 1=56 THEN M*(IM)="1":GOTO 60070 

IF 1=59 AND IG=0 THEN M*(IM)="2":GOT 

O 60070 

IF 1=8 AND IG=0 THEN M*(IM)="3":GOTO 
60070 

IF 1=35 THEN M*<IM)="0":GOTO 60070 
IF 1 = 1 THEN 60100 
GOTO 60035 

PRINT"{UP,25SPACE,25LEFT,3UP J";:GOTO 
60025 

REM UMRECHNEN 

FOR 1=1 TO 3:MA(I)=0:MB(I)=0:NEXT I 
FOR 11=1 TO 3:REM PRINT"{RVSONJII={ 
RVOFF J";II 

sFOR 1 = 1 TO LEN(I*):IF MA(II)=0 AND 
M*(I> =RIGHT*(STR*(11),1)THEN MA(11) = 
I 

:REM PRINT"M*(I)=“;M*(I>;"{2SPACEJRI 
GHT*"RIGHT*(STH*(II>,1) 

NEXT I 

:IF MA(II)=0 THEN 60150 
: MB(II)=MA(II) 

: MB (II) =MB (11) 4*1: REM PRINT,MB(II) 

: IF M*(MB(11)> < >RIGHT*(STR*(II),1 

> THEN MB(II)=MB(II)—1:GOTO 60150 
: IF MB(II)=LEN(I*)THEN 60150 

: GOTO 60125 

NEXT II 

PRINT"{CLR,RVSON J“;I*:PRINT"{RVOFF JW 
URDE IN FOLGENDE BEREICHE ZERLEGT:ID 
OWNI" 

FOR 1=1 TO 3 
IF MA(I)=0 THEN 60230 
PRINT-BEREICH";I;":{SPACE,RVSONJ"MID 
*(I*,MA(I),MB(I)—MA(I> +1)"{RVOFFJ" 
NEXT I:PRINT 

PRINT"BITTE GEBEN SIE NUN AN, OB DIE 
BEREICHE 

PRINT"ALS{SPACE,RVSON JV{RVOFF JAL-WER 
T ODER ALS{SPACE,RVSON JS{RVOFF JTRING 
PRINT"GESPEICHERT WERDEN SOLLEN!{DOW 
N>" 

FOR 1=1 TO 3 

IF MA(I)=0 THEN 60290 

PRINT"{RVSONJ"MID*(I*,MA(I),MB(I)—MA 

(I) + l)"{RVOFF J“ 

POKE 198,0:INPUT"{RVSONJV{RVOFF,SPAC 
E JODER{SPACE,RVSON JS{RVOFF J";11* 

IF 11*< >"V"AND 11*< >"S"THEN 60270 
TYX(I)=1:IF II*="S"THEN TYX(I)=2 
NEXT I 
RETURN 

CLOSE 1:OPEN 1,8,15 
INPUT#1,A,B*,C,D 
PRINT A,B*,C,D 
CLOSE 1 


Listing 9. RAM-Editor (Schluß) 


<221 > 

<221 > 
<090> 

< 169> 
<240> 
<039> 
<043> 
<009> 

< 197> 

< 15B> 

< 123> 

< 108 > 
<225> 

< 149> 
< 012 > 

< 152> 

< 123> 

< 131 > 

<223> 

<232> 

< 110 > 

< 174> 

< 119> 
<041 > 

< 012 > 

< 164> 

< 178> 
<013> 

< 183> 

<139> 

<252> 

< 148> 

< 194> 


<059> 

<051 > 
<250> 
<245> 
< 124> 
<069> 

<217> 

<074> 

<248> 

<179> 


< 143> 

< 10B> 
<051 > 

< 126> 
<071 > 

<037> 

< 147> 

<02B> 

< 15B> 
<22B> 

<229> 

<045> 

<095> 

< 110 > 

< 173> 

< 157> 
<037> 
<014> 

< 126> 
<07B> 
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RAM von 40960-65535 - also 25 KByte. Für den, der engli¬ 
sche Textadventures programmieren will, ist das Problem 
damit auch schon gelöst. Wir beanspruchen für unsere 
Adventures jedoch RAM zur Unterbringung des deutschen 
Zeichensatzes. Trotzdem bleiben uns noch 12 KByte RAM 
am Stück - nämlich von 40960 bis 52223. Das ist immerhin 
genug Platz für zirka 480 Wörter - vorausgesetzt, wir halten 
an unserem bisherigen Wortschatzaufbau fest. Wenn Sie 
sich unseren Wortschatz einmal anschauen, so werden Sie 
schnell feststellen, daß eigentlich kein Verb länger als 16 Zei¬ 
chen ist. Zum Speichern von Wortcode und Wortart genügen 
eigentlich auch 2 Byte (vorausgesetzt, es gibt maximal 255 
verschiedene Wörter einer Wortart wie zum Beispiel Verben). 
So würden uns schon 18 Byte zum Speichern eines Wortes 
genügen. Wir würden dann 12000/18 = 682 Wörter im RAM 
unterbringen, womit unser erstes Ziel erreicht wäre. 

Der RAM-Editor 


dem es möglich ist, relative Dateien kurz und schmerzlos in 
RAM-Dateien umzuwandeln. 

Der RAM-Editor ist ein reines Hilfsprogramm. Ich verzichte 
daher auf eine Dokumentation - es gibt auch kaum eine sinn¬ 
volle Idee, um die man den Editor noch erweitern könnte. 

Lassen Sie uns nun unsere relative Wortschatzdatei in eine 
RAM-Datei umwandeln: Nach dem Programmstart fordert der 
RAM-Editor Sie auf, den Namen der Datei anzugeben, von 
der Daten ins RAM geschrieben werden sollen. Geben Sie 
hier »Wortschatz« an, legen Sie die Diskette, auf der sich die 
Wortschatz-Datei befindet, ins Laufwerk und drücken Sie 
RETURN. Sodann müssen Anfang und Ende des Bereiches 
angegeben werden, der ins RAM übertragen werden soll. Wir 
wollen die gesamte Wortschatzdatei umwandeln: also Anfang 
= 1 und Ende = 197 (da wir 197 Wörter im Wortschatz 
haben). Nun müssen Anfang und Ende des RAM-Bereiches 
angegeben werden, in dem die Daten später stehen sollen. 
Um das Programm allgemein zu halten, müssen Sie dies 


Bevor man allerdings einen Wortschatz innerhalb eines freien 
RAM-Bereiches verwalten will, muß man erst einmal einen 
Wortschatz ins RAM bringen. Wie man das am besten macht? 
Nun, die Worte einzeln per Hand ins RAM POKEn ist mit 
Sicherheit nicht das Gelbe vom Ei. Eine Idee wäre es viel¬ 
leicht, einen Editor zu schreiben, der für diese Arbeit ge¬ 
eignet ist. Zusätzlich würde man dann natürlich noch einen 
Supersorter benötigen, der die Worte in diesem RAM- 
Bereich sortieren kann. Diese beiden Hilfsprogramme zu pro¬ 
grammieren macht sehr viel Arbeit. Für uns gibt es hier eine 
Alternative, die außerdem sogar noch ihre Vorteile hat: 
Schließlich haben wir doch schon unseren relativen Datei- 
Editor und einen Supersorter, mit denen wir relative Dateien 
beziehungsweise relative Wortschätze prima in den Griff 
bekommen. Wir brauchen also nur ein Programm, das es uns 
ermöglicht, relative Dateien von der Diskette ins RAM zu 
schreiben. Wie diese RAM-Dateien dann verwaltet werden, 
soll uns an dieser Stelle noch nicht interessieren. Betrachten 
wir doch noch einmal einen kleinen Teil unserer Wortschatz- 
Datei: 


1 

abwaerts 

2010 

2 

aufwaerts 

2009 

3 

bedanken 

1074 

4 

bedecken 

1037 

5 

befestigen 

1042 


Dies sind die ersten fünf Sätze der relativen Wortschatz- 
Datei. Nehmen wir nun einmal an, diese fünf Sätze sollen ins 
RAM ab Speicherzelle 40960 geschrieben werden. Wir wis¬ 
sen, daß sich jeder Satz aus 25 Zeichen zusammensetzt: 
1-2 das eigentliche Wort 
22 die Wortzahl 
23-25 der Wortcode 

Nehmen wir außerdem an, daß wir zur Speicherung von 
Wortzahl und Wortcode jeweils nur 1 Byte benötigen (also 
maximal 255 Verben, 255 Objekte etc), so können wir davon 
ausgehen, daß wir zur Speicherung eines Satzes der relati¬ 
ven Datei 21+2=23 Byte RAM benötigen. Für fünf Sätze 
sind dies 5 mal 23 = 115 Byte. Wir beanspruchen also den 
RAM-Speicher von 40960-41075. Bild 10 zeigt, wie die 
Sätze im RAM stehen. 

Satz 1 steht jetzt also ab Speicherzelle 40960, Satz 2 ab 
40983 und so weiter. In Adresse 40960 + 21 steht die Wort¬ 
zahl, in 40960+22 der Wortcode des 1. Wortes. Entspre¬ 
chendes gilt für alle anderen Sätze. Sie sehen schon, daß es 
gar nicht so schwer ist, im RAM ein relative-Dateien- 
ähnliches Verwaltungssystem aufzubauen. Bevor wir uns 
jedoch näher mit der Verwaltung von RAM-Dateien beschäfti¬ 
gen, brauchen wir erst einmal ein Programm (Listing 9), mit 








4 0 9 6 0 
4 0 9 8 3 
4 10 0 6 
4 10 2 9 
4 10 5 2 

A BWA E R T S 

A UFWAER T S 

BEDANKEN 

BEDECKEN 

BEFESTIGEN 



Jis 

iäl 




1 

l 



Y WZ 

WORT 

WC 


Bild 10. So stehen die Wörter im RAM 


ram-editor v 1 5 


von michael nickles 


>am-ediloi kann in freien ram-bereichen relative dateien 
verwalten' 

bitte name der relativen datei angeben, von der daten ms 
ram geschrieben werden sollen idisk einlegen)' 

1iWrial^ K ' rortschatz 

bitte geben sie anlang und ende des bereiches an der ins 
ram geschrieben werden soll’ 


anlang’ 1 
ende ? 197 

bitte geben sie anlang und ende des ram-bereiches an. In 
dem die daten abgelegt werden sollen’ achtung - diese 
angaben werden nicht uebernrueft! 

anfang’ 40960 
ende’4549 t 

abwaerts 2010 

1111111111111111111112333 


Disk mit relativer Datei 
> einlegen und 
Filenamen angeben 


Anlang und Ende 
■ des Bereiches angeben 


RAM-Bereich 
' von-bis angeben 


> Markieren 


edit 


>0< 25 


abwaerts 2010 

wurde ln lolgende bereiche zerlegt: 
bereich t ■ abwaerts 

bereich 2 : 2 
bereich 3.010 

bitte geben sie nun an oh die bereiche als val-wert oder 
als strmg gespeichert werden sollen! 

abwaerts 
v oder s? s 
2 

v oder s’v 
01C 

v oder s’ v 
bitte warten! 

bitte diskette einlegen. aul der ram-boreich gespeichert 
wird 1 |return 
lilename? Wortschatz 

bitte warten 1 

moechten sie einen Index-Ille erstellen’ 
ab speicherstelle ’ 40900 
bis ’ 45491 

Schrittweite-Step ’ 23 

bitte warlenl 
lilename ? Index 
• • - lertig • - • 


Angeben, ob Bereich 
- als VAL Werl oder 
String abgehandelt wird 


_ Wortschatz als 
"PRG-File Speicher 


. Index erstellen 


Bild 11. Beispiellauf des RAM-Editors 
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selbst ausrechnen. Wir wollen unseren Wortschatz ab Spei¬ 
cherstelle 40960 unterbringen. Warum der Editor nicht selb¬ 
ständig ermitteln kann, erkläre ich Ihnen gleich. Wir haben 
197 Wörter und brauchen pro Wort 23 Byte RAM (wie wir 
bereits ermittelt haben). Es werden für den gesamten Wort¬ 
schatz also 197 mal 23 = 4531 Byte benötigt. Das Ende des 
RAM-Bereiches errechnet sich also aus 40960 + 4531 = 
45491. Jetzt wird der erste Satz der relativen Datei einge¬ 
blendet. Anhand der Cursortasten left-right und der Ziffernta¬ 
sten 1 bis 0 können Sie jetzt einzelne Satzteile markieren. In 
Bild 11 können Sie sehen, wie im Falle unserer Wortschatz- 
Datei markiert werden muß. Der Markierungsvorgang wird mit 
der RETURN-Taste abgeschlossen. Jetzt erscheint auf dem 
Bildschirm, wie der eben markierte Satz in einzelne Bereiche 
zerlegt wurde. Es können maximal 3 Bereiche markiert wer¬ 
den - in beliebiger Reihenfolge! Sie müssen nun zu jedem 
einzelnen Bereich angeben, ob er als VAL-Wert oder als 
String gespeichert werden soll. Bel String wird der Bereich 
einfach in ASC-Zahlen umgewandelt, die ins RAM gePOKEt 
werden. Bei VAL wird aus dem Bereich ein VAL-Wert ermittelt 
(der nicht größer als 255 sein darf - gegebenenfalls müssen 
Sie in High- und Low-Byte aufteilen), der dann einfach an die 
entsprechende Stelle im RAM gePOKEt wird. Sie müssen 
nun eine Zeitlang warten. Dann werden Sie aufgefordert, 
einen Filenamen anzugeben, unter dem die Wortschatz- 
RAM-Datei als PRG-File auf Diskette gespeichert wird. Bitte 
legen Sie hier eine leere Diskette ein und geben Sie als File¬ 


namen »Wortschatz« an. Jetzt dauert’s wieder eine Weile. 
Nun kann ein Index-File erstellt werden, was bei Wortschatz- 
Dateien in der Regel notwendig ist. Es müssen wieder Anfang 
und Ende des RAM-Bereiches angegeben werden und 
außerdem die Schrittweite - dies ist die Länge jedes Satzes 
im RAM - in unserem Fäll 23 (Byte). Jetzt speichern Sie den 
erstellten Index unter dem Filenamen »Index« ab, und fertig 
ist die RAM-Wortschatzdatei. Dies alles hört sich viel kompli¬ 
zierter an, als es eigentlich ist. Bitte vergleichen Sie stets mit 
Bild 11, damit Sie beim Erstellen der RAM-Datei nichts falsch 
machen! 

Die Wortschatz-Datei kann jetzt mittels LOAD»WORT- 
SCHATZ«,8,1 geladen werden. 

Der Index ist als SEQ-File gespeichert und kann folgender¬ 
maßen eingelesen werden: 

5 OPEN3,4 

10 0PEN1,8,2,"INDEX" 

20 F0RI=1T026 
30 : INPUT#1,X 

40 :PRINT#3,CHR$(64+1)" AB ADRESSE"X 
50 NEXTI 
60 CL0SE1 
70 CL0SE3 

Wenn Sie alles richtig gemacht haben, dann müssen Sie 


10 IF 1=0 THEN 1=1:LOAD"WORTSCHATZ", 8 ,1 
20 DIM BE* (25) 

30 DIM IN (26) : FÜR 1 = 1 TO 26: READ IN(I):NEX 
T I 

40 DATA 40960,41006,0,415B1,41650 

50 DATA 42018,42110,42317,42501,0 

60 DATA 42547,426B5,0,42823,43007 

70 DATA 43076,43237,43260,43605,44364 

80 DATA 44502,44571,45031,0,0,45284 

100 REM MODIFIZIERTE PEEK—FUNKTIQN - 


101 : 

110 DATA 32,247,183,120,169,52,133,1 
120 DATA 160,0, 177,20, 16B, 169,55, 133 
130 DATA 1,88,76,162,179 

140 FOR 1=704 TO 724:READ X:POKE I,X:S= 8 +X 
:NEXT I 

150 POKE 785,192:POKE 786,2:REM USR-ZEIGER 
160 IF S02325 THEN PR INT "FEHLER IN DAT AS { 
SH I FT-SPACE > ! " : END 
200 GOSUB 50000 

210 PRINT"VE="VE:PRINT"Ol="01:PRINT"02="02 
:PRINT"AD="AD:PRINT"RI="RI 
230 GOTO 200 

50000 REM ************************* 


50001 REM * * 

50002 REM * WORT-PARSER 5.0 * 

50003 REM * * 

50004 REM * <C> 1986 BEI * 

50005 REM * * 

50006 REM * MICHAEL NICKLES * 

50007 REM * * 


50008 REM ************************* 
50010 REM BEFEHLSEINGABE- 


50011 : 

50015 J1=1:J2=10:J3=198:J4=54276:J5=54277: 
J6=203:J7=3000:JB=2:J9=20:J0-54273 

50016 Kl =54272: K2=89: K3“ 129: K4=47: K5=57: K6 
=65:K7=90:KB=32:K9=34:K0=44 

50017 PRINT 

50019 POKE 54296,15:REM UND ABFRAGEN 

50020 TT=.: REM INPUT—INTERRUPT-ZAEHLER 

50030 FOR I=J1 TO J2:BEi(I)=.NEXT:POKE J 

3,.:BEi="": REM SATZ LOESCHEN 
50040 PRINT"CYELLOW>>“;:PRINT"; 

50050 POKE 34,.:POKE J5,.:GET Xi:II=PEEK(J 
6 ):IF TT<J7 THEN 50060:REM TT=TT+1 ! 


<067> 
< 194> 

<215> 

<044> 

i>. 


50055 


50060 

50061 

50.VC 


<159> 

< 175> 

<034> 

<077> 

<234> 

< 116> 
<215> 

<059> 
< 159> 


<173> 

< 212 > 

<051 > 
<166> 
<093> 
<009> 
<041 > 
< 011 > 
<086> 
<013> 
<082 > 
<015> 
< 101 > 


<076> 

< 202 > 

< 111 > 

<06B> 
<078> 
<0B1 > 
<076> 

<05B> 

<238> 


500B5 

50090 


50100 

50110 


50120 

50125 

50130 

50200 


50201 

50250 

50254 

50255 
50262 

50264 

50265 

50270 

50273 


50274 

50275 

50276 
50278 
50280 
50290 


50080 


FOR 1=1 TO LEN(BE*)+J 8 :PRINT CHRi(J9 
);:NEXT:VE=0:RETURN 
IF Xi=" "THEN 50050 

POKE J5,J1:P0KE J0,J2:POKE K1,K2:P0K 

E J4,K3 

TT=0 

IF 11 = 1 THEN IF BEi< >""THEN PRINT"<L 
EFT>.":GOTO 50200 

I=ASC(X*):IF I>K4 AND KK5 THEN 5010 
0 

1=ASC(Xi):IF I<K 6 DR I>K7 THEN IF K 
>K 8 AND IOJ9 AND IOK9 AND IOK0 TH 
EN 50050 

IF I=J9 AND LEN(BEi)=.THEN 50050 
IF I=J9 THEN PRINT"I2LEFT,2SPACE,2LE 
FT >@";:BEi=LEFTi(BEi,LEN(BEi>-J1):GO 
TO 50050 

BEi=BEi+CHRi(I):IF LEN(BEi)>78 THEN 
BEi=LEFTi(BEi,78):GOTO 50050 
IF I=K9 THEN 1=64 

PRINT“<LEFT>";CHRi(I);:GOTO 5005 

0 

REM CODIERUNG - 


REM WORT IM RAM SUCHEN ******* 

Ii=BEi 

IM=ASC(LEFTi(Ii,1)):I=IN(IM-64) 

REM BEGIN LOOP «< 

:IF IM< >USR(I)THEN 50280 
:FOR 11=1 TO LEN(Ii):PRINT MIDi(Ii,I 
1,1),CHRi(USR(I+I1-1)) 

: IF ASC(MID*(Ii,Il,l)><>USR(I+Il—1) 
THEN 11=LEN (I*) : GOTO 50276 
: IF I1=LEN(Ii)AND USR(I+21)=3 THEN 
OB=USR(I+22):OM=OB:PRINT"OBJEKT-"OB: 
END 

: IF I1=LEN(I*)AND USR(I+21)=2 THEN 
RI=USR(1+22):PRINT"RICHTUNG="RI:END 
: IF I1=LEN(I*)AND USR(I+21)=1 THEN 
VE=USR ( I +22 ) : PR I NT " VERB= " VE: END 
:NEXT II 

1=1+23:GOTO 50264 

REM END LOOP <« 

PRINT"ICH KENNE DAS WORT "BE*” NICHT 
?":END 


< 010 > 

<233> 

<223> 

<033> 

<065> 

< 158> 

<214> 


<146> 
< 103> 


<072> 

< 16B> 

< 168 > 

<007 > 


< 020 > 

< 138> 

< 127> 
<243> 

< 124> 
<230> 

< 120 > 

<205> 

<157> 


<050> 

<241 > 

< 012 > 
< 163> 
<079> 
< 002 > 

<076> 


Listing 10. Grundgerüst vom Parser 5.0 
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jetzt folgende Wertetabelle (bei Ausgabe auf Drucker) er¬ 
halten: 


A 

AB 

ADRESSE 

40960 

B 

AB 

ADRESSE 

41006 

C 

AB 

ADRESSE 

0 

D 

AB 

ADRESSE 

41581 

E 

AB 

ADRESSE 

41650 

F 

AB 

ADRESSE 

42018 

G 

AB 

ADRESSE 

42110 

H 

AB 

ADRESSE 

42317 

I 

AB 

ADRESSE 

42501 

J 

AB 

ADRESSE 

0 

K 

AB 

ADRESSE 

42547 

L 

AB 

ADRESSE 

42685 

M 

AB 

ADRESSE 

0 

N 

AB 

ADRESSE 

42823 

0 

AB 

ADRESSE 

43007 

P 

AB 

ADRESSE 

43076 

Q 

AB 

ADRESSE 

43237 

R 

AB 

ADRESSE 

43260 

S 

AB 

ADRESSE 

43605 

T 

AB 

ADRESSE 

44364 

U 

AB 

ADRESSE 

44502 

V 

AB 

ADRESSE 

44571 

W 

AB 

ADRESSE 

45031 

X 

AB 

ADRESSE 

0 

Y 

AB 

ADRESSE 

0 

Z 

AB 

ADRESSE 

45284 


Jetzt steht der Programmierung von Parser 5.0, dem 
Superparser, nichts mehr im Wege. Im Prinzip ist es sogar 
ein leichtes, unseren Parser 4.0 so zu modifizieren, daß er 
statt mit einer relativen Datei mit einer RAM-Datei arbeitet. 
Dies ist jedoch nicht empfehlenswert, da es bei RAM-Dateien 
wesentlich effektivere Verwaltungsmöglichkeiten gibt, die 
allerdings etwas komplizierter als bei der relativen Disk- 
Verwaltung verlaufen. 


leider nicht komplett 


Um Ihnen eine Enttäuschung zu bewahren, muß ich Sie 
bereits an dieser Stelle darauf aufmerksam machen, daß Sie 
auf diesen Seiten keineswegs einen kompletten Parser 5.0 
finden. Es gibt einfach zu viele Möglichkeiten bei der Verwal¬ 
tung von RAM-Wortschätzen, von denen Sie am besten 
selbst entscheiden, welche Ihnen am meisten behagt, nach¬ 
dem ich Ihnen verschiedene vorgestellt habe. 

Bitte geben Sie jedoch zunächst einmal Listing 10 ein. 

Dieses Programm ist, wie bereits gesagt, noch kein kom¬ 
pletter Parser. Es soll Ihnen vielmehr als Grundgerüst eines 
Parsers 5.0 nach eigenen Vorstellungen dienen. 

Dokumentation zum Listing: 

10 Laden des Wortschatzes von Diskette ins RAM. 

30 Indextabelle IN (1)-IN(26) initialisieren 
40-80 Index-DATAs. Hier wurde nichts weiter gemacht, als 
der Index-File ausgelesen und in DATAs unterge¬ 
bracht. 

100-160 Hier steckt eine für Parser 5.0 grundlegende Erwei¬ 
terung: Eine modifizierte PEEK-Funktion, die es 
erlaubt, die Speicherzellen unter dem Basic-ROM 
auszulesen. Sie wissen mit Sicherheit bereits, daß 
beim POKEn in diesen Bereich immer ins RAM, aber 
beim normalen PEEKen immer der Speicherinhalt 
vom ROM ausgegeben wird. 


Die erweiterte PEEK-Funktion wird mittels 
USR(X) aufgerufen. Wenn Sie zum Beispiel in Spei¬ 
cherzelle 60000 den Wert 1 schreiben mit POKE 
60000,1, so erhalten Sie bei PRINT PEEK (60000) 
einen Wert, der nicht unbedingt der 1 entspricht. 
PRINT USR(60000) zeigt jedoch den Wert vom 
RAM: 1. 

Diese Erweiterung ist für alle diejenigen unent¬ 
behrlich, die Parser 5.0 ausschließlich in Basic pro¬ 
grammieren wollen. 

200 Aufruf von Parser 5.0 

50010-50130 Erweiterte INPUT-Routine. Diesmal mit 
schönem Eingabe-Ton. 

50200 Das Herzstück von Parser 5.0 beginnt hier. 
-50290 Er erfolgt hier die Suche nach dem Wort. Das Pro¬ 
gramm ist sehr einfach gehalten. Es können nur 
Befehlssätze eingegeben beziehungsweise codiert 
werden, die nicht mehr als ein Wort enthalten. Sie 
können dies anhand des bisher erworbenen Wis¬ 
sens jedoch leicht ändern. 

50254 Das Suchwort 1$ soll im RAM gesucht werden. 

50255 In der Variablen IM wird der ASC-Wert des ersten 
Buchstabens vom Suchwort gespeichert. Anhand 
der Index-Tabelle wird jetzt ermittelt, ab welcher 
Speicherzelle (=1) die Wörter stehen, deren erster 
Buchstabe den ASC-Wert IM hat. 

50262-50280 Hier steht die eigentliche Suchroutine. 

50264 Wenn IM nicht gleich USR(I) ist, so heißt dies, daß 
an der RAM-Stelle I ein Wort steht, dessen erster 
Buchstabe nicht mit dem Suchwort 1$ überein¬ 
stimmt. Der Suchvorgang wird dann mittels GOTO 
50290 abgebrochen, und es erfolgt die altbe¬ 
kannte Fehlermeldung »ICH KENNE DIESES WORT 
NICHT!«. 

50265 Der gesamte Suchbegriff 1$ wird vom ersten bis zum 
letzten Zeichen durchlaufen. Es wird dabei vergli¬ 
chen, ob ASC(MID$(I$,1,1)-ASC(MID$(I$,LEN(I$), 
1) gleich USR(I-I) - USR(I-1+LEN(I$)) ist. Es wer¬ 
den also der Reihe nach die einzelnen Buchstaben 
des Suchwortes mit den entsprechenden Speicher¬ 
zellen im RAM verglichen, von denen vermutet wird, 
daß sie dem Buchstaben entsprechen. 

50270 Wird bei irgendeinem Buchstaben des Wortes eine 
Nichtübereinstimmung mit dem Wert im RAM fest¬ 
gestellt, so wird der Suchvorgang abgebrochen mit 
GOTO 50276, und der Zeiger I wird auf das nächste 
Wort im RAM gesetzt, dessen erster Buchstabe IM 
ist: 1=1+23 (23, da jedes Wort beziehungsweise 
jeder Satz 23 Byte lang ist). 

50273-50275 Wurde bis zum letzten Buchstabenver¬ 
gleich keine Nichtübereinstimmung festgestellt, so 
wurde das Suchwort im RAM gefunden. Anhand der 
Wortart WA=USR(I+21) wird dann die entspre¬ 
chende Wortzahl WA=USR(l+22) ermittelt. Das 
Wort ist somit codiert. 

Wenn Sie das Programm einmal laufen lassen, werden Sie 
überrascht sein, wie schnell die Wörter im RAM gefunden 
werden. Schon das Grundmodell von Parser 5.0 ist weitaus 
schneller als Parser 4.0 und Parser 4.1. Allerdings läßt sich 
die Verarbeitungsgeschwindigkeit noch erhöhen: 

Man kann zum Beispiel eine index-binäre Suchroutine wie 
bei Parser 4.0 einbauen. Ergänzt man diese index-binäre 
Methode zu einer index-Feld-binären Suchroutine, so erhält 
man einen Basic-Parser, wie man ihn sich schneller kaum 
noch vorstellen kann. 

Ein index-Feld-binärer Parser 5.0 kann an Geschwindigkeit 
nur noch mit Maschinensprache-Programmierung übertrof- 
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BASIC-RAM 

OBJEKTE 

VIDEO 

VERBEN 

etc. 

D.T. 

z. SATZ 









40960 52223 53248 57344 61440 65535 

_ _ _- 

Bild 12. Speicherbelegung des C64, wenn die wichtigsten Routinen eingebaut sind. 


fen werden. Allerdings kann man in puncto Wortschatz- 
Organisation noch einiges verbessern, wie die folgenden 
Beispiele zeigen: 

Verbesserte Wortschatz-Organisation 


Wie wir bereits festgestellt haben, besteht ein Wortschatz 
aus Verben, Objekten, Adjektiven und Richtungsangaben 
und AUS-Wörtern. Als Wortlänge haben wir uns bisher maxi¬ 
mal 21 Zeichen reserviert. Sind aber wirklich 21 Zeichen 
nötig? - Mit Sicherheit nicht. Ein Verb zum Beispiel ist in 99% 
aller Fälle an 6 Buchstaben zu erkennen. Das heißt, kennt 
man die ersten 6 Buchstaben eines Verbs, so weiß man mit 
großer Wahrscheinlichkeit, welches Verb gemeint ist. 

Betrachten wir doch einmal die ersten 6 Sätze unserer 
Wortschatz-Datei im Falle einer Verbkürzung auf 6 Zeichen: 
abwaer 2010 
aufwae 2009 
bedank 1074 
bedeck 1073 
befest 1042 

beklei 1065 64€R Ol 

belohn 1046 

benutz 1063 

beraub 1058 

berueh 1017 

Bei einer Umwandlung zur RAM-Datei benötigt man in die¬ 
sem Fall nur noch 8 Byte - das heißt, man bringt fast dreimal 
soviele Verben unter wie bisher! 

Es ist auch ein leichtes, eine neue Wortschatzdatei zu 
erstellen, bei der die Verben auf 6 Zeichen Länge begrenzt 
werden. Sie müssen beim Markieren mit dem RAM-Editor 
lediglich nur die ersten 6 Zeichen markieren. Bei der Such¬ 
routine ist jetzt allerdings zu beachten, daß im Falle einer 
Verb-Suche nur noch die ersten 6 Buchstaben des Suchwor¬ 
tes im RAM gesucht werden. Und zwar linksbündig, wie es 
sich für die Verbsuche gehört. Analog für die Verben kann 
man auch die Adjektive und Richtungsangaben abhandeln. 
Bei den AUS-Wörtern, also den Wörtern, die eigentlich zur 
Codierung gar nicht benötigt werden (zum Beispiel der, die, 
das, den etc.), gilt dies im großen und ganzen auch. 

Etwas schwieriger ist es mit den Objekten. Objekte können 
sehr lange Namen haben, wie zum Beispiel »Fernsehapparat« 
oder »Zeitmaschine«. 

Behalten wir als Musterbeispiel einmal den Objektnamen 
»Zeitmaschine« bei. Objekte haben wir bei Parser 4.0 rechts¬ 
bündig gesucht (damit sowohl TÜR als auch HAUSTÜR ver¬ 
standen wird etc.). Die letzten 6 Buchstaben von »Zeitma¬ 
schine« lauten »schine«, und daraus läßt sich wahrlich nicht 
erkennen, daß es sich um eine »Zeitmaschine« handelt. 
Würde man für die Objekte 10 Buchstaben reservieren, so 
käme man schon besser zurecht. Bei relativen Dateien muß 
jeder Satz die gleiche Länge haben, und es kann immer nur 
eine relative Datei gleichzeitig geöffnet sein. Deshalb waren 
wir bei Parser 4.0 und 4.1 auch gezwungen, eine große Wort¬ 
länge für die Verben zu reservieren, obwohl diese eigentlich 
nur für Objekte nötig ist. Eine Alternative wäre es gewesen, 


Objekte und die anderen Wortarten zusammen, in zwei ge¬ 
trennten relativen Dateien unterzubringen. Das öffnen und 
Schließen von relativen Dateien wäre dann jedoch unver¬ 
meidbar gewesen. Das hätte Parser 4.0 stark verlangsamt, 
weil das Offnen von relativen Dateien viel Zeit in Anspruch 
nimmt. Also eine miserable oder keine Alternative. Anders bei 
RAM-Dateien. Von ihnen können beliebig viele gleichzeitig 
geöffnet werden beziehungsweise sind immer offen. Es 
bietet sich also an, für die Objekte einen anders organisierten 
RAM-Bereich herzunehmen. Dies ist auch der Grund, warum 
ich unseren bisherigen Wortschatz frei von Objekten, nur aus 
Verben bestehend, gelassen habe. Ich bin mir ziemlich 
sicher, daß Sie bei Ihren eigenen Adventures zu den vorhan¬ 
denen 197 Verben und Richtungsangaben kaum noch mehr 
als 50 andere finden. Wenn Sie sich also Platz für 400 Wörter 
mit 6 Zeichen Länge (250 Verben + 150 Adjektive) RAM 
reservieren wollen, so brauchen Sie 400 mal 8 = 3200 Byte 
Speicherplatz. Für Verben, Richtungsangaben und Adjektive 
und eventuell auch noch AU&W'örter können wir das freie 
RAM von 53248 bis 57343 (= Platz für 511 Wörter mit 8 Zei¬ 
chen Länge - mit 2 Zeichen gerechnet für Wortart und Wort¬ 
code). Jetzt haben wir noch freies RAM von 40960 bis 
52222 - also genug Platz für 938 Objekte bei Objektlänge 
= 11 reichen + Wortcode (auf die Wortart können wir ver¬ 
zichten, da wir wissen, daß sich in diesem Bereich nur 
Objekte befinden). 

938 + 511, das bringt einen Wortschatz von 1449 Wör¬ 
tern. Was soll also das unsinnige Infocom-Getue um den fan¬ 
tastischen lOOOer-Wortschatz. 1449 Wörter, das sind mehr 
Wörter, als der englische Grundwortschatz hat, mit dem sich 
immerhin schon 70 % aller Dinge in Englisch formulieren las¬ 
sen, sind garantiert genug für jedes nur erdenkliche Adven- 
ture, das auf einem C 64 geschrieben werden soll. Jetzt liegt 
es nur noch an Ihnen, Parser 5.0 zu programmieren. Wenn 
Sie das gesamte Parser-Technik-Kapitel aufmerksam durch¬ 
gearbeitet haben, dürfte Ihnen diese Programmierung keine 
Schwierigkeiten mehr bereiten (wobei Sie noch nicht einmal 
in Maschinensprache programmieren müssen)! 

Bild 12 zeigt, wie es jetzt im RAM des C64 aussieht: 

Der freie RAM-Bereich ist nahezu voll ausgenutzt mit dem 
Wortschatz und dem deutschen Zeichensatz. Besser kann 
man das RAM im Bereich der Adventureprogrammierung 
garantiert nicht mehr ausnutzen. Sogar die Grafikroutine (ver¬ 
gleiche Kapitel Grafikprogrammierung) läßt sich in dieses 
RAM-Schema noch integrieren - es geht dann nur Basic- 
RAM verloren sowie 1 KByte des Objekt-RAMs, wobei aber 
immer noch Platz für genügend Objekte vorhanden ist. Den 
RAM-Bereich von 61440 bis 65535 lasse ich Ihnen für 
eigene Ideen offen. Den Bereich von 1024 bis 2048, der 
durch das Verschieben des Bildschirms freigeworden ist, 
werde ich allerdings noch beanspruchen. 

Wir haben es also geschafft - wir haben viele Basic- 
Routinen und Parser kennengelernt und das RAM des C 64 
optimal mit Wortschatz, Grafikfenster und deutschem Zei¬ 
chensatz belegt. Es steht also nur noch aus, das ganze Wis¬ 
sen zusammenzupacken und daraus Adventures zu pro¬ 
grammieren. Wie das geht, erfahren Sie im anschließenden 
Kapitel. (M. Nickles/bs) 
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C 64 


Super-Grafik für Adventures 


In diesem Artikel wollen wir wichtige Tips für die¬ 
jenigen bringen, die ihr Adventure grafisch auf¬ 
möbeln wollen. Sie können dann also nicht nur 
professionelle Text- sondern auch Grafikadven- 
tures programmieren. 


W er heute ein außergewöhnlich gutes Adventure 
schreiben will, muß sich früher oder später die Frage 
stellen, ob es sinnvoll ist, das Spiel mit Grafik zu 
versehen oder nicht. Letztendlich ist diese Entscheidung 
auch darüber ausschlaggebend, ob zirka 8 KByte RAM für 
eine Bit-Map oder für einen riesigen Wortschatz ausgenutzt 
werden. Die letzten Abenteuerspiele, die auf den Markt 
gekommen sind, haben auch eine traurige Tatsache immer 
wieder bestätigt: Die Spiele, die mit fantastischer Grafik aus¬ 
gestattet sind, lassen immer am Wortschatz schwer zu wün¬ 
schen übrig. Ich denke hier zum Beispiel an das Spiel Asylum: 
Die Grafik ist zwar überwältigend, aber die Spiellust geht spä¬ 
testens dann verloren, wenn man zum zehntenmal die 
Antwort »You can not do that« erhalten hat und niemals eine 
detaillierte Erklärung, warum etwas nicht geht. Unglückli¬ 
cherweise enthält das Spiel auch noch eine Dia-Show- 
Funktion, die es ermöglicht, zu Beginn des Spiels alle Bilder 
anzuschauen. Dadurch wird schließlich auch noch der letzte 
Funke Spiellust zerstört - nämlich die Überraschung beim 
Entdecken eines neuen Bildes. Wir wollen uns zunächst 
jedoch nicht mit Speicherplatzproblemen im Bereich HiRes- 
Bilder/Wortschatz beschäftigen, sondern vielmehr die fol¬ 
gende Frage klären: Wie macht man fantastische HiRes- 
Bilder für Grafikadventures? 

Jeder von Ihnen hat bestimmt schon einmal mit Malpro¬ 
grammen wie zum Beispiel Koala Painter oder Paint Magic 
etc. gearbeitet. Begabte Grafiker kommen damit oft auch zu 
guten Resultaten. Allerdings ist das »per Hand Zeichnen« 
unheimlich zeitaufwendig. Zugegeben, es gibt zahlreiche 
Zeichenprogramme, die das Arbeiten mit Grafiktabletts, 
Trackball, Joystick, Maus und Lightpen unterstützen, aber 
alle diese Methoden erfordern unheimliches Geschick zum 
Zeichnen - und das haben nur sehr wenige Programmierer 
(zu denen auch ich leider nicht gehöre). Die Lösung allen 
Übels heißt schließlich: Video Digitizer. Video-Digitizer sind 
Geräte, mit denen es möglich ist, Bilder von einer Kamera 
beziehungsweise einem Videogerät in den Speicher eines 
Computers einzulesen (sprich digitalisieren). Diese Geräte 
waren bis vor kurzem sehr teuer (zirka 600 Mark), sind jetzt 
aber schon relativ erschwinglich. Gebrauchtgeräte gibt es 
schon ab 200 Mark. 

Leider ist es mit dem Video-Digitizer allein noch lange nicht 
getan. Neben einer Computeranlage benötigt man auch noch 
eine Video-Kamera. Für so eine Schwarzweiß-Kamera muß 
man dann noch einmal zirka 600 Mark auf den Tisch legen. 
Es lohnt sich jedoch in den seltensten Fällen, eine solche 
Kamera zu kaufen, die lediglich zum Arbeiten mit dem Digiti¬ 
zer verwendbar ist. 

Eine andere Möglichkeit ist es, einen Videorecorder an den 
Digitizer anzuschließen. Dies hat jedoch nur dann einen Sinn, 
wenn der Recorder über ein ausgezeichnetes Standbild ver¬ 
fügt. An einen Videorecorder mit Standbild zu gelangen 
beziehungsweise sich einen von Freunden auszuleihen, 
dürfte kein allzu großes Problem sein. Anders die Kamera. 
Gute Videokameras sind im Moment noch dermaßen teuer, 


daß sie nur in wenigen Haushalten zu finden sind. Es gibt 
jedoch zahlreiche Videotheken und Video-Geschäfte, in 
denen man Kameras (und natürlich auch Recorder) ausleihen 
kann. Wer Glück hat, findet bestimmt ein Geschäft in dem 
man eine Videoanlage für weniger als 50 DM ein Wochen¬ 
ende lang ausleihen kann. Alles, was Sie dann noch benöti¬ 
gen, sind Bildvorlagen zum Digitalisieren. Sind die Bilder erst 
einmal im Computer, ist es ein leichtes, sie nach eigenen 
Wünschen zu manipulieren, umzufärben und schließlich ins 
eigene Adventure einzubauen. Man benötigt also noch ein 
gutes Malprogramm, um die digitalisierten Bilder vernünftig 
bearbeiten zu können. Leider hat jedes Malprogramm Vor¬ 
teile und Nachteile - und die Bilder der einzelnen Programme 
sind natürlich absolut inkompatibel untereinander. 

Viele Digitalisierer speichern im Koala-Painter-Förmat ab. 
Als Zeichenprogramm würde ich aber Paint Magic empfeh¬ 
len. Deswegen nun ein kleines Listing zum Verwandeln von 
Koala- in Paint-Magic-Bilder (Listing 1). Das kurze Listing 
erklärt sich von selbst. 

In manchen Fällen ist es nötig, daß die Farbeinstellungen 
nachträglich per Hand korrigiert werden müssen. 


Point Magic Diashow 


Im folaenden wird erklärt, wie Sie Paint-Magic-Bilder inner¬ 
halb vc. Basic-Programmen laden und darstellen können. 
Die Paint-Magic-Bilder können übrigens auch direkt geladen 
werden und mittels RUN betrachtet werden, da vor jedem Bild 
ein kleines Programm zur Bilddarstellung mit gespeichert 
wird. 


10 REM ******************************* <148> 

20 REM * BILDUMSCHREIBE—ROUTINE * <039> 

30 REM *. * <079> 

40 REM * KOALA - PAINT MAGIC * <120> 

50 REM * » <099> 

55 REM ******************************* <193> 

60 IF A=1 THEN 130 <217> 

70 PRINT"CCLR,YELLOW,DOWN,RVSON,2SPACE >BIL 

DUMSCHREIBEROUTINE CI7SPACE,RVOFF>" <196> 

80 PRINT"C2SPACEX3UELLDISKETTE EINLEGEN , 

DANN BILD-C4SPACE,DOWN,SPACEIKENNZIFFER 
EINGEBEN •” <123> 

90 INPUT"C2DOWN>";K* <10B> 

100 IF K*<"A"OR K#>"Z"THEN 50 <116> 

110 POKE 55,0:POKE 56,96 <009> 

120 A=l:LOAD"?PIC "+K*+"*",B,1 <237> 

130 : <106> 

140 : <116> 

150 PRINT"CDOWN,RVSON,2SPACE> BILDUMSCHREIB 

EROUTINE CI7SPACE,RVOFF>“ <070> 

160 PRINT" ZIELDISK EINLEGEN , DANN BEWUEN 

SCHTENC3SPACE,DOWNJNAMEN EINGEBEN !" <207> 

170 INPUT"CDOWN,SPACE >";N* <063> 

180 OPEN 1,B,1,N*+",P,W" <064> 

190 PRINT#1,CHR*<142);CHR*<63>; <096> 

200 FOR 1=16270 TO 16383:PRINT#1,CHR*<0>j: 

NEXT <155> 

210 FOR 1=24576 TO 32767:PRINT#1,CHR*<PEEK 

<I))5:NEXT <025> 

220 FOR 1=32576 TO 33599:PRINT#1,CHR*CPEEK 

II));:NEXT <084> 

230 CLOSE 1 <241> 


Listing 1. Der Bildumwandler 
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Und so werden die Bilder innerhalb von Programmen gela¬ 
den und dargestellt: 

Zunächst müssen sie in einer neuen Form gespeichert wer¬ 
den. Dazu: 

1. Bild laden. 

2. Bild mit »RUN« einschalten. 

3. Bild mittels RUN-STOP/RESTORE ausschalten. 

4. POKE 24565,96 im Direktmodus eingeben. 

5. Den Bereich von hex 4000 - 6400 (=Bild) mit einem 
Monitor speichern. 

Das so gespeicherte Paint-Magic-Bild kann jetzt innerhalb 
eines Programmes absolut geladen werden (,8,1) und mittels 
SYS 24513 dargestellt werden. 

Um das Bild wieder auszuschalten, sind folgende POKEs 
notwendig: 

POKE 53272,21 : POKE 56576,151 : POKE 53265,27 
POKE 53270,200 

So lassen sich ganz einfach Dia-Shows hersteilen. 

fenstertedmik auf dem C64 


Im folgenden zeige ich Ihnen, wie Sie HiRes-Bilder in Ihre 
eigenen Adventures einbauen können. Die Idee besteht da¬ 
rin, den Bildschirm des C 64 in eine Grafik und in ein Text¬ 
fenster zu unterteilen. 

Bild 1 zeigt, wie der Bildschirm unterteilt wird. In der oberen 
Hälfte wird ein Multicolor-HiRes-Fenster mit der Auflösung 
96 mal 160 Bildpunkte dargestellt. 

Die 13. Textzeile bleibt als Trennung leer. Die unteren 12 
Zeilen sind Text-Bildschirm. 

Die Routine ist speziell für Adventures gedacht, die auf rela¬ 
tiver Dateien-Basis und mit einem deutschen Zeichensatz 
arbeiten. Das MSE-Listing zur Fensterroutine finden Sie in 
Listing 2. 

Wie bereits gesagt, arbeitet die Routine auch dann, wenn 
der deutsche Zeichensatz verwendet wird. Das Ladepro¬ 
gramm, mit dem zu Beginn eines Adventures die Fenster- 


MULTICOLOR-MODE 

AUFLÖSUNG = 96 x 160 Pixel 


Textmode 
12 Zellen ä 40 Zeichen 


Grafik-Fenster 
(12 x 40 Zeichen) 

LEERZEILE 

Textfenster 
(12 x 40 Zeichen) 


Bild 1. Aufteilung des Bildschirms 
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Bd 

19 

dO 

58 

60 

ad 

ec 

9c40 



00 

9c 

fO 

25 

ce 

00 

9c 

a9 

22 

9c 4B 



01 

8d 

12 

dO 

ea 

ea 

ea 

ea 

36 

9c50 



ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

4f 

9c 5B 



ea 

ea 

ea 

ea 

ea 

20 

a8 

9c 

5b 

9c60 



ad 

19 

dO 

8d 

19 

dO 

4c 

31 

2b 

9c6B 



ea 

ee 

00 

9c 

a9 

91 

8d 

12 

de 

9c70 



dO 

20 

7d 

9c 

ad 

19 

dO 

Bd 

45 

9c 78 



19 

dO 

4c 

81 

ea 

a9 

01 

Bd 

58 

9c 80 



00 

dd 

a9 

3b 

8d 

11 

dO 

a9 

39 

9c88 



dB 

8d 

16 

dO 

a9 

80 

Bd 

18 

cb 

9c90 



dO 

ad 

c2 

9c 

8d 

21 

dO 

aO 

el 

9c 98 



28 

a9 

00 

99 

df 

d9 

ad 

c3 

d3 

9c aO 



9c 

99 

b7 

d9 

88 

dO 

f 2 

60 

cd 

9ca8 



a9 

00 

8d 

00 

dd 

a9 

lb 

Bd 

67 

9cb0 



11 

dO 

a9 

c8 

8d 

16 

dO 

a9 

cd 

9cb8 



3a 

8d 

18 

dO 

a9 

OO 

Bd 

21 

ec 

9cc0 



dO 

60 

Oc 

00 

a9 

00 

85 

fb 

6c 

9ccB 



aS 

a9 

d8 

85 

fc 

8a 

91 

fb 

8e 

9cd0 



18 

a5 

fb 

69 

01 

85 

fb 

a5 

5e 

9t_w_8 



fc 

69 

00 

85 

fc 

a5 

fb 

c9 

ba 

9ce0 



08 

dO 

ea 

a5 

fc 

c9 

da 

dO 

eb 

9ce8 



e4 

60 

78 

20 

a8 

9c 

a2 

07 

26 

9cf O 



20 

c4 

9c 

a9 

01 

Bd 

12 

dO 

35 

9cf 8 



a9 

Oa 

8d 

14 

03 

a9 

9d 

8d 

9b 

9d00 



15 

03 

58 

ad 

19 

dO 

Bd 

19 

e3 

9d08 



dO 

60 

ad 

19 

dO 

8d 

19 

dO 

16 

9dl0 



4c 

31 

ea 

41 

20 

42 

Bd 

13 

48 

9dl8 



9d 

a9 

42 

8d 

15 

9d 

20 

36 

f 7 

9d20 



9d 

a9 

56 

8d 

15 

9d 

20 

36 

04 

9d28 



9d 

ad 

ff 

9f 

8d 

c2 

9c 

ad 

4c 

9d30 



fe 

9f 

8d 

c3 

9c 

60 

a2 

08 

41 

9d38 



aO 

01 

20 

ba 

ff 

a9 

03 

a2 

57 

9d40 



13 

aO 

9d 

20 

bd 

ff 

a9 

00 

91 

9d48 



4c 

d5 

ff 

24 

3d 

4c 

45 

46 

db 

Listing 

2. 

Die Fenster-Routine 
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Bild 2. Die aktuelle Speicherbelegung 


39136 

40960 



SONDERHEFT 4/86 







































ADVENTURE-GRAFIK 


C 64 


Routine geladen und der deutsche Zeichensatz geladen und 
aktiviert wird, finden Sie in Listing 3. 

In Zeile 30 wird der Zeiger auf die Speicher-Obergrenze 
verschoben. Dies ist notwendig, um die Routine, die teils den 
Basic-RAM beansprucht, vor Überschreiben durch Basic- 
Programme zu schützen. 

Bild 2 zeigt, wie es jetzt im Speicher des C 64 aussieht. Die 
Fenster-Routine nimmt schon ziemlich viel RAM in Anspruch: 
32768-39135 Unterbringung der Bit-Map 
39136-40959 Hier steht die eigentliche Fenster- 
Routine 

40960-41983 Farbinformationen für das HiRes-Bild 

Jetzt stehen nur noch 30717 KByte Basic-RAM zur Verfü¬ 
gung. Die schräg gestrichelten Bereiche sind die noch freien 
RAM-Bereiche. Wer Adventures mit Grafik-Fenster program¬ 
mieren will, muß also ziemlich hart kalkulieren. Aufgrund der 
Adventure-Programmiertechniken, die Sie bisher in diesem 
Kurs kennengelernt haben, können Sie den Verlust des 
Fenster-RAMs durch geschickte Programmierung wieder 
ausgleichen. 

Hier noch ein Tip für alle ausgefuchsten Programmierer, 
die kein Byte ungenutzt sein lassen wollen: Der RAM- 
Bereich, der für Bit-Map und Farbinfo benutzt wird, wird 
eigentlich gar nicht ganz beansprucht, da unsere Fensterbil¬ 
der nur eine Auflösung von 96 mal 160 haben. Das heißt, in 
den RAM-Bereichen von 36929-39135 und 41480-41982 
können noch kleine Maschinenroutinen untergebracht wer¬ 
den. Und so wird mit der Fensterroutine gearbeitet: 


10 IF A=1 THEN 50 

<070> 

20 IF A—2 THEN 60 

<241 > 

30 POKE 55,0: POKE 56,128 

<199> 

40 CLR:A=l:LOAD”D.Z.SATZ",8,1 

<186> 

50 A=2:LOAD"FENSTER”,8,1 

<053> 

60 POKE 648,204:POKE 53272,56:POKE 

56576,0 <192> 

70 PRINT"<CLR>" 

<058 > 

Listing 3. Lader für die Fenster-Routine 



Bei ausgeschaltetem Fenster steht der ganze Bildschirm 
als Textfenster zur Verfügung. Mittels SYS 39937 wird das 
Fenster eingeschaltet beziehungsweise eingeblendet. SYS 
39940 schaltet das Fenster wieder aus. Der Text bezie¬ 
hungsweise Bildschirminhalt, der sich unter dem eingeblen¬ 
deten Fenster befand, ist jetzt wieder sichtbar. Allerdings ist 
dieser Text einfarbig. Die Farbe (0-15), die der Text nach Aus¬ 
schalten des HiRes-Fensters annimmt, steht in Speicherzelle 
40175. Mittels POKE 40175,FARBE kann also variiert wer¬ 
den. Auch Text, der unter das eingeschaltete Fenster ge- 
scrollt wird, ist nach Ausschalten des Fensters wieder sicht¬ 
bar. Das Fenster ist völlig Interrupt-gesteuert - deshalb flim¬ 
mert die unterste Zeile manchmal ein wenig, was jedoch 
kaum stört. 

Durch die Interrupt-Programmierung ist es jetzt auch nicht 
mehr so einfach, zwischen dem Groß/klein- und Groß/grafik- 
Zeichensatz umzuschalten. Hier muß auch wieder gePOKEt 
werden. Und zwar POKE 40120,58 um den Groß/klein- 
Zeichensatz und POKE 40120,56 um den Groß/grafik-Zei- 
chensatz einzuschalten. Jetzt müssen Sie natürlich noch 
wissen, wie man Fenstergrafiken lädt. Hierzu dient ein kleines 
Programm, das Paint-Magic ins Fensterformat umwandelt. 
Sie benötigen also Paint-Magic-Bilder, wobei das spätere 
Fensterbild die oberen 12 Zeilen (beziehungsweise 96 verti¬ 
kale Bildpunkte) des Paint-Magic-Bildes einnimmt. 

Das Programm in Listing 4 funktioniert ganz einfach: Zuerst 
muß die Diskette, auf der sich das Paint-Magic-Bild befindet, 
eingelegt werden. Nach dem Laden wird das Programm auf 
einer Zieldiskette gespeichert. Wichtig ist dabei, daß der File¬ 
name des Fensterbildes nur ein einziges Zeichen lang sein 
darf. Außerdem müssen die Hintergrundfarbe (1. Farbe) des 
Bildes sowie die 4. Farbe angegeben werden - also mit Hilfe 
von Paint-Magic lesen und notieren. Auf einer Diskette finden 
30 Bilde- im Fensterformat Platz. Jetzt müssen Sie nur noch 
wissen, wie Bilder mit Hilfe der Fensterroutine geladen wer¬ 
den: 

POKE 780, ASC("Zeichen") : SYS 39943 

Für »Zeichen« muß der Filename des Bildes (der aus nur 
einem Zeichen bestehen darf) eingesetzt werden. 


5 PRINT"{CLR,RVSCN>BILDUMSCHREIBEROUTI NE {R 


VOFF>" <221> 

10 REM BILDUMSCHREIBER PAINT MAGIC <014> 

20 REM <082> 

30 REM VON WOLFGANG BORGSMUELLER <255> 

40 REM <102> 

45 IF A-l THEN 500 <201> 

50 POKE 55,144:POKE 56,48 <055> 

60 CLR:A=1 <053> 

65 PRINT"BITTE QUELLDISK EINLEGEN UND NAME 

DES{3SPACE>PAINT—MAGIC BILDES EINGEBEN 
!“ <163> 

66 INPUT"NAME ";F* <060> 

70 LOAD F*,8,l <226> 

80 END <082> 

500 PRINT"ZIELDISK EINLEGEN!":POKE 198,0 <0B5> 

510 GET A*:IF A*«""GOTO 510 <095> 

511 PR INT "BITTE GEBEN SIE DEN KENNBUCHSTAB 

EN DES<2SPACE>FENSTERBILDES EIN! <111> 

512 INPUT C* <118> 

520 OPEN 1,8,1,LEFT*(C*,1>+" B,P,W" <101> 

525 PRINT#1, CHR* (0);CHR*(128); <013> 

530 FÜR I — 16384 TO 21184 <001> 

540 PRINT#1, CHR* (PEEK(I));:NEXT <113> 

550 CLOSE 1 <053> 

555 INPUT"HB—FARBE DES BILDES";HG <247> 

556 INPUT"FARBE 4 DES BILDES";F4 <041> 

560 OPEN 1,8,1,LEFT*(C*,1> + " V,P,W" <221> 

565 PRINT"BILDNAME. ";C* <219> 

570 PRINT#1,CHR*(254 >;CHR*(159);CHR*(F4);C 

HR*(HG); <058> 

5B0 FOR 1-24576 TO 25176 <215> 

590 PRINT#1,CHR*(PEEK(I));:NEXT <163> 

600 CLOSE 1 <103> 


Listing 4. Wandler Paint Magic — Fensterformat 


Probleme mit der Fensterroutine 


Bei eingeschaltetem Fenster kommt es zu Schwierigkeiten 
bei Disk-Operationen (zum Beispiel Laden von relativen 
Files): der Bildschirm beginnt dann wild zu flackern. Dies liegt 
daran, daß Diskettenoperationen störend auf programmierte 
Video-Interrupts wirken. Vielleicht kann man dies sogar als 
einen Fehler im C64-Betriebssystem bezeichnen. Es ist 
möglich, Fensterroutinen beziehungsweise Interrupts zu pro¬ 
grammieren, bei denen Diskettenoperationen nicht stören. 
Dazu muß jedoch das Betriebssystem vom ROM ins RAM 
kopiert und dort verändert werden. Für diese Lösung habe 
ich mich jedoch nicht entschieden, weil dann zuviel RAM- 
Speicher verlorengegangen wäre. Man muß vor Disketten¬ 
operationen das Fenster aus- und erst später wieder ein¬ 
schalten. 

Zusammenfassung 
Fenster einschalten: 

Fenster ausschalten: 

Bild laden: 


Zeichenfarbe hinter Fenster: 

Groß/klein-Zeichensatz 

einschalten: 

Groß/grafik-Zeichensatz 

einschalten: 

Viel Spaß beim Fensterin! 


SYS 39937 
SYS 39940 
POKE 780,ASC 
("Zeichen "):SYS 39943 
POKE 40175,FARBE 

POKE 40120,58 

POKE 40120,56 
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Adventure-Programmiertedinik 


Es ist soweit. Im nun folgenden Abschnitt er¬ 
fahren Sie endlich, wie man sie programmiert: 
Super-Adventures, wie es sie bis jetzt noch nicht 
gibt. Sie erhalten alle notwendigen Grundlagen, 
um professionelle Adventures zu erstellen. 

I n meinem ersten Ad venture-Kurs habe ich bereits aus¬ 
führlich beschrieben, wie man eine Adventure-Idee auf¬ 
greift, diese ausarbeitet, Pläne anfertigt etc. Wir wollen 
uns deshalb hier gar nicht mehr erst lange mit solchen Grund¬ 
lagen aufhalten, sondern gleich zur Sache kommen. Auf den 
nächsten Seiten programmieren wir gemeinsam die ersten 
Fortsetzungsszenen von Gordon Saga II. An dieser Stelle 
muß ich auch gleich noch einmal ein paar Worte zur Gordon 
Saga I verlieren. Ich möchte mich bei allen begeisterten 
Adventurern bedanken, die im Spiel mit mühevoller Kleinst¬ 
arbeit meine Telefonnummer herausgefunden und mich dann 
angerufen haben. Ich erhielt zahlreiche Anrufe aus allen Tei¬ 
len Deutschlands, Österreichs und der Schweiz. Bedanken 
möchte ich mich vor allem deshalb, weil ich bisher keinen ein¬ 
zigen bösen Anruf erhielt. Einige teilten mir sogar mit, daß das 
Spiel Fehler enthält und deshalb nicht lösbar sei. Es stimmt, 
es sind einige Fehler enthalten, aber ich kann versichern, daß 
diese Fehler in keinster Weise zur Unlösbarkeit beziehungs¬ 
weise zum Absturz des Spiels führen: es sind lediglich kleine 
Logikfehler, wie sie bei der Programmierung eines kom¬ 
plexen Adventures unvermeidbar sind. An dieser Stelle sei 
auch die »Incredible Föur« gegrüßt, die Gordon Saga I ge¬ 
knackt und beim Titelbild das HAPPY-SOFTWAFSE-Emblem 
durch UNHAPPY SOFTWARE ersetzt haben (PS: Wenn ich 
euch erwische, dreh ich euch den Hals um!). »Wo bleibt 
Gordon Saga, Teil II« haben mich viele gefragt. Die Program¬ 
mierung von Teil II habe ich kurz vor Abschluß abgebrochen. 
Dies hat seinen guten Grund: Teil II ist einfach um Längen bes¬ 
ser als Teil I in puncto Text, Grafik und Parser. Wenn jemand, 
der Gordon Saga I kennt, von Gordon Saga II hört, so ver¬ 
gleicht er unwillkürlich den zweiten mit dem ersten Teil - und 
dies wäre nicht gerade die beste Werbung. 

Als kleinen Vorgeschmack möchte ich gemeinsam mit 
Ihnen nun die ersten Szenen von Gordon Saga II programmie¬ 
ren. Dazu ist notwendig, daß Sie wissen, wie Gordon Saga I 
ausgeht. Am Spielende treibt der Spieler mit einem Floß auf 
einem stillen unterirdischen See in einem geheimnisvollen 
Gebirge. Plötzlich entsteht im See ein riesiger Strudel, der 
den Spieler samt Floß in die Tiefe reißt - die Pforte zu einer 
geheimnisvollen Welt hat sich aufgetan ... 

Und dies sind die ersten Szenen von Gordon Saga II: Der 
Spieler wacht in einer Glaskuppel am Grunde des Sees wie¬ 
der auf. Von der Glaskuppel aus führt ein Tunnel in die Dunkel¬ 
heit. Durch diesen Tunnel gelangt man in eine Kristallgrotte... 
Den Lageplan für diesen Teil des Spieles zeigt Bild 1. 

Wir haben 4 Räume: Glaskuppel, Tunnel, Kristallgrotte und 
Felsplateau. Außerdem ist bei jedem Raum aufgezählt, wel¬ 
che Objekte sich in ihm befinden. Von Raum 3 gelangt man 
nicht so ohne weiteres zu Raum 4, was durch die gestrichelte 
Linie angedeutet ist - man braucht irgendwie das Schwert. 
Wie fängt man jetzt an zu programmieren? 

Nun, man muß sich erst einmal überlegen, wie man die ein¬ 
zelnen Programmteile - also Basic-Programm, Zeichensatz¬ 
lader, Grafikbilder, relative Dateien etc. auf einer Disk unter¬ 
bringt. Am besten, man entscheidet sich, eine Diskette beid¬ 
seitig zu verwenden. 


Auf Seite 1 bringt man das Grundprogramm, den deut¬ 
schen Zeichensatz, eventuell Maschinenprogramme und 
Grafikbilder unter. 

Das heißt, außer den Grafikbildern kommt auf Seite 1 alles, 
was einmal in den Rechner geladen wird und dann dort bleibt. 
Auf Seite 2 kommt die relative Datei, auf der alle Texte, Kom¬ 
mentare und Raumbeschreibungen gespeichert sind. Außer¬ 
dem wird auf Seite 2 die relative Wortschatzdatei unter¬ 
gebracht. In der Entwicklungsphase eines Adventures eignet 
sich Parser 4.0 zweifellos am besten - man kann leicht neue 
Wörter einfügen etc. Erst ganz am Ende, wenn alle Spielsze¬ 
nen fertig programmiert sind - das Adventure also fertig ist -, 
sollte man endgültig auf Parser 5.0 Umrüsten. 

Nehmen Sie sich jetzt bitte eine gute Diskette her, die für 
beidseitiges Bespielen geeignet ist, und formatieren Sie 
beide Seiten. Dann nehmen Sie die Disk-Utility her und 
ändern die IDs der Disketten so, daß der ID der ersten Seite 
»Iside«, der der zweiten Seite »2side« lautet. Dies ist notwen¬ 
dig, damit später innerhalb des Programmes festgestellt wer¬ 
den kann, ob die richtige Disk-Seite eingelegt ist. Jetzt brau¬ 
chen wir den Relativ-Datei-Editor. Mit ihm eröffnen wir auf der 
2. Diskseite eine relative Datei mit folgenden Angaben: 
Satzlänge 41 
Anzahl Sätze 3000 
Filename »TEXTE« 

Jetzt müssen Sie auf die zweite Diskseite noch die relative 
Wortschatzdatei überspielen. Dies geht nicht so ohne weite¬ 
res, da es nur sehr wenige Kopierprogramme gibt, die relative 
File« einzeln kopieren können. Sie können jedoch mit dem 
Editoi eine neue Wortschatzdatei anlegen und dann mittels 
VERSETZEN-Befehl (siehe auch Anleitung zum Editor) die 
alte Wortschatzdatei in die neu angelegte übertragen. Eine 
andere Möglichkeit besteht darin, einfach die ganze Disket¬ 
tenseite, auf der sich die Wortschatzdatei befindet, mit einem 
Diskettenkopierprogramm auf die zweite Seite unserer jetzi¬ 
gen Arbeitsdiskette zu kopieren und dann mittels Scratch 



Bild 1. Der Lageplan von 
Gordonsaga II (Ausschnitt) 
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und Validate den Rest zu löschen. Diskseite 2 muß jetzt so 
aussehen: 

0 "gordon saga ii "2side 
492 "texte" rel 

32 "Wortschatz" rel 

140 blocks free. 

Jetzt können wir mit der Arbeit beginnen. 

Der erste Schritt besteht darin, den Wortschatz und die Wör¬ 
ter zu erweitern, die für die aktuelle Spielszene, die sich in der 
Regel aus einigen Räumen zusammensetzt, benötigt wer¬ 
den. Man sollte nie zu viele Räume auf einmal behandeln. 

Wortschatz erweitern 


Denken Sie sich immer eine kleine Szene aus, programmie¬ 
ren Sie diese und arbeiten Sie erst dann weiter, wenn diese 
Szene einwandfrei läuft. Durch dieses Szene-für-Szene- 
Programmieren hält sich die Fehlersuche in engen Grenzen, 
und man kann sicher sein, daß das Adventure bei der Fertig¬ 
stellung nur wenige Logikfehler enthält - da jede Szene für 
sich ausgiebig getestet wurde. Wie erweitert man den Wort¬ 
schatz? Ganz einfach. Für unsere jetzige Szene müssen wir 
den Wortschatz um folgende Objekte ergänzen: 


Glaskuppel 

1 


Sand 

2 


Tunnel 

3 


Kristallgrotte 

4 


Quader 

5 


Statue 

6 


Schwert 

7 


Zettel 

8 


Amulett 

9 

646R 

Grube 

10 

Oeffnung 

11 


Felsplateau 

12 


Kristalle 

13 



Der Wortschatz wird ganz einfach erweitert, indem Sie mit 
dem relativen Datei-Editor die neuen Wörter ans Ende des 
bisherigen Wortschatzes anhängen (ab Satz Nr. 198) und 
dann die gesamte Datei neu sortieren. Hängen Sie bitte fol¬ 
gende Sätze an: 


198 

glaskuppel 

3001 

199 

sand 

3002 

200 

tunnel 

3003 

201 

kristallgrotte 

3004 

202 

quader 

3005 

203 

statue 

3006 

204 

Schwert 

3007 

205 

zettel 

3008 

206 

amulett 

3009 

207 

grübe 

3010 

208 

oeffnung 

3011 

209 

felsplateau 

3012 

210 

kristalle 

3013 


Jetzt muß der Wortschatz neu sortiert werden. Beachten 
Sie bitte, daß mit der Sortierroutine des relativen Datei- 
Editors nur Dateien sortiert werden können, die nicht mehr 
als 300 Sätze haben. Übersteigt die Anzahl der Worte im 
Wortschatz diese Zahl, so müssen Sie zum Sortieren des 
Wortschatzes den Super-Sorter hernehmen, bei dem kein 
Limit besteht. 

Nachdem der Wortschatz erweitert ist, können wir uns dem 
Text des Adventures zuwenden. Textadventures zeichnen 


sich besonders durch lange, beschreibende Texte aus. Nicht 
umsonst arbeiten viele Softwarehäuser bei der Erstellung 
ihrer Adventures mit Schriftstellern zusammen. Alleine 
Adventures schreiben ist langweilig. Auch sind Programmie¬ 
rer meistens keine guten Texter. Vielleicht tun Sie sich hier 
am besten mit einem Freund zusammen, der gerne schreibt. 
Zu zweit ein Spiel aushecken macht schließlich auch viel 
mehr Spaß. 

Anschließend finden Sie den Text zu den ersten Szenen 
von Gordon Saga II. Bitte schreiben Sie ihn in die entspre¬ 
chenden Sätze der Texte-Datei: 


1 Als Sie aus Ihrer Bewußlosigkeit 

2 erwachen, finden Sie sich auf einem 

3 weichen weißen Sandboden liegend 

4 wieder. 

5 Augenblicklich erinnern Sie sich an die 

6 letzten Ereignisse vor Ihrer 

7 Bewußtlosigkeit .. In Ihren Gedanken 

8 setzt sich das Abbild der riesigen 

9 Seeschlange zusammen, die Sie mit Hilfe 

10 einer goldenen Armbrust erlegt hatten. 

11 Ihre folgende Erinnerung gilt dem 

12 plötzlich aufgekommenen Strudel, durch 

13 den Ihr Floß samt Ihnen in die Tiefe 

14 gerissen worden war. 

15 Obwohl es Ihnen noch immer unbegreiflich 

16 ist, wie Sie all dies überleben konnten, 

17 machen Sie sich daran, Ihre jetzige 

18 Umgebung näher zu untersuchen . 

19 

20 GORDON SAGA II. Die Rückkehr des Helden 

21 Ein Abenteuerspiel von Michael Nickles. 

22. Pr.rsersystem 4.0 - Copyright 1985 

23 Auszug für Kurs im 64er-Sonderheft. * 

24 Glaskuppel 

25 Sie befinden sich innerhalb einer 

26 Glaskuppel am Grunde eines Sees. 

27 Außerhalb der Kuppel ist das Wasser so 

28 dunkel, daß man nichts erkennen kann. 

29 Der weiße Sand am Boden strahlt ein 

30 schwaches Licht aus, das die Kuppel 

31 erhellt. Ein kleiner Tunnel führt von 

32 hier aus hinaus in die endlose 

33 Dunkelheit. * 

34 Tunnel 

35 Sie befinden sich in einem zwei Meter 

36 hohen und etwa drei Meter breiten 

37 Tunnel. Die Wände sind aus einem Glas 

38 angefertigt, das etwas trüber als das 

39 Glas, aus dem die Kuppel besteht, ist. 

40 Der Tunnel verläuft in nördliche 

41 Richtung. Weit entfernt in nördlicher 

42 Richtung sehen Sie ein helles Licht. * 

43 Kristallgrotte. 

44 Dies ist eine riesige Grotte, deren Wände 

45 mit Kristallen, die in allen Farben des 

46 Lichtspektrums glitzern, besetzt sind. 

47 Der Boden besteht aus glatten, strahlend 
43 weißen Marmorplatten. Trotz zahlreicher 
4o Unebenheiten ähnelt diese Grotte dem 

50 Innerer' einer Halbkugel mit einem Radius 

51 von 6,3. 100 Metern. Der einzige Ausgang 

52 von hier ist ein in südlicher Richtung 

53 verlaufender Tunnel. * 

54 Felsplateau 

55 Dieses Felsplateau außerhalb der Grotte 

56 bietet Ihnen eine fantastische Aussicht. 
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57 Sie blicken über ein weites Land hinweg. 

58 das in Dunkelheit gehüllt ist. Ara Himmel 

59 sehen Sie eine schwarze Scheibe, deren 

60 Ränder orangerot leuchten - es scheint, 

61 als sei die Dunkelheit durch eine 

62 andauernde Sonnenfinsternis bedingt. 

63 Etwa 300 Meter unterhalb des Plateaus 

64 befindet sich ein Wald mit einer Ihnen 

65 unbekannten Flora. 

66 All diese eindrucksvollen Anblicke 

67 verstärken in Ihnen das Gefühl, daß Sie 


68 sich in einer fremden Welt befinden. 

69 In der östlichen Gebirgswand ist ein 

70 Zugang zu einer Grotte. * 

71 Sie graben in dem leuchtenden Sand. * 

72 Es ist sinnlos, noch tiefer zu graben. * 

73 Nachdem Sie ein etwa 50 cm tiefes Loch 

74 in den Sand gegraben haben, finden Sie 

75 einen Zettel und ein Amulett. * 

76 Im Sandboden ist eine ca. 50 cm tiefe 


77 Grube ausgehoben - es scheint so, als ob 

78 hier vor kurzem jemand gegraben hat! * 

79 Auf dem Zettel steht etwas geschrieben! * 

80 "Supermike grüßt Captain Future, 

81 Section 8, Pink, Brutallica, Gommel, 

82 GCS (ich weiß, daß ihr genau 35 km 

83 Luftlinie von mir entfernt wohnt - 

84 Paßt bloß auf!!!), und natürlich alle 

85 Freunde, RAMBO und alle Girls, die mich 

86 besonders gut kennen!!" * 

87 Das Amulett ist aus massivem Gold 

88 angefertigt, mit schwarzen Edelsteinen 

89 besetzt und hängt an einer goldenen 

90 Halskette. on 

91 Die Grube ist völlig leer. * 

92 Die Glaskuppel ist so groß, daß sich 

93 etwa 10 ausgewachsene Männer darin 

94 aufhalten können. * 

95 Der Sand ist sehr grobkörnig und 

96 leuchtet seltsamerweise. * 

97 Die Kristalle glitzern in allen Farben 

98 des Lichtspektrums. * 

99 Die Kristalle sind fest in die Wände 

100 eingelassen und lassen sich auch mit 

101 größten Anstrengungen nicht entfernen. * 

102 Auf dem Marraorboden, exakt im Zentrum 

103 des Raumes, steht ein goldener Quader, 

104 von dem eine ca. 3 Meter hohe Statue 

105 emporragt. * 

106 Nur wenige Meter von der Statue entfernt 

107 steckt ein goldenes Schwert zu etwa 

108 einem Drittel seiner Gesamtlänge im 

109 Marmorboden. * 

110 Das Schwert ist fest im Marmorboden 

111 verankert und läßt sich um keinen 

112 Millimeter herausziehen. * 

113 Die Statue gibt die groben Umrisse eines 

114 jungen Kriegers wieder. Er hat lange 

115 Haare, ist von athletischer Körperstatur 

116 und trägt eine Rüstung. Sie fühlen sich 

117 von der Statue in einer seltsamen Art 

118 und Weise angezogen. * 

119 Als Sie die Statue mit Ihrer rechten 

120 Hand berühren, durchfährt augenblicklich 

121 eine Lähmung Ihren ganzen Körper und Sie 

122 sind nicht mehr in der Lage, Ihren Arm 

123 zurückzuziehen. Unmittelbar vor Ihren 


124 Augen beginnt die Statue plötzlich ihr 

125 Äußeres zu verändern. 

126 Die Lähmung läßt schließlich nach und 

127 Sie stürzen benommen zu Boden. 

128 Nachdem Sie den Schock überwunden haben, 

129 stellen Sie fest, daß nicht nur die 

130 Statue ihr Äußeres verändert hat - 

131 während die Statue Ihre Form angenommen 

132 hat, haben Sie den Körper des jungen 

133 Kriegers erhalten, den die Statue noch 

134 vor kurzem verkörpert hat. * 

135 Die Statue gibt jetzt die Umrisse und 

136 Gesichtszüge eines Ihnen wohlvertrauten 

137 Menschenkörpers wieder - ein Körper, der 

138 noch vor kurzem der ihrige war! * 

139 Mit der unglaublichen Kraft, die in 

140 Ihrem neuen Körper zu stecken scheint, 

141 ziehen Sie das Schwert ohne jegliche 

142 Anstrengung aus dem Marmorboden. 

143 Kaum, daß Sie es in Ihren Händen halten, 

144 beginnt der gesamte Raum um Sie herum 

145 leicht zu beben und das Schwert strahlt 

146 in gleißendem Licht. 

147 Aus dem Nichts ertönt plötzlich eine 

148 Ihnen altbekannte Stimme. "In Dir 

149 erfüllt sich die alte Prophezeiung! 

150 Geh, G0RD0N, die Macht ist mit Dir!" 

151 Als die letzten Worte des Uralten 

152 gerade verklingen, tut sich in der 

153 westlichen Wand der Grotte eine Öffnung 

154 auf und gibt den Ausgang zu einem 

155 Felsplateau frei. 

156 Sie stehen verwundert da und fragen sich 
ir immer wieder, warum gerade Sie der 

158 Auserwählte sind und zu welchem Zweck 

159 der Uralte Sie in diese fremde Welt 

160 geholt hat. * 

161 In der westlichen Wand der Grotte ist 

162 eine Öffnung, die den Ausgang zu einem 

163 Felsplateau ermöglicht. * 

164 die Glaskuppel 

165 der Sand 

166 der Tunnel 

167 die Kristallgrotte 

168 der Quader 

169 die Statue 

170 das Schwert 

171 der Zettel 

172 das Amulett 

173 die Grube 

174 die Öffnung 

175 das Felsplateau 

176 die Kristalle 


Sie haben sicherlich bereits bemerkt, wie Adventuretexte 
in einer relativen Datei untergebracht werden: Jede Raum¬ 
beschreibung oder jeder Kommentar wird mit einem Stern¬ 
chen abgeschlossen. Nur die Objektnamen selbst stehen 
allein in einer Zeile, den Geschlechtsartikel vorangestellt. 

Damit ist auch der Text für die ersten Szenen auf Disk vor¬ 
handen. Jetzt benötigen wir ein Programmiergerüst, um das 
herum wir unser Adventure aufbauen. Dieses Gerüst finden 
Sie in Listing 1. 

Dieses Gerüst soll Ihnen als Grundprogramm für jedes 
Adventure dienen. In ihm sind nahezu alle Routinen enthal¬ 
ten, die für die Programmierung beziehungsweise Entwick¬ 
lung eines Textadventures notwendig sind. 
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0 REM *************************** <109> 

1 REM GORDON SAGA II - 1985 BY SM <1BB> 

2 REM *************************** <111> 

3 IF 1=0 THEN I=1:LDAD"D.Z.SATZ",8,1 <076> 

4 POKE 648,204:POKE 53272,56:PGKE 56576,0: 

PRINT"<CLR)“:REM D.T.SATZ AKTIVIEREN <144> 

5 OPEN 15,8,15:PRINT"<CLR,YELLOW>";CHR$(14 

<204> 

6 SIDE=2:GOSUB 53200:PRINT"CCLR>"; <0B1> 

15 GGSUB 60000: REM TABELLEN EINLESEN <100> 

20 DIM WI<100>i REM ZIMMER-MERKER <253> 

30 SC=0:MD=0 : REM SCQRE/VERSUCH <065> 

40 SA=1:GOSUB 53600 

: REM TITELTEXT <004> 

50 ZN=1:GOSUB 54000 

: REM BESCHREIB. l.RAUM <067> 

100 REM START- 

- <206> 

101 : <077> 

110 IF SB< >0 THEN SA=SB:SB=0:GOSUB 53600:R 

EM KOMMENTAR AUSGEBEN <133> 

120 GOSUB 50000 :REM BEFEHLSEING 

ABE <1S0> 

130 s <106> 

300 REM GEH—ROUT INE- <218> 

310 IF RI=0 THEN 400 <021> 

320 I=MAP<ZN,RI> <017> 

330 IF 1=0 THEN PRINT"2IESE SICHTUNG IST N 

ICHT MÖGLICH!":GOTO 400 <119> 

340 ZN=I:GOSUB 54000 <1B6> 

400 REM SCHAU/UNTERSUCHE- <123> 

410 IF VEOll THEN 500 <034> 

415 IF 01=0 THEN GOSUB 54000:GOTO 500 <137> 

420 SA=OS(01>:GOSUB 53400:GOSUB 53500:OBS= 

M a"+RIGHT*(I*,LEN(I*>-1) <154> 

425 IF OB(01>=—1 THEN 430 <144> 

430 IF OB(Ol> < >ZN THEN X*=OB*+“ IST HIER N 

ICHT ZU SEHENGOSUB 53900:GOTO 500 <023> 

440 IF OU(O1)=0 THEN X*=OB*+" HAT KEINE BE 

SONDEREN flERKMALEGOSUB 53900 <127> 

450 IF OU(01)THEN SA=OU(01>:GOSUB 53B00 <153> 

500 REM NIMM- <042> 

505 IF VE<>12 THEN 600 <134> 

506 IF SP=1 THEN 550:REM NIMM ALLES <071> 

507 SA=OS(01):GOSUB 53400:GOSUB 53500:0B$= 

"2"+RIGHT$(I*,LEN(I*)-l) <241> 

510 IF 01=0 THEN PRINT"UHR SATZ ENTHALT KE 

IN ABJEKT !“:GOTO 600 <250> 

514 : IF OB (Ol) =—1 THEN PRINT"^S HABEN S.IE 

BEREITS !":GOTO 600 <095> 

515 :IF OB(01)<>ZN THEN X*=OB*+" IST HIER 

NICHT ZU SEHEN!":GOSUB 53900:GOTO 600 <245> 

516 IF OA(Ol)=0 THEN 600 <052> 

520 : IF OA (01) = 1 THEN PRINT"21ZARR! “: GOTO 

600 <065> 

525 :IF OA(Ol) =2 THEN X*=OB*+" IST VIEL ZU 
SCHWER ZUM TRAGEN!":GOSUB 53900:GOTO 
600 <121> 

530 :IF OA(01)=3 THEN PRINT"BENOMMEN.":OB( 

01)=-1:B0T0 600 <035> 

550 : <01B> 

554 PRINT:FOR 1=1 TO DZ <149> 

555 : IF OB (IX >ZN THEN 580 <246> 

556 SA=OS(I):GOSUB 53400:BOSUB 53500:0B*=" 

2"+RIGHT*(I*,LEN(I*)-l) <063> 

560 :I*=OB*+": " <230> 

565 IF SQ=1 AND 1=01 THEN 5B0:REM AUSSER <106> 
570 :IF OA(I)=1 THEN PRINT I*;"£IZARR !“ <133> 

575 :IF OA(I)=2 THEN PRINT I*;"UJ SCHWER Z 

UM TRAGEN !“ <131> 

577 : IF OA (I) «3 THEN PRINT I»! ".BENOMMEN. ": 

OB(I)=—1 <206> 

580 NEXT I <156> 

600 REM INVENTUR- <17B> 

601 IF VE<>13 THEN 700 <237> 

605 PRINT"{DOWN)SIE HABEN:{SPACE,UP)“ <244> 

610 IC=0:FOR 1=1 TO OZ <250> 

611 SA=OS(I):GOSUB 53400:GOSUB 53500:0B*=" 

S" +RIGHT*(I*,LEN(I*)-1):I*=0B* <194 > 

612 :IF LEFT*(I*,3)=”2ER"THEN J*=RIGHT*(I* 

,LEN(I*)-3):I*="2EN"+J* <143> 

615 : IF ÜB.( I) =—1 THEN PRINT" {11RIGHTJ"; I*: 

IC=1 <139> 


Lfsting 1. Ein voliständiges »Adventure-Programmier-Gerüst« 


620 NEXT I:IF IC=0 THEN PRINT”<11RIGHT)S)C 

K AUF 21 ER !" <155> 

700 REM VERLIERE- <100> 

701 IF VE<>14 THEN 800 <0B6> 

702 IF SP=1 THEN 750: REM VERLIER ALLES <156> 

703 IF 01=0 THEN PRINT"UHR SATZ ENTHALT KE 

IN ABJEKT!":GOTO B00 <062> 

705 IF OB(01><> 1 THEN PRINT"{DOWN)SIE HAB 

EN DAS NICHT !":GOTO 800 <063> 

715 OB(01)=ZN:PRINT "AK-" :GOTO 800 <137> 

750 IC=0:FOR 1=1 TO OZ <134> 

755 :IF SQ=1 AND 1=01 THEN 780:REM AUSSER <198> 

760 SA=OS(I):GOSUB 53400:GOSUB 53500:0B*=" 

2"+RIGHT*(I*,LEN(I*)-l):I*=0B*+": " <115> 

770 :IF OB(I) =-l THEN OB(I)=ZN:PRINT I*:"A 

K.":IC=1 <078> 

780 NEXT I:IF IC=0 AND SQ=1 THEN PRINT"HIE 

SOLL DAS GEHEN 7“ <053> 

7B2 IF IC=0 AND SQ=0 THEN PRINT"SIE HABEN 

DOCH GARNICHTS !" <175> 

800 : <119> 

2000 REM RAUMSPEZIFISCHE ACTION - 


50000 

50001 

50002 

50003 

50004 

50005 

50006 

50007 

50008 
50010 


REM ***************************** 

REM * 


* 

REM * 

WORT-PARSER 4.0 

* 

REM * 


* 

REM * 

<C> 1986 BEI 

* 

REM * 


* 

REM * 

MICHAEL NICKLES 

* 

REM * 


* 

REM ***************************** 

REM BEFEHLSSATZEINGABE- 



<056> 
<227> 
<009> 
< 169> 
< 011 > 
<086> 
<013> 
<0B2> 
<015> 
<235> 


<069> 

50011 ZW=0:PRINT:GOSUB 53000:M0=M0+1:REM T 


ITELLINE AUSGEBEN <222> 
50012 IF UD>0 THEN 50500:REM UND <171> 
50015 SL=77: REM BEFEHLSSATZLAENGE <048> 
50020 BE*="":POKE 198,0:PRINT"{YELLOW}>5"; <026> 
50030 RET X*:IF PEEK(203>=1 THEN 50120 <226> 
5004E ! •' X*=" "THEN 50030 <171> 
50050 IF LEN(BE*)=0 AND ASC(X*>=20 THEN 50 

030 <14B> 
50060 I=ASC(X*):IF I<32 OR I>133 AND I<159 

THEN IF 1020 THEN 50030 <131> 
50070 IF LEN (BE*) =SL AND 1020 THEN 50030 <128> 
50080 BE*=BE*+X* <031> 
50090 PRINT CHR*(20);X*;<108> 
50100 IF 1=20 THEN BE*=LEFT*(BE*,LEN(BE*> — 

2):GOTO 50030 <101> 
50110 GOTO 50030 <001> 
50120 PRINT"{LEFT,SPACE)" <227> 
50400 REM SATZZEICHEN SUCHEN - 


< 103> 

50401 : <0B2> 

50415 SN=0 <104> 

50420 IF RIGHT* (BE*, 1)=" "THEN BE*,=LEFT* (B 

E*,LEN(BE*)—1):GOTO 50420 <233> 

50430 I*=RIGHT*(BES,1) <1B0> 

50440 IF I*="."OR I*="!"THEN SN=0:BE*=LEFT 

*(BE*,LEN(BE*)—1):GOTO 50420 <010> 

50450 IF I*="?"THEN SN=1:BE*=LEFT*(BE*,LEN 

(BE*)-1):GOTO 50420 <144> 

50500 REM BE*—ZEIGER SETZEN - 


< 199> 

50501 : <1B4> 

50502 IF UD=0 THEN VE=0:RI=0:01=0:02=0:SP= 

0:SQ=0 <157> 

50504 IF UD>0 THEN RI=0:GOTO 50530 <199> 

50505 IF LEFT*(BE*,1)=" "THEN BE*=RIGHT*(B 

E*,LEN(BE*> — 1):GOTO 50505 <132> 

50510 BE*=BE*+" " <232> 

50520 ZA=1 :REM ZEIGER A SETZEN <05B> 

50530 ZB=ZA+1 <I80> 

50540 IF MID*(BE*,ZB,1)=""THEN UD=0:CLOSE 

1:OPEN 1,8,3,"TEXTE":RETURN <170> 

50550 IF MID*(BE*,ZB, 1)0" “THEN ZB=ZB+1:G 

OTO 50550 <175> 

50590 SU*=MID*(BE*,ZA,ZB—ZA) <222> 
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50600 REM SU* VORBEHANDLUNG 


— <130> 
50601 : <028> 
50610 IF SU*“"UND"THEN UD=1: GOTO 50630 <093> 
50620 IF SU*=","THEN UD=2:BDTÜ 50630 <061> 
50625 GOTO 50670 <201> 
50630 ZA-ZB+1 <0B0> 
50640 IF MID*(BE*.ZA,1)“""THEN PRINT"UND W 

AS :GOTO 50530 <153> 
50650 IF MID*(BE*,ZA,1>“" "THEN ZA-ZA+l:GO 

TO 50650 <242> 
50660 CLOSE 1:OPEN 1,8,3,"TEXTE":RETURN <119> 
50670 IF SU*“"IHN"OR SU*-"SIE"OR SU*="ES"T 

HEN Ol“QM: GOTO 51300 <069> 
50680 IF SU*“"ALLES"THEN SP»1:GOTO 51300 <029> 
50690 IF SU*“"AUSSER"THEN SQ=l:GQTO 51300 <012> 
51000 REM BINAERE SUCHROUTINE - 


< 113> 

51001 s <176> 

51002 CLOSE 1:OPEN 1,B,3,"WORTSCHATZ" <031> 

51007 REM ANFANG UND ENDE DES SUCHBEREICHE 

S ERMITTELN <117> 

51008 I“ASC <LEFT*(SU#,1>) <176> 

51009 IF I-65<0 OR 1—65>25 THEN GOSUB 5150 

0:GOTO 50000 <134 > 

51010 AN=IN(I—65 >:REM ANFANG DES SUCHBEREI 

CHES <164> 

51012 IZ=64 <200> 

51013 IF IN<I —IZ)=0 THEN IZ=IZ-l:GOTO 5101 

3 <086> 

51015 EN-IN(I-IZ)—1:REM ENDE DES SUCHBEREI 

CHES <070> 

51016 IF AN“0 THEN GOSUB 51500:UD=0:GOTO 5 

0000 <249> 

51020 SZ“ 197: N= I NT ( LOG (EN-AN+1) /LOG ( 2 ) > +1 

:REM MAXIMAL-FORMEL <121> 

51030 SA=AN-l+(2fN)/2:REM MITTE DER GES.DA 

T <073> 

51040 GOSUB 52100:REM A* LESEN <234> 

51050 N“N—1 : REM 1. ABFRAGE <045p 

51060 : <235> 

51070 REM SU* MIT A* VERGLEICHEN- <042> 

51080 : IF LEN tau*)<3 THEN 51110 <140> 

51090 : IF WA=1 AND SU*=LEFT*(A*,LEN(SU*)) 

THEN VE=WC:GOTO 51300 <157> 

51100 : IF WA<>3 OR SU*<>RIGHT*(A*,LEN(SU* 

>)THEN 51110 <161> 

51102 : IF UD=1 OR UD“2 THEN UD=3:O1=0:O2 

=0 <042> 

51104 : IF 01=0 THEN 01=WC:0M“01:GOTO 51 

300 <133> 

51105 : IF 02=0 THEN 02=*WC: 0M=01:GOTO 51 

300 <170> 

51110 : IF WA=2 AND SU*-A* 

THEN RI“WC:GOTO 51300 <140> 

51115 : IF WA=S AND SU*=A* 

THEN AD“WC:GOTO 51300 <247> 

51120 : IF WA=1 AND SU*“A* 

THEN VE*WC:GOTO 51300 <017> 

51125 : IF WA“4 AND SU*=A* 

THEN 51300 <204> 

51130 : IF SU*<A*THEN SA“SA-(2t(N-l)>:GOSU 

B 52100:GOTO 51160 <015> 

51140 : IF SA+(2t(N-l>)>SA+EN-AN AND N>-1 
THEN N“N-1:GOTO 51140:REM ''UEBERLAU 
F *• <204> 

51150 : SA“SA+(2t(N-l>):GOSUB 52100:REM *’ 

HALBIEREN'' <141> 

51160 : <079> 

51170 :N“N—1 :REM NAECHST. HALBIEREN <068> 

51180 tIF N<0 THEN GOSUB 51500:UD=0:GOTO 5 

0000 < 201 > 

51190 REM PRINT"SA*";SA;" N=";N 

:REM UNNOETIG !! <216> 

51200 :GOTO 51060:REM NAECHST. SUCH-VERS. <192> 

51300 REM NAECHSTES WORT <027> 

51310 ZA=ZB+1 <254> 

51320 IF MID*(BE*,ZA,1>■""THEN 50530 <12B> 

51330 IF MID*(BE*,ZA,1)”" "THEN ZA=ZA+1:G0 

TO 51330 <207> 

51350 GOTO 50530 <131> 


51500 REM ICH KENNE SU* NICHT 


<232> 

51501 : <168> 

51510 I“INT(3*RND(1>)+l <080> 

51520 ON I GOTO 51530,51540,51550 <173> 

51530 X*=""+"JCH KENNE DAS HORT •“+SU*+"' 

NICHT.“:GOTO 52000 <011> 

51540 XS“"" + "»)S HORT ‘"+SU*+“• IST MIR NI 

CHT BEKANNT.GOTO 52000 <122> 

51550 X*=""+"3EUTSCH IST LEIDER NUR MEINE 

ZWEITE SPRACHE. ICH KENNE DAS " <167> 

51555 X*“X*+"MDRT '"+SU*+“• NICHT.GOTO 5 

2000 <158> 

52000 REM FORMATIERTE TEXTAUSGABE - 


< 120 > 

52010 IF X*“""THEN 52090 <213> 

52020 IF LEN(X*)<40 THEN PRINT X*:GOTO 520 

90 <248> 

52030 IF LEN(X#)“40 THEN PRINT X*j:BOTO 52 

090 <148> 

52040 I*“LEFT*(X*,41):IC-0:FOR 1-1 TO LEN( 

I*):IF MID*(I*,I,1)“" "THEN IC“I <242> 

52050 NEXT I:IF IC“0 THEN PRINT XS:GOTO 52 

090 <064> 

52060 I*“LEFT*(I*,IC—1)JIF LEN(I*>=40 THEN 

PRINT 1*5 <046> 

52070 IF LEN(I*)<40 THEN PRINT I* <116> 

52080 X*“RIGHT*(X#,LEN(X*)—IC):GOTO 52010 <206> 

52090 RETURN <075> 

52100 REM SATZ-TEILBEREICH LESEN - 


<254 > 

52101 : <004> 

52110 HBX=SA/256:LBX=SA-HBX«256 <241 > 

52112 PRINTW15,“P";CHR#(3);CHR*(LBX);CHR#( 

HBX);CHR*(1) <170> 

52114 INPUT#15,A:IF A=50 THEN PRINT"SATZNU 

MMER ZU HOCH" <245> 

52120 IF A=50 THEN RETURN <165> 

«jHiiä INPUT#1,A* < 199> 

52140 WA=VAL(MID*(A*,22,1)) <030> 

52150 WC=VAL(MID*(A*,23,3)) <0B9> 

52160 A*=LEFT*(A#,21) <202> 

52170 IF RIGHT*(A#,1)<RIGHT>"THEN A*=LEF 

T*(A*,LEN(A*)-1):GOTO 52170 <154> 

52180 RETURN <165> 

53000 REM UP - TITELLINE - 


< 170> 

53001 : <144> 
53010 II*“"<37SPACE >":T*“"" <253> 
53020 T*=T*+CHR*(18)+R*:I*=STR*(SC)+"/“+RI 

GHT*(STR*(MO),LEN(STR*(MO)>-1) <159> 
53030 T#=T*+RIGHT*(I1#,41—LEN(T#)—LEN(I*>) 

+I*+CHR*(146):PRINT"(HOMEV;T#; <240> 
53040 PRINT"122D0WN>" 5 :RETURN <073> 
53200 REM UP - DISK EINLEGEN- 


<023> 

53201 : <08B> 

53205 IF IC“21 THEN GOSUB 53700:REM WEITER <136> 
53210 PRINT"(RVSONiaiTTE SISK-SEITE";SIDE; 

"<LEFT,SPACE >EINLEGEN !<RVOFF >";:POK 
E 198,0:WAIT 198,1 <119> 

53220 PRINT"(29LEFT,29SPACE>"J <121> 

53221 PRINT"<29LEFT >"5 <122> 

53222 OPEN 2,8,2,:PRINT#15,"Ul 2 0 18 0 

":PRINT#15,"B-P"5 2;162:GET#2,I* <037> 

53224 CLOSE 2:IF SIDE<>VAL(I*)THEN 53200 <046> 

53225 IF SIDE-2 THEN OPEN 1,8,3."TEXTE" <103> 

53230 RETURN <199> 

53400 REM ZEIGER POSTIONIEREN - 


<108> 

53401 : <034> 

53420 HB7.=SA/256: LB7.“SA-HB7.*256: PRINT#15, " 

P";CHR*(3)5 CHR*(LBX);CHR*(HBX);CHR*( 

1) <027> 

53430 INPUT#15,IA:IF IA=50 THEN PRINT"SATZ 

NUMMER ZU HOCH" <222> 

53440 RETURN <155> 
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Listing 1. Ein »Adventure-Programmier-Gerüst« (Fortsetzung) 


540B3 IF DBCDOZN QR 0A (I > < >3 OR OX(I><>0 
THEN 540BB 

54084 SA-OS(I)sBOSUB 53400:GOSUB 53500:OB* 


<252> 


53500 REM SATZ EINLESEN 



— 

<223> 

53501 

s , 

< 134> 

53510 

IF A=50 THEN 53520 

< 148> 

53512 

INPUT#1,IS 

<05B> 

53515 

ZW—ZW+1:IF ZW>23 THEN 

BOSUB 53700:ZW 


=0 

<010> 

53520 

RETURN 

<237> 

53600 

REM TEXT-EINLESEN - 



— < 121 > 

53601 : <236> 

53610 IF SIDE02 THEN SIDE-2:BOSUB 53200 <0B0> 

53620 GOSUB 53400:REM POSITONIEREN <165> 

53630 GOSUB 53500:REM I* EINLESEN <068> 

53640 IF RIGHT*(IS,1><>"*"THEN 53660 <056> 

53650 :IF I»<>“*“THEN PRINT LEFT*(I*,LEN(I 

*>-l> <118> 

53652 :SA=0:RETURN <21B> 

53660 IF LEN (I*)<40 THEN PRINT I* <182> 

53670 IF LEN(I*)>=40 THEN PRINT IS; <144> 

53680 SA=SA+1 <021> 

53695 GOTO 53630 <014> 

53700 REM WEITER - 


< 152> 

53701 : <0B0> 

53705 PRINT“CWEITERJ";:POKE 198,0:WAIT 198 

,1:PRINT“(BLEFT,8SPACE,4LEFT,UP > <183 > 

53710 RETURN <171> 

53800 REM KOMMENTAR LESEN - 


<213> 

53B01 : <1B2> 

53805 ZW=1 <070> 

53810 PRINT:GOSUB 53600:RETURN <095> 

53900 REM TEXTFORMER- <007> 

53901 : <026> 

53902 IF X*<>‘ ,H THEN PRINT <047> 

53905 IF X*=“"THEN 53945 <230> 

53910 IF LEN(X*)<40 THEN PRINT X*:GOTO 539 

<5 <004> 

53915 IF LEN(X*)=40 THEN PRINT XS;:GOTO 53 

945 <055> 

53920 IS=LEFTS(XS,41):IC=0:FOR 1=1 TO LEN( 

I*):IF MID*(I*,I,1)=" "THEN IC=I <088> 

53925 NEXT I:IF IC=0 THEN PRINT X*:GOTO 53 

945 <239> 

53930 I*=LEFT*<I*,IC—1):IF LEN(I*)=40 THEN 

PRINT I*; <138> 

53935 IF LEN(I*)<40 THEN PRINT I* <203> 

53940 XS—RIGHTS(XS,LEN(XS)—IC):GOTO 53905 <237> 

53945 RETURN <152> 

53950 REM ARTIKEL-WANDLER- <116> 

53951 : <076> 

53952 II*=LEFT* <0B*,3) <206> 

53955 IF 1IS< >"3ER"AND 11*< >"^S"THEN 5396 

5 <133> 

53960 X*="”:X*="mER LIEGT EIN"+RIGHT*(OB* 

»LEN(OB*)—3)" <095> 

53965 IF I1*0“SIE"THEN 53970 <035> 

53966 X*»"":X*="ÜIER LIEGT EINE"+RIGHT*(OB 

S(I>,LEN(0BS)-3>+“.“ <045> 

53970 GOTO 53905 <070> 

54000 REM RAUMTEXT-EINLESEN - 


<055> 

54001 : <126> 

54020 PRINT:FOR 1=1 TO OZ :REM OB.TAB. <187> 

54030 : IF OBUIOZN THEN 54080 <170> 

54035 iIF OXIIKl THEN 540B0 :REM NAMELOS <186> 

54040 :SA=DX (I>:GOSUB 53400 :REM POSIT. <071> 

54050 :IF OA <I)=1 THEN GOSUB 53500:R*=I* 

:REM READ I», TITELLINE <035> 

54060 : IF WI(ZN) = 1 AND VEOll AND 0A(I> = 1 

THEN PRINT R*:SA=0:GOTO 54080 <062> 

54070 :GOSUB 53600 :REM LESEN <009> 

54080 NEXT I <059> 

54081 FOR 1=1 TO OZ <179> 


="a"+RIGHT*(I*,LEN(I*)-l> <250> 
54085 X*="ÜIER LIEGT “+OBS+".":ZW-ZW+1:GOS 

UB 53950 <045> 
540B8 NEXT I <067> 
54095 WI(ZN)=1:PRINT:RETURN <205> 
60000 REM TABELLEN EINLESEN- 


60001 

63000 

63005 

63010 

63015 

63020 

63025 

63030 

63035 


REM ***************************** 
REM * MINI-TEXTEDITOR V.II1.4 * 

REM * <C> 1985 * 

REM * VON MICHAEL NICKLES * 

REM ***************************** 
REM ANFANGSMENUE - 


63040 

63045 

63050 

63055 

63060 

63065 

63070 

63075 

63080 

63085 

63090 

63095 

63100 

63105 

63110 

631.15 

63120 

63125 

63130 

63135 

63140 

63145 

63150 

63155 

63160 

63165 

63170 


'(CLR>“;:GOTO 630 
' <CLR>";:MQ=1:GOT 


POKE 198,0:1NPUT"(2D0WN >DATEINAME <2S 
PACE > * (3LEFT >"$ DS:POKE 198,0 
INPUT"SATZLAENGE <2SPACE)40(4LEFT>“;S 
LtIF SL<1 OR SL>254 THEN PRINT"GEHT 
NICHT !": GOTO 30 
OPEN 15,8,15 

PRINT#15,"I0":OPEN 1,8,3,DS:PRINT 

REM ZWISCHENMENUE - 

PRINT"(RVSONJS / L / ENDE(28SPACE,RV 
OFF>"| 

GET IS:IF IS=""THEN 63060 

IF IS="E"THEN PRINT"<CLR>";tGOTO 632 

65 

IF ISO"S"AND ISO"L"THEN 63060 
INPUT"SATZNR";SA:IF SA<0 OR SA>63000 
THEN 63070 
IF IS="L“THEN PRINT' 

95 

IF IS="S"THEN PRINT’ 

O 63150 
GOTO 63050 

REM LESEN - 

:PRINT"(CLR,RVSQN >";SA;"(LEFTJ—";STR 
: (SA+20);"(SPACE,RVOFF >" 

:A=SA 

FOR SA=IA TO IA+20 
: GOSUB 63195:GOSUB 63220 
: IF A=50 THEN SA=IA+21: GOTO 63135 
: IF LEN<AS)<40 THEN PRINT AS 
: IF LEN(AS)>=40 THEN PRINT AS; 

NEXT:PRINT 

IF A=50 THEN PR INT“SATZNUMMER ZU HOC 
H! " 

GOTO 63050 

REM SCHREIBEN - 

PRINT"EINGABESATZ(2SPACE>//-KEINE EI 
NGABE" 

BOSUB 63195:REM POSITIONIEREN 
IF A=50 THEN PR INT "SAT ZNUMMER ZU HOC 
H!“:GOTO 63050:REM FEHLERKANALABFR. 
GOSUB 63330:AS-BES 

:REM INPUT-ROUT. 


<092> 
<030 > 
<017> 
<071 > 
< 190> 
<230> 
<037> 
<066> 

<094> 


< 211 > 
<203> 
< 200 > 
<219> 

<014> 

<252> 

<043> 

< 137> 

<050> 

< 222 > 

<126> 

< 212 > 

<046> 

<030> 

< 130> 
<040> 
<042> 
<049> 
<0B9> 
<252> 
< 000 > 

< 120 > 
< 011 > 

< 138> 

<185> 

< 146> 

<009> 

<208> 


63175 IF AS™“//"THEN MO=0:QOTO 63050:REM E 


NDE <157> 
63180 GOSUB 63240:REM AS SCHREIBEN <131> 
63185 SA-SA+1 :REM NAECHSTER SATZ <149> 
63190 GOTO 63160:REM NEXT (LOOP) <010> 
63195 REM POSITIONIEREN **************** <220> 
63200 HB7.=SA/256:LB7.=SA-HB7.*256 <153> 
63205 PRINT#15,"P";CHRS(3);CHRS(LBX);CHRS( 

HB7.);CHRS(1> <0B5> 
63210 INPUT#15,A <154) 
63215 RETURN <022) 
63220 REM SATZ EINLESEN **************** <057> 
63225 IF A=50 THEN RETURN <092> 
63230 INPUT#1,AS <121> 
63235 RETURN <044> 
63240 REM SATZ SCHREIBEN *************** <043> 
63245 IF A=50 THEN RETURN <114> 
63250 IF AS=""THEN AS=":":REM ZUR SICHERHE 

IT !!! <141> 
63255 PRINT#1,AS <228> 
63260 RETURN <069> 
63265 REM BEENDEN ********************** <107> 
63270 CLOSE 1 <032> 
63275 CLOSE 15 <120> 
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63280 PRINT "++ ENDE ++” <026> 

63285 END <038> 

63290 REM KORREKTUR-ROUTINE- <069> 

63295 FOR 1=0 TO LEN(BE*):PRINT CHR*(20);: 

NEXT IIBE*="" <123> 

63300 SA-SA+SC : REM TEXTZEIGER <015> 

63305 IF SA<0 THEN SA=0 : REM SPERRE <117> 

63310 GOSUB 63195: REM POSITIONIEREN <042> 

63315 IF A=50 THEN SA=SA—SC:GOTO 63310 <132> 

63320 INPUT#1,A* <213> 

63325 RETURN <134> 

63330 REM TEXTEINGABE- <248> 

63335 IF AR=1 THEN AR=0:A*="CRVSONISATZNUM 

MER ZU HOCH f tRVOFF > " :GOTO 63345 <104> 

63340 GOSUB 63195:GOSUB 63220 <190> 

63345 PRINT"{HOME,40SPACE>"j:PRINT"{HOME,R 

VSON1SATZ";SA;"CRVOFFJ" <042> 

63350 PRINT"<40SPACE,UP>";A* <203> 

63355 PRIN^TTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 

63360 PRINT"<DOWN>" <059> 

63365 BE*="":POKE 19B,0:POKE 211,0:POKE 21 

4,22:SYS 58732: PRINT" C YELLOW >{?" ; <182> 


63370 GET X*:IF PEEK<203>=1 THEN 63430 <129> 
63375 IF PEEK <203)=7 AND PEEK(653)=0 THEN 

SC=1 : GOSUB 63290: GOTO 63330 <025> 
63380 IF PEEK(203)=7 AND PEEK(653)=1 THEN 

SC=-1 : GOSUB 63290: GOTO 63330 <162> 
63385 IF X*=""THEN 63370 <154> 
63390 IF LEN(BE*)=0 AND ASC(X*>=20 THEN 63 

370 <125> 
63395 I=ASC(X*):IF I<32 OR I>133 AND K159 

THEN IF 1020 THEN 63370 <155> 
63400 IF LEN (BE*) =SL AND 1020 THEN 63370 <147> 
63405 IF X*=" "THEN X*="<RIGHT>" <134> 
63410 BE*“BE*+X* <153> 
63415 PRINT CHR*(20);X*;"0"; <225> 
63420 IF 1=20 THEN BE*=LEFT*(BE*,LEN(BE*)- 

2):GOTO 63370 <058> 
63425 GOTO 63370 <005> 
63430 PRINT"CLEFT,SPACE>":GOSUB 63195 <025> 
63435 IF BE*=""THEN BE*=": U <146> 
63440 PRINT"<HOME,24D0WN)“:RETURN <122> 


Listing 1. Ein »Adventure-Programmier-Gerüst« (Schluß) 


Dokumentation 


3-4 Laden und Aktivieren des deutschen Zeichensatzes 
(muß sich ebenfalls auf der ersten Diskseite befinden!). 

5 Floppykanal öffnen. 

6 Disk Seite 2 einlegen! 

15 Ab 60000 stehen alle Tabellen wie der Wortschatz- 
Index. 

20 Anhand des Feldes Wl(1)-Wl(100) merkt sich das Pro¬ 
gramm, in welchem Raum der Spieler bereits war. 
Genau wie bei INFOCOM erhält der Spieler von Räu¬ 
men, in denen er bereits war, nur noch eine kurze 
Beschreibung. 


30 Zähler für Punktzahl und Anzahl der Befehlseingaben 
werden auf Null gesetzt. 

40 Der Titelvorspann des Spiels wird von der relativen 
Datei aufgerufen (SA ist dann meistens 1, da der Vor¬ 
spann meistens beim ersten Satz der Texte-Datei 
beginnt). 

50 Raumbeschreibung des ersten Zimmers ausgeben. 

50000-52180 Hier steht Parser 4.0. Allerdings sind 
einige kleine Sachen hinzugefügt. Kommt im Befehls¬ 
satz das Wort »Alles« vor, so wird der Variablen SP der 
Wert 1 zugeordnet. Kommt »Ausser« vor, so erhält die 
' iriable SQ den Wert 1. Dies ist nötig, damit wir auch 
Sätze wie zum Beispiel »NIMM ALLES AUSSER DEM 
SCHWERT« abhandeln können. 

53000-53040 Unterprogramm zum Einblenden einer 
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Statuszeile in der obersten Bildschirmzeile. Wie bei 
Infocom stehen in dieser Zeile der Name des Raumes, 
in dem man sich gerade befindet, sowie Punktzahl und 
Anzahl der Versuche. Dieses Unterprogramm wird 
innerhalb der erweiterten INPUT-Routine von Parser 
4.0 aufgerufen (Zeile 50011). 

53200-53230 Dieses Unterprogramm haben wir bereits 
im Kapitel Dateiverwaltung kennengelernt. Es dient 
dazu, festzustellen, ob die richtige Diskseite (Wert von 
Variable Sl) eingelegt ist. Ist Disk Seite 2 eingelegt, so 
öffnet das Unterprogramm außerdem automatisch die 
relative Datei »Texte«. 

Soll Disk Seite 1 eingelegt werden, so sagen Sie einfa¬ 
che SIDE=1:GOSUB53200. Der Rücksprung aus 
dem Unterprogramm erfolgt erst dann, wenn die ge¬ 
wünschte Seite eingelegt ist. 

53400-53440 Das altbekannte Unterprogramm zum 
Positionieren des Zeigers auf eine relative Datei. 

53500-53520 Dito, zum Einlesen eines Satzes (1$) aus 
einer relativen Datei. 

53600-53695 Ein Text aus der relativen Texte-Datei wird 
eingelesen. Beginnend ab Satz SA bis zu dem näch¬ 
sten Satz, der mit einem Sternchen endet. Wenn Sie 
also einen Text von der relativen Datei einiesen und auf 
dem Bildschirm ausgeben wollen, so ist ein 
SA = (1. Satz des Textes): GOSUB 53600 notwendig. 

53700-53710 Auf dem Bildschirm erscheint das Wort 
WEITER. Bei Tastendruck verschwindet es wieder, 
und das Unterprogramm wird mittels RETURN been¬ 
det. Dieses Unterprogramm wird zum Beispiel dann 
verwendet, wenn ein Text am Stück auf dem Bildschirm 
ausgegeben wird, der mehr als 25 Sätze enthält. Nach 
dem 24. Satz erscheint WEITER, damit dem Spieler 
genug Zeit zum Lesen bleibt und der Text nicht weg- 
scrollt. 

53800-53810 Dasselbe wie 53600-53695 nur, daß von 
der eigentlichen Textausgabe diesmal eine Leerzeile 
eingefügt wird. 

53900-53945 Der altbekannte Textformer, der den 
String X$ per word-wrapping auf dem Bildschirm aus¬ 
gibt. 

53950-53970 Die Gegenstände beziehungsweise trans¬ 
portablen Objekte sind in der Texte-Datei mit voranste¬ 
hendem Geschlechtsartikel - der, die oder das - 
gekennzeichnet. Am Ende der Raumbeschreibungen 
soll jedoch für zum Beispiel Schwert der Kommentar 
»Hier liegt ein Schwert« kommen. (Natürlich wieder 
analog zu Infocoms THERE IS A SWORD LYING 
HERE.) 

Die Artikelwandlung ist ganz einfach: 

Aus der beziehungsweise das wird EIN. Aus die wird 
EINE. 

54000-54095 Unterprogramm zum Einlesen eines Raum¬ 
textes. Das Einlesen eines Raumtextes ist nicht ganz 
so einfach wie das Einlesen eines gewöhnlichen Tex¬ 
tes, da sich ein Raumtext aus mehreren Einzelteilen 
zusammensetzt: 

- Zuerst wird der Haupt-Raumtextausgegeben. Das ist 
der Text, der sich nie ändert. 

- Dann werden Textteile ausgegeben, die sich ändern 
können. Ein Beispiel: Eine Tür, die bei der Beschrei¬ 
bung sowohl als offen als auch als geschlossen 
beschrieben werden kann. 

- Im Raum befindliche Gegenstände. Dies sind in der 
Regel Objekte, die transportiert werden können. In der 
Raumbeschreibung erscheinen diese Objekte dann 
als »Hier liegt ein...« etc. 

63000-63440 Hier steht eine Mini-Version des Relativen- 
Dateien-Editors. Er wird mittels GOSUB 63000 gestar¬ 


tet. Beim Schreiben eines Textadventures fallen einem 
stets neue Kommentare ein, die man der Texte-Datei 
zufügen muß. Es wäre viel zu umständlich, wegen 
jedem neuen Kommentar die aktuelle Arbeit zu spei¬ 
chern, dann den Relative-Datei-Editor laden etc. Daher 
steht am Ende des Gerüstes eine Mini-Version, mit der 
nur gelesen und geschrieben werden kann. Am Ende 
der Programmierung kann dieser Editor entfernt wer¬ 
den. 

Die Dokumentation ist an dieser Stelle noch nicht komplett. 

Sie müssen erst noch einige andere Dinge wissen. 

Spielablauf der ersten Szene 


So läuft die erste Spielszene ab: Der Spieler erwacht in der 
Glaskuppel. Er muß jetzt im Sand graben, um einen Zettel und 
ein Amulett zu finden. Anschließend gelangt er durch den 
Tunnel in eine Kristallgrotte, in der eine Statue steht. Im 
Marmorboden steckt ein Schwert, das sich nicht heraus¬ 
ziehen läßt. Der Spieler muß jetzt die Statue berühren, um 
sich in die Figur zu verwandeln, die die Statue darstellt. Er 
nimmt so den Körper eines jungen Kriegers an. Jetzt kann er 
mühelos das Schwert aus dem Boden ziehen. Dieses 
Herausziehen des Schwertes wirkt gleichzeitig wie ein 
Schlüssel: In der westlichen Wand tut sich eine Öffnung auf, 
die zu einem Felsplateau hinausführt. Dort beginnt die 
nächste Szene. 

Wir wollen jetzt gemeinsam das Gerüst um diese Szene 
ergänzen. Sie erfahren dabei gleichzeitig die Dokumentation 
zu den übrigen Gerüstteilen. 


60000 

REM TABELLEN EINLESEN — 







— 


<092> 

60001 

: 


<030> 

60100 

REM WORTSCHATZ-INDEX - 


<213> 

60110 

DIM IN(26) 


< 192> 

60120 

FOR 1=0 TO 26:READ IN<I> 

NEXT I 

< 181 > 

60130 

DATA 1,4,0,29,32,48,53,64,72,0,74,82 



,0,88,96,100,107,109,124 

,160,167 

<214> 

60140 

DATA 170,190,0,0,201 


<188> 

60150 

DATA 211 : REM BUCHSTABE 

NACH Z ! 

< 122> 

60200 

REM OBJEKT-TABELLE - 


<0B7> 

60210 

0Z=13:REM ANZAHL DER OBJEKTE 

< 133> 

60220 

DIM OB(OZ),OX(OZ),OACOZ) 

,OU(OZ) ,OSCO 



Z) 


< 103> 

60230 

FOR 1=1 TO OZ 


<232> 

60240 

: READ OB(I),OX <I),OA(I) 

OU(I),OS(I> 

<003> 

60250 

NEXT I 


< 133> 

60260 

DATA 1,24 ,1,24 ,164:REM 

GLASKUPPEL 

<1B3> 

60262 

DATA 1,0 ,2,95 ,165:REM 

SAND 

< 198> 

60264 

DATA 2,34 ,1,34 ,166:REM 

TUNNEL 

<039> 

60266 

DATA 3,43 ,1,43 ,167:REM 

KR.GROTTE 

<066> 

6026B 

DATA 3,102,2,0 ,168:REM 

QUADER 

< 167> 

60270 

DATA 3,0 ,2, 113, 169: REM 

STATUE 

<177> 

60272 

DATA 3,106,0,0 ,170:REM 

SCHWERT 

< 131 > 

60274 

DATA 0,0 ,3,79 ,171:REM 

ZETTEL 

<127> 

60276 

DATA 0,0 ,3,B7 ,172:REM 

AMULETT 

<092> 

60278 

DATA 0,76 ,2,91 ,173:REM 

GRUBE 

<09B> 

60279 

DATA 0,161,2,0 ,174:REM 

OEFFNUNG 

< 127> 

60280 

DATA 4,54 ,1,54 ,175:REM 

FELSPLAT. 

< 123> 

602B2 

DATA 3,0 ,2,97 ,176:REM 

KRISTALLE 

<037> 

60500 

REM LANDKARTE - 

— 

<047> 

60501 

: 


<022> 

60510 

DIM MAP(4,10) 


<148> 

60520 

FOR 1=1 TO 4 


<037> 

60530 

: FOR 11=1 TO 10 


<003> 

60540 

: READ MAP(1,11) 


< 126> 

60550 

: NEXT 11 


<021 > 

60560 

NEXT I 


< 189> 

60570 

DATA 2,0,0,0,0,0,0,0,0,0 


<042> 

60572 

DATA 3,1,0,0,0,0,0,0,0,0 


<0B4> 

60574 

DATA 0,2,0,0,0,0,0,0,0,0 


<094> 

60576 

DATA 0,0,0,3,0,0,0,0,0,0 


<03B> 

60600 

RETURN 


<203> 

Listing 2. Ergänzung zu Listing 1 
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Zunächst müssen ab Zeile 60000 die Tabellen fertiggestellt 
werden, die im Rahmen von Gordon Saga II benötigt werden: 
die Wortschatz-Index-Tabelle, die Landkarte und die Objekt- 
Logik-Tabelle. Bitte ergänzen Sie das bisherige Gerüst- 
Programm um die Zeilen aus Listing 2. 

Anlegen der Tabellen 

Auf den Wortschatz-Index brauche ich nicht lange einzuge¬ 
hen. Es ist der Index des modifizierten Wortschatzes - 
erstellt mit dem Index-Maker-Programm und anschließend in 
Data-Zeilen abgelegt. Anders bei der Objekttabelle. Die 
Objekttabelle ist das wichtigste am ganzen Programm. Zu 
jedem der Objekte sind mehrere Daten gespeichert. Diese 
Daten sind in den Feldern OB(), OX(), OA(), OU() und OS() 
untergebracht. Was geben diese einzelnen Felder an? 
Betrachten wir sie am besten einmal im einzelnen: 

In der Variablen OZ ist die Anzahl der Objekte gespeichert. 
OB(1)-OB(Z): OB(X) gibt an, in welchem Raum sich Objekt 
X befindet. Der Wert OB(X) ist immer dann größer Null, 
wenn sich das Objekt X in einem Raum befindet. 

Ist OB(X) = 0, so heißt dies, daß das Objekt X nicht 
bzw. nicht mehr vorhanden ist. 

Ist OB(X) kleiner als Null, so befindet sich das Objekt 
irgendwo anders als in einem Zimmer. Zum Beispiel im 
Besitz des Spielers -OB(X)=-1. Soll das Objekt in 
einem Schrank liegen, so kann man ihm eine für den 
Schrank spezifische negative Zahl zuordnen und so 
weiter. 

OX(1)-OX(OZ): OX(X) gibt an, ab welchem Satz der relativen 
Datei der Beschreibungs-Text zu Objekt X steht. Ist 
OX(X)=0, so heißt dies, daß das Objekt X bei der 
Raumbeschreibung nicht anhand eines Textes erläu¬ 
tert wird. 

OA(1)-OA(OZ): OA(OZ) gibt an, um welche Art von Objektes 
sich bei Objekt X handelt. Es gibt folgende Werte: 

1. Das Objekt ist ein Raum (zum Beispiel Tunnel). 

2. Das Objekt befindet sich im Raum und kann nicht 
transportiert werden (zum Beispiel Öffnung in der 
Wand). 

3. Das Objekt kann transportiert werden vom Spieler 
(zum Beispiel Schwert). 

OU(1)-OU(OZ): OU(OZ) zeigt auf den ersten Satz des Kom¬ 
mentars in derTexte-Datei, der ausgegeben wird, wenn 
das Objekt untersucht wird. Wird ein Objekt unter¬ 
sucht, dessen OU(X)-Wert gleich 0 ist, so erfolgt der 
Kommentar »DAS OBJEKT X HAT KEINE BESONDE¬ 
REN MERKMALE.« 

OS(1)-OS(OZ): OS(X) gibt an, in welchem Satz der Texte- 
Datei der Objektname von Objekt X gespeichert ist 
(Beispiel: die Glaskuppel = 164). 

Die Objekttabelle steht nur bei der Entwicklung des 
Programmes in DATA-Zeilen. Sie wird später entweder als 
SEQ-File geladen oder als PRG-File geladen und irgendwo 
im RAM mit entsprechender Verwaltung untergebracht. 
Durch geschicktes Manipulieren der Objekttabelle ist es 
leicht, dem Adventure Intelligenz zu verleihen: Das Pro¬ 
gramm lacht den Spieler aus, wenn er auf die unsinnige Idee 
kommt, einen Raum wie den Tunnel nehmen zu wollen. Will 
der Spieler eine lebende Person nehmen (OA-Wert könnte 
zum Beispiel mit 4 definiert werden), so kann sich der Analy¬ 
seteil des Adventures mit »ICH GLAUBE KAUM, DASS SICH 
DIE PERSON X SO OHNE WEITERES NEHMEN LÄSST« etc. 

Nehmen wir einmal an, der Spieler will Objekt X nehmen - 
also BES=»NIMM OBJEKT X«. 

Das Programm kann nun verschiedenes überprüfen und so 
feststellen, ob der Spieler Objekt X überhaupt nehmen kann. 

Erweist sich OB(X) als -1, so meldet sich das Adventure mit 
»SIE HABEN OBJEKT X BEREITS«. 


Kristallgrotte 0/5 

Kristallgrotte 

Dies ist eine riesige Grotte, deren Wände 
mit Kristallen, die in allen Farben des 
Lichtspektrums glitzern, besetzt sind. 

Der Boden besteht aus glatten, strahlend 
weißen Marmorplatten. Trotz zahlreichen 
Unebenheiten ähnelt diese Grotte dem 
Inneren einer Halbkugel mit einem Radius 
von ca. 100 Metern. Der einzige Ausgang 
von hier ist ein in südliche Richtung 
verlaufender Tunnel. 

Auf dem Marmorboden, exakt im Zentrum 
des Raumes, steht ein goldener Quader, 
von dem eine ca. drei Meter hohe Statue 
emporragt. 

Nur wenige Meter von der Statue entfernt 
steckt ein goldenes Schwert zu etwa 
einem Drittel seiner Gesamtlänge im 
Marmorboden. 

Hier liegt ein Zettel. 

Hier liegt ein Amulett. 


Bild 2. Aufteilung der Raumbeschreibung 


onc 


IST OB(X) ungleich ZN (der aktuelle Raum), so erfolgt der 
Kommentar »OBJEKT X IST HIER NICHT ZU SEHEN«. Außer¬ 
dem läßt das Programm nur zu, Objekte zu nehmen, deren 
OA-Wert = 3 ist (also transportables Objekt beziehungs¬ 
weise Gegenstand). 

Mit H en 5 Objekttabellen kann also jedes Objekt exakt 
analysiert werden. Ein Beispiel: Die Statue hat folgende 
Werte: 

OB(6)=3: Das heißt, die Statue steht im Raum 3. 

OX(6)=0: Das heißt, die Statue wird in der Raumbeschrei¬ 
bung nicht mehr besonders erwähnt. Sie kommt schließlich 
bereits in der Beschreibung des Quaders, auf dem sie steht, 
vor. 

OA(6) = 2: Das heißt, die Statue ist ein feststehendes 
Objekt und kann daher auch nicht transportiert werden. 

OU(6)=113: Ab Satz 113 steht der Kommentar für die 
Untersuchung der Statue. 

OS(6) = 164: In diesem Satz der Texte-Datei steht der 
Objektname der Statue - die Statue. 

Ganz klar wird Ihnen die Objekttabelle allerdings erst dann 
werden, wenn Sie sich mit der Abhandlung der Objekte im 
Programm selbst vertraut gemacht haben. 

Zunächst möchte ich Ihnen jedoch noch einmal ganz 
genau zeigen, wie sich eine Raumbeschreibung zusammen¬ 
setzt. Bild 2 zeigt die Raumbeschreibung der Kristallgrotte, 
nachdem man dort noch zwei transportable Gegenstände 
verloren hat. 

I Dies ist die Statuszeile. Sie ist ständig zu sehen und 
gibt an, in welchem Raum man sich gerade befindet, die 
bisher erzielte Punktzahl und die Anzahl der Spielzüge, 
die man bisher gemacht hat. 

II In diesem Bereich steht die Hauptraumbeschreibung - 
also die Beschreibung, die sich während des gesam¬ 
ten Verlaufs des Spieles nicht ändert. 

III Hier sind alle Objekte aufgeführt, die sich zwar verän¬ 
dern können, jedoch (zumindest im Moment) nicht vom 
Spieler transportiert werden können. Der OA-Wert die¬ 
ser Objekte beziehungsweise Beschreibungen ist 2. 
Der OA-Wert von Gegenständen (=transportable 
Objekte) ist in der Regel 0. Hier gibt es jedoch eine 
Ausnahme: Es ist möglich, ein solches Objekt bei sei- 
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nem ersten Auftreten ausführlicher zu beschreiben als 
mit HIER LIEGT EIN... Wird das Objekt jedoch genom¬ 
men, so wird innerhalb der NIMM-Routine sein OA- 
Wert für immer auf Null gesetzt. Wird es wieder ver¬ 
loren, so taucht es in der Raumbeschreibung an¬ 
schließend mit der Beschreibung HIER LIEGT EIN ... 
auf. 

IV Ganz am Ende der Raumbeschreibung werden die 
Objekte aufgeführt, die dort vom Spieler verloren wor¬ 
den sind beziehungsweise bei denen es sich um 
Gegenstände handelt, deren OA-Wert von vorneherein 
Oist. 

Das Unterprogramm zur Erzeugung der Raumbeschrei¬ 
bung steht im Programm ab Zeile 54000. Vergleichen Sie 
doch mal die obige Theorie mit diesem Programmteil - dann 
gewinnen Sie am schnellsten den Durchblick! 

Die nächste Tabelle, die definiert wird, ist die Landkarte, die 
als Feld MAP(N,10) angelegt ist, wobei N für die Anzahl der 
Räume steht. In dieser Tabelle ist eingetragen, welche 
Verbindungen zwischen den einzelnen Räumen existieren. 
Dabei werden allerdings nur die stets bestehenden Ver¬ 
bindungen eingetragen, die nicht erst geschaffen werden 
müssen (zum Beispiel durch das Öffnen einer Tür mit 
einem Schlüssel). Die Richtungen stehen so: N,S,W,0,NW, 
NO,SW,SO, rauf, runter - also MAP(N,1) für wohin es nach 
Norden geht und MAP(N,10) für Süden. Eine nicht existente 
Verbindung hat den Wert 0. 

Beispiel: Ist M AP(3,3)=4, so heißt dies, daß man von Raum 
3 nach Westen gehen kann, um zu Raum 4 zu gelangen. 

Analyseteil 


Wie schon beim ersten Adventure-Kurs unterscheiden wir 
auch diesmal zwei Arten von Action: allgemeine und raum¬ 
spezifische Action. 

Allgemeine Action sind Handlungen, die man in jedem 
Raum, jederzeit ausführen kann - zum Beispiel Objekte 
untersuchen, Sachen nehmen, verlieren, Inventur etc. 

Raumspezifische Action hingegen sind Handlungen, die 
man nur in bestimmten Räumen ausführen kann. »Berühre 
Statue« hat nur in dem Raum einen Effekt, in dem die Statue 
steht. 

Im Programm steht die allgemeine Action in den Zeilen 
300-800, die raumspezifische Action ab Zeile 2000. 

Beim Gerüst sind in den Zeilen 300 - 700 bisher nur die 
Routinen untergebracht, die bei jedem Adventure unentbehr¬ 
lich sind: GEH-Routine, NIMM-Routine, INVENTUR-Routine, 
VERLIER-Routine, UNTERSUCHE-Routine. 

Ich verzichte an dieser Stelle bewußt auf eine genaue 
Dokumentation dieser Programmteile: Die Routinen sind sau¬ 
ber programmiert, und es sollte Ihnen keine Schwierigkeiten 
bereiten, sie selbst zu analysieren, wenn Sie bisher aufmerk¬ 
sam mitgearbeitet haben! 

Wenn Sie das bisherige Programm um die folgenden weni¬ 
gen Zeilen ergänzen, haben Sie die erste Szene von Gordon 
Saga Teil II komplett im Computer, da diese Zeilen die noch 
fehlende raumspezifische Action darstellen. 

800-900 Hier ist bei der allgemeinen Action noch eine 
kleine Routine eingefügt, mit der man den Brief lesen 
kann, der in Gordon Saga Teil 2 gefunden wird. Diese 
Routine habe ich erst jetzt beigefügt, da sie zwar zur 
allgemeinen Action zählt (man kann einen Brief überall 
lesen - nicht raumabhängige Action), aber nicht für 
jedes Adventure benötigt wird. 

2100-2130 Hier steht die raumspezifische Action zur Glas¬ 
kuppel. 

2110 Hier wird festgestellt, ob der Spieler im Sand graben 
will: ist Verb = 15 (graben) und Objekt = 2 (Sand)? 


80(9 REM LESEN- <182> 

BB5 Ir VE016 THEN 900 <198> 
810 IF Öl=*8 AND OB <81=—1 THEN SB=80 <05<£>> 
900 . <114> 
2000 REM fiAUMSPEZIF ISCHE ACT ION- 


<056> 

2010 ON ZN GOTO 2100,2200,2300,2400 <139> 

2100 REM GLASKUPPEL <069> 

2110 IF VEOIS OR 0102 THEN 2120 <005> 

2115 IF PA (0X3 THEN SB=71: PA (0) =PA (0) +1 <114> 

2117 IF PA<01»2 THEN SB=73sOB(8)=ZN:OB<9>= 

ZN:OB(10)=1 <035> 

2119 IF PA(0)—3 THEN SB-72 <112> 

2120 IF VE-1 AND 01=3 THEN RI=l:GOTO 300 <245> 

2130 GOTO 100 <026> 

2200 REM TUNNEL <039> 

2210 GOTO 100 <106> 

2300 REM KRISTALLGROTTE <198> 

2305 IF VE=17 AND 01=6 AND OU<61=113 THEN 

SB—119:OU(6)=135:GOTD 2307 <081> 

2306 IF VE=17 AND 01=6 AND OU<61=135 THEN 

PRINT"£S PASSIERT NICHTS." <032> 

2307 IF VE<>12 OR 0107 THEN 2310 <010> 

2308 IF OU <61=113 THEN SB=110 <202> 

2309 IF OU <61 = 135 THEN SB=139:OA<71=3:OB<7 

1=—1:OB <111=3:MAP(3,3)=4:OX <71=0 <152> 

2310 IF VE=1 AND 01=3 THEN RI=3:G0T0 300 <183> 

2320 GOTO 100 <218> 

2400 REM FELSPLATEAU <194> 

2410 GOTO 100 <052> 


Listing 3. Damit ist Gordon Saga II komplett 


Gräbt der Spieler zum ersten Mal, so wird der Varia¬ 
blen SB der Wert 71 gesetzt (Zeiger auf Satz: Sie gra- 
Ko n in dem Sand.). 

n i Zeile 110 wird der Wert der Variablen SB abgefragt. 
Ist SB ungleich Null, so wird in der Texte-Datei der 
Kommentar ausgelesen, der ab Satz SB bis zum 
nächsten Sternchen steht. SB wird sodann auf 0 
gesetzt. Mittels SB werden also Kommentare aus der 
Texte-Datei abgerufen. 

2117 Zweites Graben. Der Spieler findet ein Amulett und 
einen Zettel. Diesen beiden Objekten wird jetzt der 
OB-Wert der Zimmernummer ZN zugeordnet, da 
diese beiden Objekte gefunden sind und von nun an 
im Spiel enthalten sind. 

Außerdem wird der OB-Wert der Grube auf ZN 
gesetzt. Dadurch wird die Grube das nächste Mal in 
der Raumbeschreibung erwähnt, wenn der Spieler 
Raum 1 untersucht: Es scheint so, als ob hier jemand 
vor kurzem gegraben hat.Durch solche Action wer¬ 

den die Raumbeschreibungen variabel - das Adven¬ 
ture gewinnt an »Leben«. 

2119 Versucht der Spieler ein drittes Mal zu graben, so 
erfolgt der Kommentar, daß weiteres Graben sinnlos 
ist. 

2120 Wenn Verb=geh und Objekt=Tunnel, dann ist dies 
gleichbedeutend mit der Befehlseingabe »Norden«, 
da man von der Glaskuppel nach Norden gehen muß, 
um in den Tunnel zu gelangen. Also einfach die Rl- 
Variable auf Norden setzen - Rl=1 - und Sprung zur 
GEH-Routine (GOTO 300). 

2200 Im Tunnel kommt keine raumspezifische Action vor. 

2300-2320 Raumspezifische Action der Kristallgrotte. 

2305 Wenn Verb=berühre und Objekt=Statue then Kom¬ 
mentar ab Zeile 119: Die Statue hat jetzt die Form des 
Spielers angenommen. Beim Untersuchen derselben 
muß also ein anderer Kommentar als bisher erschei¬ 
nen. Also OU(6) = 135. 

Sie sehen schon: Mit Hilfe der einzelnen Objekt- und 
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Wortschatz-Tabellen läßt sich die raumspezifische Action 
nahezu in Klartext übersetzen. 

Damit wäre ich mit meinen Erklärungen auch schon am 
Ende. Die restlichen Action-Szenen können Sie leicht selbst 
deuten. Adventure-Programmierung ist ein sehr komplizier¬ 
tes Gebiet. Ich bin mir sicher, daß einige von Ihnen bereits 
jetzt Ideen haben, wo sich hier und da noch so manches ver¬ 
bessern läßt. 

Vielleicht haben Sie auch schon die Idee zu Parser 6.0 - 
dem NON-PLUS-ULTRA-Parser im Kopf. 

Ich hoffe, Ihnen mit diesem Kapitel neue Anregungen im 
Bereich der Adventure-Programmierung gegeben zu haben. 
Wenn Sie noch irgendwelche Fragen oder Probleme mit 
Adventure-Programmierung haben, dann wenden Sie sich 
doch mal an die 64'er, vielleicht geben Ihre Nachfragen Anlaß 
zu einem kleinen Folgekurs. 

Ich will allerdings noch nicht zum Schlußwort kommen, 
denn es steht noch ein wichtiges Kapitel aus: 


Der Adventure-Cracker 


Das Programm im Listing 4 macht’s möglich: Adventures im 
Schlaf gelöst. Naja, ganz im Schlaf gehfs nicht, aber Sie 
müssen sich lediglich im Sessel zurücklehnen und am Bild¬ 
schirm mitverfolgen, wie der gesamte Text des Adventures 
ausgegeben wird. 

Im Prinzip ist der Adventure-Cracker nichts weiter als ein 
ultra-primitiver Disk-Monitor, mit dem sich die einzelnen 
Bytes einer Diskette lesen lassen. Sie müssen einfach die 
Diskette, auf der sich das Adventure befindet, ins Laufwerk 
legen und dann mittels Angabe von Track und Sector nach 
Text suchen. G 4 GR Of 

Der Adventure-Cracker filtert automatisch alle Zeichen 
heraus, die keinen Text darstellen (Grafikzeichen etc.). Es ist 
nur eine Frage der Zeit, bis man so den gesamten Text eines 
Adventures herausfindet. 

Der Cracker knackt alle Basic-Adventures, Adventures, die 
mit relativen Dateien arbeiten (also unsere), und auch pro¬ 
fessionelle Spiele. Den INFOCOMs kann man mit dem 
Adventure-Cracker allerdings in keinster Weise zu Leibe 
rücken: Ihr Text ist auf eine äußerst komplizierte Weise ver¬ 
schlüsselt und bringt auch harte Dechiffrierer zur Verzwei¬ 
flung ... 

Es ist also ratsam, Adventure-Texte nicht einfach unver¬ 
schlüsselt in relativen Dateien abzulegen. Parallel zum Codie¬ 
ren bietet sich allerdings noch etwas anderes an: 


Bonbon zum Schluß 


Zu Beginn dieses Kurses habe ich Ihnen versprochen, daß 
das freie RAM bis zum letzten Byte mit interessanten Routi¬ 
nen belegt wird. Das haben wir auch geschafft. Bis auf einen 
kleinen Bereich: von 1024 bis 2023 der alte Bildschirmspei¬ 
cher. 

Dort bringen wir jetzt noch eine Maschinenroutine unter, 
die in Listing 5 abgedruckt ist. 

Diese Routine können Sie erst dann laden, wenn der deut¬ 
sche Zeichensatz aktiviert und der Bildschirm an eine andere 
Stelle als 1024-2023 gelegt worden ist. Zum Laden können 


Text-Raffung 


Es gibt verschiedene Methoden, Text zu kürzen, um so letzt 
endlich noch mehr Text auf einer Disk-Seite unterzubringen 
Es bietet sich zum Beispiel an, einzelne Kürzel zu definieren 
Schließlich haben wir 255 verschiedene Zeichen zur Verfü 
gung, von denen zur reinen Textdarstellung nur ca. 70 benö 
tigt werden (Groß-Klein-Buchstaben und diverse Satzzei 
chen). Man könnte nun doch eigentlich eine Tabelle anlegen, 
in der häufige Buchstabenkombinationen (er, die, ch, das, ng, 
en.) durch Grafikzeichen codiert werden. 

Sie können insgesamt zirka 180 solche Kürzel definieren 
und dann ein Programm schreiben, das Ihre relativen Dateien 
automatisch kürzt und die Buchstaben anhand einer weiteren 
Tabelle - einem Code-Schlüssel - chiffriert. 

Es gibt unglaublich viele Verschlüsselungs- und Text- 
Raffungsmethoden, die sich relativ einfach programmieren 
lassen. Denken Sie mal nach! 


0 REM ******************************* 

<13B> 

1 REM * 

# 

<050> 

2 REM * ADVENTURE-CRACKER 

* 

< 187> 

3 REM * VERSION 1.0 

* 

<247> 

4 REM * VON MRIGHTSCHAEL NICKLES 

* 

<015> 

5 REM * 

* 

<054> 

6 REM ******************************* 

<144> 

10 PRINT"tCLR,RVSON>ADVENTURE-CRACKER VERS 


ION 1.0 {11SPACE,RVOFF >"; 


<03B> 

20 PRINT"{DQWN1BITTE DISK MIT SPIEL EINLEG 


EN{SPACE,RVSON5RETURN{RVOFF >" 


< 022 > 

25 POKE 19B,0:WAIT 198,1 


<253> 

30 OPEN 1 ,8,15:0PEN 2,8,2,"#” 


<067> 

50 REM HAUPTMENUE 


< 188> 

51 PRINT"{RVSONTEINZEL / ALLES” 


<099> 

52 GET X*:IF X*=""THEN 52 


<225> 

55 IF X*="E"THEN 200 


< 166> 

57 IF X*="A"THEN 100 


< 162> 

58 GOTO 52 


<044> 

100 REM ALLE DATEN VON DISK LESEN 


< 147> 

105 INPUT"AB WELCHEM TRACK ";AN 


<041> 

110 FOR T=AN TO 35s REM TRACKS 


< 192> 

112 REM AS=ANZAHL DER SEKTOREN 


< 153> 

11 F T< 18 THEN AS=21 


<216> 

114 IF T>17 AND T<25 THEN AS=19 


< 197> 

115 IF T>24 AND T<31 THEN AS=1B 


< 00 B> 

116 IF T>30 THEN AS=17 


<081 > 

118 FOR S=1 TO AS: REM SECTORS 


<063> 

120 GOSUB 1000:REM DATEN IN BUFFER 

LESEN 

<093> 

130 GOSUB 2000:REM DATEN AUSDRUCKEN 

<051 > 

140 NEXT S 


<04B> 

150 NEXT T 


<066> 

200 REM EINZELNE DATEN LESEN 


<043> 

201 PRINT 


<047> 

205 INPUT"TRACK "jT 


<145> 

206 INPUT"SEKTOR ";S 


<087> 

210 IF T<1 OR T>35 THEN 200 


< 182> 

211 IF S<1 THEN 200 


< 142> 

212 IF T<18 AND S>21 THEN 200 


<213> 

213 IF T>17 AND T<25 AND S>19 THEN 

200 

<242> 

214 IF T>24 AND T<31 AND S>18 THEN 

200 

<054 > 

215 IF T>30 AND S>17 THEN 200 


<034> 

220 GOSUB 1000 


< 176> 

230 GOSUB 2000 


< 194> 

250 GOTO 200 


< 186> 

1000 : 


<214> 

1001 REM DATEN IN BUFFER LESEN 


<212> 

1002 : 


<216> 

1005 PRINT#1,"U1 2 0 ";TjS 


<06B> 

1010 RETURN 


<050 > 

2000 : 


< 198> 

2001 REM BUFFER AUSLESEN 


< 114> 

2002 :M*="“ 


<099> 

2010 FOR 1=0 TO 255 


<074> 

2020 : GET#2,A* 


<046> 

2021 IF A*=""THEN 2030 


< 195 > 

2022 M=ASC(AS) : REM CHECKEN 


<008> 

2023 IF M>64 AND M<91 THEN PRINT A*; 

< 1B9> 

2024 IF M>96 AND M<123 THEN PRINT A*; 

<004 > 

2030 IF M=46 OR M=5B OR M=59 OR M=63 OR M= 


32 OR M=160 OR VAL(A*)>0 THEN 

PRINT A 


*; 


< 155> 

2040 NEXT I 


<090> 

2050 RETURN 


<076> 

Listing 4. Der Adventure-Cracker 
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Programm : ms 1400 16b0 


1400 

s 

a2 

Of 

20 

c9 

ff 

20 

fd 

ae 

cl 

140B 

: 

20 

8a 

ad 

20 

f 7 

b7 

a9 

50 

61 

1410 

: 

20 

d2 

ff 

a9 

OB 

20 

d2 

ff 

9b 

1418 

: 

a5 

14 

20 

d2 

ff 

a5 

15 

20 

eb 

1420 

: 

d2 

ff 

a9 

01 

20 

d2 

ff 

20 

55 

1428 

: 

cc 

ff 

a2 

08 

20 

c6 

ff 

a2 

lb 

1430 

: 

00 

20 

cf 

ff 

9d 

fa 

04 

c9 

B9 

1438 

: 

Od 

fO 

03 

e8 

dO 

f 3 

eO 

28 

lc 

1440 

: 

dO 

05 

a9 

00 

9d 

fa 

04 

eB 

91 

1448 

s 

a9 

00 

9d 

fa 

04 

20 

CC 

ff 

2c 

1450 

: 

a2 

ff 

eB 

bd 

fa 

04 

dO 

fa 

ed 

145B 

3 

ca 

bd 

fa 

04 

c9 

Od 

fO 

f 8 

fb 

1460 

3 

c9 

2a 

fO 

2f 

a2 

00 

bd 

fa 

77 

1468 

3 

04 

fO 

06 

20 

d2 

ff 

eB 

dO 

de 

1470 

3 

f 5 

a5 

14 

18 

69 

01 

85 

14 

ld 

147B 

3 

a5 

15 

69 

00 

85 

15 

ee 

f 9 

b3 

1480 

3 

04 

ad 

*9 

04 

c9 

16 

dO 

03 

fO 

148B 

3 

20 

b9 

04 

a2 

Of 

20 

c9 

ff 

f 3 

1490 

: 

4c 

Oe 

04 

a9 

Od 

9d 

fa 

04 

cb 

1498 

3 

eB 

a9 

00 

9d 

fa 

04 

a2 

00 

63 

14a0 

3 

bd 

fa 

04 

fO 

06 

20 

d2 

ff 

a6 

14aB 

: 

e8 

dO 

f5 

ee 

f 9 

04 

ad 

f 9 

be 

14bO 

3 

04 

c9 

16 

dO 

03 

20 

b9 

04 

59 

14b8 

3 

60 

a9 

00 

Bd 

f 9 

04 

a2 

00 

e9 

14cO 

3 

bd 

e5 

04 

fO 

06 

20 

d2 

ff 

3c 

14cB 

3 

e8 

dO 

f 5 

a9 

00 

85 

c6 

a5 

5d 

14dO 

3 

c6 

fO 

fc 

a2 

00 

bd 

fO 

04 

5b 

14dB 

3 

fO 

06 

20 

d2 

ff 

eB 

dO 

f 5 

a4 


Listing 5. Einige nützliche Hilfsroutinen 


14e0 

3 

a9 

00 

B5 

c6 

60 

12 

5b 

57 

76 

14eB 

3 

45 

49 

54 

45 

52 

5d 

92 

00 

ea 

14f 0 

3 

14 

14 

14 

14 

14 

14 

14 

14 

fO 

14f B 

8 

00 

00 

00 

00 

00 

00 

00 

00 

f 9 

1500 

3 

00 

00 

OO 

00 

OO 

00 

00 

00 

01 

1508 

3 

00 

00 

00 

OO 

00 

00 

00 

00 

09 

1510 

3 

00 

00 

00 

OO 

00 

00 

00 

00 

11 

1518 

8 

00 

00 

00 

00 

00 

00 

00 

00 

19 

1520 

3 

00 

00 

00 

00 

00 

00 

00 

00 

21 

1528 

: 

a9 

40 

Bd 

04 

d4 

a9 

Of 

Bd 

c7 

1530 

: 

18 

d4 

a2 

le 

aO 

86 

Be 

00 

97 

1538 

3 

d4 

8c 

01 

d4 

a2 

00 

aO 

aO 

lb 

1540 

3 

Be 

05 

d4 

8c 

06 

d4 

«9 

00 

c5 

1548 

3 

Bd 

f 9 

04 

a9 

3e 

20 

d2 

ff 

38 

1550 

3 

a9 

a4 

20 

d2 

ff 

a9 

00 

8d 

16 

1558 

3 

af 

06 

a9 

OO 

B5 

c6 

a5 

c6 

27 

1560 

3 

fO 

fc 

ad 

77 

02 

a2 

00 

dd 

la 

1568 

3 

5d 

06 

fO 

OB 

eB 

eO 

52 

dO 

86 

1570 

3 

f 6 

4c 

77 

05 

4c 

b5 

05 

c9 

25 

1578 

3 

Od 

dO 

15 

ad 

af 

06 

fO 

2f 

36 

1580 

3 

a9 

9d 

20 

d2 

ff 

a9 

20 

20 

68 

1588 

3 

d2 

ff 

20 

f 8 

05 

4c 

OB 

06 

60 

1590 

3 

c9 

14 

dO 

lb 

ad 

af 

06 

fO 

4d 

1598 

3 

16 

a9 

14 

20 

d2 

ff 

20 

d2 

df 

15a0 

3 

ff 

a9 

a4 

20 

d2 

ff 

20 

f 8 

41 

15aB 

8 

05 

ce 

af 

06 

4c 

5a 

05 

20 

ad 

15bO 

3 

36 

06 

4c 

5a 

05 

ac 

af 

06 

c8 

15b8 

3 

cO 

4d 

fO 

36 

ae 

af 

06 

9d 

dd 

15cO 

3 

bO 

06 

a9 

9d 

20 

d2 

ff 

bd 

a5 


i. Beachten Sie die Hinweise im Text. 


15c8 

3 

bO 

06 

20 

d2 

ff 

a9 

a4 

20 

fe 

15d0 

3 

d2 

ff 

ee 

af 

06 

bd 

bO 

06 

70 

15dB 

3 

c9 

22 

dO 

IO 

20 

d2 

ff 

a9 

d4 

I5e0 

8 

14 

20 

d2 

ff 

20 

d2 

ff 

a9 

a5 

15e8 


a4 

20 

d2 

ff 

20 

f 8 

05 

4c 

c7 

15f 0 

3 

5a 

05 

20 

36 

06 

4c 

5a 

05 

d2 

15f 8 

3 

a9 

41 

Bd 

04 

d4 

a2 

00 

e8 

5a 

1600 

3 

dO 

fd 

a9 

80 

Bd 

04 

d4 

60 

56 

1608 

3 

a9 

00 

B5 

c6 

20 

fd 

ae 

ad 

f 3 

1610 

3 

af 

06 

20 

7d 

b4 

aO 

00 

b9 

3e 

161B 

3 

bO 

06 

91 

62 

c8 

cc 

af 

06 

3a 

1620 

3 

dO 

f 5 

20 

Bb 

bO 

85 

fb 

84 

94 

1628 

3 

fc 

a2 

02 

aO 

02 

b5 

61 

91 

80 

1630 

3 

fb 

ca 

BB 

10 

f 8 

60 

a2 

Oa 

e6 

1638 

3 

Be 

00 

d4 

Be 

01 

d4 

a9 

21 

6d 

1640 

3 

Bd 

04 

ÖA 

a2 

bO 

aO 

00 

c8 

fa 

1648 

3 

dO 

fd 

eß 

dO 

f 8 

a9 

80 

8d 

65 

1650 

X 

04 

d4 

a6 

le 

a4 

86 

Be 

00 

e4 

1658 

3 

d4 

Bc 

01 

d4 

60 

41 

42 

43 

ed 

1660 

3 

44 

45 

46 

47 

48 

49 

4a 

4b 

50 

1668 

3 

4c 

4d 

4e 

4f 

50 

51 

52 

53 

58 

1670 

8 

54 

55 

56 

57 

58 

59 

5a 

30 

09 

1678 

3 

31 

32 

33 

34 

35 

36 

37 

38 

68 

1680 

3 

39 

2c 

2e 

20 

21 

23 

24 

25 

65 

16B8 

3 

26 

27 

2B 

29 

2b 

2d 

3a 

3b 

ed 

1690 

3 

2f 

3f 

40 

2a 

22 

cl 

c2 

c3 

77 

1698 

3 

c4 

c5 

c6 

c7 

c8 

c9 

ca 

cb 

87 

16a0 

3 

cc 

cd 

ce 

cf 

dO 

dl 

d2 

d3 

8f 

16a8 

3 

d4 

d5 

d6 

d7 

d8 

d9 

da 

00 

df 


Sie nicht den LOAD-Befehl, sondern nur Listing 6 verwen¬ 
den. 

Die Routine beherbergt zwei sehr wichtige Funktionen, die 
bei jeder Adventure-Programmierung benötigt werden: 

1. Erweiterte INPUT-Routine 

Mittels SYS 1160,BE$ rufen Sie die erweiterte INPUT- 
Routine auf. Nach Rücksprung steht der eingegebene Satz 
in BES - natürlich kann anstelle von BES auch jeder andere 
beliebige String gesetzt werden. 

2. Raumbeschreibung einiesen 
Mittels SYS 1024,SA rufen Sie eine Maschinenroutine auf, 

die den Satzbereich einer relativen Datei von Satz SA ab bis 
zum nächsten Sternchen ausgibt - und das sehr, sehr 
schnell! 

Die relative Datei muß von Basic aus per OPEN 
8,8,8,»Filename« geöffnet werden, ebenso der Floppykanal 
mittels OPEN 15,8,15. 


10 OPEN 1,8,0,"MS":GET#1,A*:GET#1,A* <194> 

20 FOR 1=1024 TO 1718:GET#1,A*:A*=AS+CHR*( 

0):POKE I,ASC<A*):NEXT ItCLOSE 1 <102> 

Listing 6. Lader für Listing 5 


Nochmals sei darauf hingewiesen, daß die Routinen nur 
lauffähig sind, wenn der deutsche Zeichensatz verwendet 
wird, und daß sie nur mit den Zeilen aus Listing 6 geladen wer¬ 
den können. 

Mit dieser Routine möchte ich mich von Ihnen verabschie¬ 
den. Ich hoffe, daß Sie einige wertvolle Tips zur Programmie¬ 
rung von Abenteuerspielen erhalten haben. 

Viel Spaß beim Programmieren! (M. Nickles/bs) 
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C64 


EINGABEHILFEN 


Che<ksummer 
64 V3 

Der Checksummer 64 V3 überprüft jede Basic- 
Zeile direkt nach der Eingabe, erkennt Fehleinga¬ 
ben sowie Vertauschungen von Ziffern und 
erspart eine aufwendige Fehlersuche. 


Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei¬ 
chen. 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die 
mehr als 80 Zeichen pro Zeile enthalten, mit den bekannten 
Abkürzungen für die Basic-Befehle (siehe auch das Hand¬ 
buch zum C64, Anhang D, Seite 130) eingegeben werden. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: [13 SPACE) bedeutet 13mal die Leertaste drücken 


D 


, er Checksummer 64 V3 ist ein kleines Maschinenpro- 
| gramm, das Sie sofort unterrichtet, ob Sie die jeweilige 
Programmzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 
CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, AUS¬ 
SCHALTEN MITPOKE 1,55, ANSCHALTEN MITPOKE 1,53, 
READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. 

Die Zahl in den Klammern, und auch die Klammern 
selbst, dürfen beim Abtippen nicht mit eingegeben wer¬ 
den! 

7. Der Checksummer 64 V3 bemerkt auch Vertauschun¬ 
gen von Zahlen und Buchstaben, aber nicht das Fehlen (oder 
Hinzufügen) von Leerzeichen. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen. 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
SHIFFTaste und den angegebenen Buchstaben drücken 
müssen, überstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. 


9 REM *»*■*****#*#****■»*■»*****#*■*•****# 

10 PRINT"<CLR,11SPACE,RVSQN >CHECKSUMMER A4 
V3{RVOFF >" 

11 PRINT"L2D0WN,9SPACE>EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ ArPOKE I,A:PB=PS+ 
A+l:NEXT I 

13 IF PSO5802 THEN PRINT"PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PSO16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT”14D0WN,9SPACETCHECKSUMMER AKTIVIE 
RT." 

18 PRINT"<2D0WN>AUSSCHALTEN : POKE1,55" 

19 PRINT" TDCIWN>ANSCHALTENT2SPACE>: POKE 1 ,5 
3": NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

© S4'er 

Der Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


CTRL steht für Control-Taste, so bedeutet [CTRL-A], daß Sie die 

[CYAN| 

Control-Taste 8 4 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

[PURPLE] 

Control-Taste 8 5 

IDOWNI 

Taste neben rechtem Shift, Cursor unten 

[GREEN] 

Control-Taste 8 6 

[UPI 

Shift-Taste 8 Taste neben rechtem Shift; Cursor hoch 

[BLUE] 

Control-Taste 8 7 

[CLR] 

Shift-Taste & 2. Taste ganz rechts oben 

[YELLOWI 

Control-Taste 8 8 

(INST) 

Shift-Taste & Taste ganz rechts oben 

[RVSON] 

Control-Taste 8 9 

|HOME| 

2. Taste von ganz rechts oben 

IRVOFF] 

Control-Taste 8 0 

IDELj 

Taste ganz rechts oben 

[ORANGE] 

Commodore-Taste 8 1 

|RIGHT| 

Taste ganz rechts unten 

[BROWN | 

Commodore-Taste 8 2 

(LEFTI 

Shift-Taste 8 Taste unten rechts 

(LIG.REDJ 

Commodore-Taste 8 3 

| SPACE] 

Leertaste 

[GREY 1] 

Commodore-Taste 8 4 

{Fl) bis (F8| 

Funktionstasten 

[GREY 2) 

Commodore-Taste 8 5 

IRETURN) 

Shift-Taste 8 Return 

[UG.GREEN] 

Commodore-Taste 8 6 

IBLACK] 

Control-Taste 8 1 

[UG.BLUE] 

Commodore-Taste 8 7 

[WHITE] 

Control-Taste 8 2 

[GREY 3] 

Commodore-Taste 8 8 

[RED] 

Control-Taste 8 3 

Tabelle 1. Die Steuerbefehle in den Listings 
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C64 


MSE - Abtippen 
sidier und 
leidit gemacht 

Ähnlich wie der »Checksummer« ist auch der 
MSE ein leicht zu bedienendes Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch bei reinen 
Maschinensprache-Programmen. 

I m Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die 
Tipparbeit um ein Drittel und schließt Fehleingaben voll¬ 
kommen aus. Außerdem können Sie die Werte blind einge¬ 
ben, ohne andauernd auf den Bildschirm schauen zu müs¬ 
sen. Dies wird durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. 

Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit »CTRL-S« auf Diskette 
oder Kassette abgespeichert. Dazu sind keine weiteren Anga¬ 
ben mehr erforderlich. Das Programm kann dann ganz normal 
wieder geladen und gestartet werden. Wenn Sie nicht alles auf 
einmal tippen wollen, können Sie jederzeit unterbrechen und 


den eingetippten Teil mit »CTRL-S« abspeichern. Wollen Sie 
Weiterarbeiten, laden und starten Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt »L« 
ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit »CTRL- 
N« die Adresse eingeben, an der Sie weitertippen müssen. 
Wenn Sie sich nicht gemerkt haben, wie weit Sie gekommen 
sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser Zeile 
müssen Sie anschließend mit »CTRL-N« eingeben. Das Pro¬ 
gramm ist nur mit »STOP/RESTORE« zu verlassen. Speichern 
Sie aber vorher unbedingt immer Ihren Text ab. 

Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Den MSE-Lader brauchen Sie nur einmal. Nach erfolgrei¬ 
chem Abtippen und Starten mit RUN geht der Lader verloren 
und es wird das endgültige Programm MSE VI.0 erzeugt. So 
gehen Sie vor: 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm speichern. Dazu brauchen Sie nur »RETURN« zu 
drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.0« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann/D. Weineck/gk) 


MSE-Befehle: 

DEL 

löscht die letzte Eingabe. 

CTRL-S 

speichert das eingetippte Programm ab. 

L oder CTRL-L 

lädt ein Programm. Start- und Endadresse werden 
automatisch ermittelt. 

CTRL-M 

listet den Speicherinhalt. Abbruch mit STOP-Taste, 
weiter mit Leertaste 

CTRL-N 

erlaubt die Eingabe einer neuen Adresse zum 
Weitertippen. 

CTRL-P 

gibt ein MSE-Listing auf dem Drucker aus. 


100 REM **************************** <091> 

110 REM * * <159> 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <036> 

240 DIM H(75): FOR 1=0 TO 9 <113> 

250 H(48+1)=1: H(65+1)=I+10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ A* <198> 

270 H=ASC(LEFT*(A*,1>):L=ASC(RIGHT*(A*,l >) <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I,D <219> 

290 A=A+1:IF A<20 THEN NEXT:A=-1 <141> 

300 PRINT •• ZEILE:1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <21B> 

320 PRINT"PRUEFSUMMENFEHLER !":STOP <138> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0:PRINT:NEXT < 046 > 

341 PRINT”<CLR JPfl43,1:PS44,B:Pfl45,172:Pfl46 

,14 <010> 

342 POKE 631,19:POKE 632,13:P0KE 633,13:P0 


KE 198,3 <-?49> 

343 PRINT"C3D0WN >SAVE"CHR*(34)"MSE V1.0"CH 

R*<34>”,8 <171> 

344 END <092> 

1000 DATA 00,OB,08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,D1,B1,A9,06,8D, 2787 <144> 

1003 DATA 21 ,D0,A9,03,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 <237> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 

1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,Bl,20, 2323 <013> 

1006 DATA 8E , B4,85 , FC , 85,62,20 , BE, B4,85 , FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 

,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 


Der MSE zum bequemen Abtippen von Maschinenprogrammen 
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100B DATA A5,61,C5,5F,A5,62,£5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,5B, 2322 <121> 

1012 DATA 95,F7,C6,5B,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 22B2 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,B5,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,0B,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,BB,B1,A6,D3, 2891 <197> 

1018 DATA E0,0B,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 246B <049> 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,48,4A,4A 

,4A,4A,20,59,B1,6B,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,C0,0B,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,BB,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1 

,FB, 18 ,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,B5,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,B5,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

iD2,FF,CC,00,02,CB,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl,20,ED,Bl,A5,60,20,4E,B1,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85, A5,85, A7, A2,13, A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18, A5, A4,69,28,85, A4,90,02, E 6 , A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,BD,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,BD,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,8B,D0,F8,60, 2914 <240> 

1042 DATA A9,0F, 8 D, 18,D4 , A9,2D,8D,05,D4, A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00, 8 D , 01 , D4, 8 D, 00, D4,60,38,20 

,F0,FF,8A,48,98,48,18,AB,06, 2179 <175> 

1045 DATA A2, 18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2 , 1D , A9,14,20 , D2 , FF , CA , D0 , FA , 68 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <088> 

1047 DATA 0D,20,20,20,20,20,20,20,40,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <038> 


1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41 ,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <09B> 

1056 DATA 2A , 2A , 2A, 20,45,4E , 44,45,20,2A , 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F , 4F, 20,2D , 20,46,45,48,4C , 45 

,52,00,20,Dl,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1 ,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20, A7 , B4 , F0,0C , 85 , F9,20 , A7 , B4 , F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,Dl,B1,20,4B,B2,4C,0B, 2372 <046> 

1063 DATA B6 , C9,0D , 60 , A9,00,85,5E , 20,5F , B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,AB,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,BD,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,Bl,A5,FC,20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,AB,3A,20,F2,Bl,AB,00,20,ED,Bl 

,Bl,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

.A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 " TA FF,20,4E,B1 ,A9,92,20,D2,FF,4C,EA 

,B1,A9,FF,85,B8,B5,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,DB, 2596 <111> 

1073 DATA FA,20,EA,Bl,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3 , FF , 20,68, B6 , AB , B4 , A9,4F , 20 , FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54 , D0 , F1, A9,01, AB , 20 , BA , FF, A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,CB,D0, 2182 <127> 

1079 DATA 0C , B9,01,02,99,20,02 , C8 , CC , 00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF , 20, B8 , B5 , A5 , BA , C9,08,90,33 , A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,DB,FA,60, 1230 <214> 

6 64'er 


MSE (Schluß). Dieses Listing können Sie (müssen 
aber nicht) mit dem Checksummer 64 V3 in 
diesem Heft eingeben. 
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Odyssey - 
Kampf mit der 
Wildnis 

Sie sind nach einem Schiffsunglück auf einer ein¬ 
samen insei gestrandet. Finden Sie den Weg 
zurück in die Zivilisation und entkommen Sie dem 
Abenteuer Wildnis. 

O dyssey ist ein deutsches Textadventure, das von Hans- 
Günther Schreck, einem Freund von mir, geschrieben 
worden ist. Hans begann mit dem Programmieren die¬ 
ses Spieles, als ich gerade mit der Fertigstellung meiner 
»Gordon Saga 1« beschäftigt war. Ich erwähne dies an dieser 
Stelle, da mir Hans bei der Fertigstellung von Gordon Saga 
viel geholfen hat - und zwar als Testspieler. Ich beobachtete 
ihn stundenlang beim Spielen von Gordon Saga und machte 
mir Notizen, wo das Spiel zu einfach oder zu schwer war und 
wo es am Parser mangelte. Ich kann ein solches Testen jedem 
Adventure-Autor wärmstens empfehlen. Ein Adventure zu 
programmieren nimmt viel Zeit in Anspruch. Wer eines fertig¬ 
gestellt hat, kennt meist jede Szene in- und auswendig und 
hat keine Lust mehr zu langem Probespielen, da man dann 
meist auch schon an neue Projekte denkt. Läßt man jedoch 
einen Bekannten, der nichts mit dem Spiel zu tun hat, einmal 
probespielen, so merkt man schnell, ob am Programm noch 
etwas zu verbessern ist. Hier ein Beispiel: 

In der Handlung der Gordon Saga muß an bestimmten Stel¬ 
len eine Tür geöffnet werden. Ich hatte hierzu als Syntax 
»ÖFFNE DIE TÜR« vorgesehen. Einige Testspieler gaben 
»ÖFFNE DIE TÜRE« ein und konnten nicht verstehen, warum 
dieser Befehl nicht verstanden wurde, da es sich bei »TÜRE« 
um einen offensichtlich verbreiteten Rechtschreibfehler han¬ 
delt. Ich nahm im Wortschatz für »TÜR« also auch »TÜRE« auf. 
Ein anderer gab »MACHE DIE TÜR AUF« ein. Auch hier ver¬ 
besserte ich den Parser. Nach langen Teststunden war Gor¬ 
don Saga endlich fertig. Besonders ratsam ist es auch, als 
Testpersonen Leute herzunehmen, die zuvor noch kein 
Adventure gespielt haben. Dann merkt man am besten, wie 
gut der Parser des Spieles ist. 

Die Spielhandlung 


Nun aber zu »Odyssey«. Das Spiel ist komplett in Basic 
geschrieben, die Grafik besteht aus dem Commodore- 
Standardzeichensatz, ist jedoch so gut, daß man dies bei 
manchen Bildern einfach nicht glauben kann. Der Parser ent¬ 
spricht keinesfalls dem in diesem Sonderheft gesetzten 
Standard. Trotzdem werden ganze deutsche Sätze verstan¬ 
den, was deutlich über dem Standard gewöhnlicher Abtipp- 
Adventures liegt. 

Sie sind nach einem Schiffsunglück auf einer einsamen 
Insel gestrandet und müssen sich in der Wildnis herumschla¬ 
gen, Raubtiere bekämpfen oder sich mit Eingeborenen her- 
umschlägen. Dabei begegnen Sie noch vielen anderen 
Geheimnissen wie Schätzen oder Botschaften. Das Spiel 
zeichnet sich durch viel Spielwitz und Originalität aus. Mehr 
wird nicht verraten - einfach abtippen und spielen. 

(Michael Nickles/dm) 






SIL BEFINDEN SICH Ah SUtDSTRAND EINER 
UNBEKANNTEN JHSEL. 

MOEGLICHE RICHTUNOEN : N 


0 PRINT"<CLR>“:POKE 53280,0:POKE 532B1,0:F 

=2:G0SUB 20000:POKE 198,0:GOSUB 750 <14B> 

10 DIM T* *(80):DIM RA*(20, 10) : WL=3:TI*="000 

000" <177> 

20 REM *** GEGENSTAENDE ****************** 

•••**••••••**•**••*••••••••••••**•*••• <063 > 

22 G*(0)=" ":G*<1)“"MESSER":G*(2)“"METALLB 

EHAELTER":G*(3)“"BUCH":G*(4)“"BEIL" <239> 

24 G*(5)="FRUECHTE”:G*(6)=“VERBANDSZEUG":G 

* ( 7 ) = "SCHLANGENSERUM" <196> 

26 G*(8)““EDELSTEINE":G*(9)“"FALTBOOT" <019> 

36 PRINT"<CLR>"CHR*(14):GOSUB 25000 <062> 

80 REM *** SPRUNG IN RAUM **************** 

************************************** < 030 > 

90 GOTO 1000 <030> 

100 IF UN=1 THEN GOTO 200 <195> 

101 PRINT"<WHITE>" <112> 

102 i =RNDC1):IF ZV<0.5 THEN PRINT"WAS NUN 

~?”lGOTO 110 <217> 

103 IF ZV>0.5 AND ZV<0.80 THEN PRINT"WAS 3 

ETZT ?":GOTO 110 <02B> 

105 PRINT"UND JETZT ?" <099> 

110 PRINT"<DOWN,UP>":X»="":PRINT CHR*(114) <123> 
120 BET B* <082> 

125 IF ZA=1 THEN IF TI-D>LI THEN T“1:R=0:P 

*=“":GOTO 300 <073> 

127 IF B*“""THEN 120 <066> 

130 IF ASC <B*>“13 THEN 198 <178> 

140 IF ASC(B*)=20 AND X*<>""THEN 160 <109> 

142 IF ASC(B*)=32 THEN 150 <059> 

145 IF ASC CB*)<65 OR ASC(B*)>90 THEN 120 <028> 

150 X*=X*+B*:GOTO 180 <144> 

160 X*=LEFT*<X*,LEN(X*)—1> <019> 

170 IF LEN(X*)<41 AND LEN(X*)>37 THEN PRIN 
T"C2UP >"X*+CHR*(114)+CHR* < 32):UA=1:GOT 
O 120 <122> 

175 GOTO 190 <247> 

180 IF LEN(X*><40 AND UA=0 THEN PRINT"<UP> 

"X*+CHR*(114):UA“01 GOTO 120 <217> 

185 PRINT"C2UP>"X*+CHR*(114):GOTO 194 <255> 

190 IF LEN(X*)<41 AND UA-0 THEN PRINT"CUP> 

"X*+CHR*(114)+CHR*(20):GOTO 194 <040> 

192 PRINT"C2UP>"X*+CHR*(114)+CHR*(20):GOTO 

194 <064> 

194 IF LEN(X*)<79 THEN 120 <223> 

195 GET B*:IF B*< >CHR* (20) AND B*OCHR*(13) 

THEN 195 <216> 

196 PRINT"C2UPJ":GOTO 130 <099> 

198 IF LEN(X*> <39 THEN PRINT"CUP>"X*+CHR*( 

46):GOTO 200 <018> 

199 PRINT"<2UP>"X*+CHR*(46) <105> 

200 REM *** STRINGZERLEGUNG ************** 
************************************** <164 > 

210 UN=0:MO=0:SZ=0:T*(0)=“" <070> 

217 IF X*=""AND UN=0 THEN GOTO 713 <172> 

220 FOR X=1 TO LEN(X*> <176> 

230 : IF MID*(X*,X,1)0" "AND WO=0 THEN 

WO=X <207> 

235 IF MID*(X*,X, 1 )=" "AND WO<>0 THEN T* 
(SZ)=MID*(X*,WO,X-WO):WO=0:SZ=SZ+1:GOT 
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Listing »Odyssey« (Fortsetzung) 



459 

GOTO 345 

< 117> 


□ 280 


< 189> 

460 

REM *** L-BER 

<002> 

240 

:IF X=LEN(X»)AND WQ<>0 THEN TS(SZ> 

“MID 


461 

IF PS“"LIANE"THEN S=18 

<215> 


S(XS,WO,X-WO+l> :SZ“SZ+1 


<246> 

465 

IF PS“"LEGE“THEN V“2 

<203> 

270 

NEXT: GOTO 300 


<013> 

466 

IF PS“"LEERE"THEN V=15 

< 171 > 

280 

: IF TS(SZ-1)="UND"THEN XS“RIGHTS(XS 


467 

IF PS="LIES"THEN V-8 

<008 > 


,LEN(XS>-X>:UN“l:GOTO 300 


<240> 

469 

GOTO 345 

< 127> 

290 

GOTO 270 


<084> 

470 

REM *** M-BER 

<076> 

300 

REM *** WQRTANALYSE ****************** 


471 

IF PS“"MESSER"THEN G“1 

< 186> 


************************************** 

<093> 

472 

IF PS“"METALLBEHAELTER"THEN G=2 

<04B> 

30S 

S“0: V-0: R-0: G-0:Q-0 


< 196> 

473 

IF PS“"METALLKISTE"THEN S“ll 

<223> 

310 

FOR 1=0 TO SZ-1 


<000> 

474 

IF PS—"MAENNCHEN"THEN S=22 

<057> 

315 

IF TS(0)=""THEN GOSUB 704:RETURN 


<234> 

475 

IF PS“"MACHE"THEN V=12 

<254> 

320 

: PS—T S(I)s F=ASC < PS)—64 


<155> 

479 

GOTO 345 

<137> 

330 

: ON F GOTO 350,360,370,380,390, 

400, 


480 

REM *** N-BER 

<150> 


410,420,430,440,450,460,470 


<098> 

481 

IF PS“"N"OR LEFTS(PS,3)“"NOR"THEN R“1 

< 138> 

340 

: ON F—13 GOTO 480,490,500,510,520,5 


485 

IF PS“ "NI MM "THEN V-l 

<143> 


26,545,550,560,570,580,590,600 


<207> 

489 

GOTO 345 

<147> 

345 

NEXT 


<101> 

490 

REM *** O-BER 

<224> 

346 

IF V-0 AND S=0 AND G=0 AND R=0 THEN GO 


491 

IF PS=“0"0R LEFTS(PS,3)—"OST"THEN R=4 

<169> 


SUB 702 


<113> 

492 

IF PS“"OEFFNE"THEN V=7 

< 141 > 

347 

GOSUB 800 


<093> 

499 

GOTO 345 

< 157> 

349 

RETURN 


< 153> 

500 

REM *** P-BER 

<043> 

350 

REM **« A-BER 


<209> 

501 

IF PS“"PULVER"THEN S=21 

<052> 

351 

IF PS="AST"THEN S=3:B0T0 345 


< 109> 

502 

IF PS“"PADDELE"THEN V-31 

<203> 

352 

IF PS="ALLES"THEN S=1 


<217> 

509 

GOTO 345 

< 167> 

353 

IF PS="ASCHE"THEN S=7 


<113> 

510 

REM *** Q-BER 

< 117> 

359 

GOTO 345 


<017> 

519 

GOTO 345 

<179> 

360 

IF PS="BETRETE"OR PS="BETRITT"THEN 

V-2 


520 

REM *** R-BER 

< 193> 


7 


< 152> 

521 

IF PS="R"OR PS“"RUNTER"THEN R=6 

<110> 

361 

IF LEFTS(PS,4)="BAUM"THEN S=2:G0T0 

345 

< 136> 

522 

IF PS“"RUTSCHE"THEN V=24 

<022> 

362 

IF PS="BUCH"THEN G=3:S=10 


<071 > 

523 

IF PS“"RAMPE"THEN S=26 

<047> 

363 

IF PS="BEIL"THEN G=4 


<159> 

524 

IF PS“"RUDERE"THEN V=31 

<021 > 

364 

IF PS“"BEHAELTER"THEN G=2 


< 113> 

525 

GOTO 345 

< 185> 

365 

IF PS“ "BR ING "THEN V=3 


<238> 

526 

IF PS“”SPRITZE"THEN V=32 

<006> 

366 

IF PS“■BERUEHRE"THEN V=23 


<21B> 

527 

IF LEFTS (PS,6)“"SPALTE"THEN S=33 

<221 > 

367 

IF PS=”BILD"THEN S=25:G0T0 345 


<095> 

530 

IF PS="S"OR LEFTS(PS,4)“"SUED"THEN R=2 

<153> 

368 

IF PS“"BEHANDLE"OR PS“"BEHANDELE"THEN 


531 

IF LEFTS(PS,4)="SING"THEN V=19 

< 196> 


V—26 


<069> 

532 

IF PS="SCHLANGENSERUM"OR RIGHTS(PS,5)“ 


369 

IF PS“"BOOT"THEN G=9 


<093> 


"SERUM"THEN G=7 

<093> 

370 

REM *** C-BER 


<101> 

533 

IF PS““SCHAU"THEN S=5 

< 140> 

379 

GOTO 345 


<037> 

534 

IF PS="SCHALE"THEN S=13 

<215> 

3B0 

REM *** D-BER 

G 

<176> 

53s 

F PS““STRAND"THEN S=6 

<059> 

381 

IF PS“"DREHE“THEN V=15 


<055> 

536 

IF PS“"STRAUCH"THEN S=12 

<225> 

382 

IF PS““DRUECKE”THEN V“23 


< 112> 

537 

IF LEFTS(PS,6)“"SCHUET"THEN V=9 

< 179> 

389 

GOTO 345 


<047> 

538 

IF PS““SCHLIESSE"THEN V=10 

< 145> 

390 

REM *** E-BER 


<250> 

539 

IF PS“"SCHUETTE”THEN V=ll 

<212> 

391 

IF PS““EDELSTEINE"THEN G=8 


< 141 > 

540 

IF PS“"SCHIESSPULVER"THEN S=21 

< 142> 

395 

IF PS“"ESSEN"THEN V“5 


< 184> 

541 

IF LEFTS(PS,6)“"SPRING"THEN V=13 

<091 > 

396 

IF PS““ENTZUENDE"THEN V=25 


<001 > 

542 

IF PS“"SAND"THEN KG=1 

<216> 

399 

GOTO 345 


<057> 

543 

IF PS“"SPINNE"THEN S“23 

<053> 

400 

IF PS“"FAHRE"THEN V-31 


<09B> 

544 

GOTO 345 

<213> 

401 

IF PS““FRUECHTE"THEN G=5:S=11 


<075> 

545 

REM *** T-BER 

<091 > 

402 

IF PS“"FASS"THEN S=8 


< 120> 

546 

IF PS“"TISCH"THEN S“9 

<218> 

403 

IF PS“"FELSWAND"THEN S“14 


<078> 

547 

IF PS“"TOETE“THEN V=20 

<011> 

404 

IF PS“"FUELLE"THEN V=ll 


< 127> 

549 

GOTO 345 

<209> 

405 

IF PS“"FAELLE"THEN V“14 


<120> 

550 

REM *** U-BER 

< 160> 

406 

IF PS“"FUENF"THEN V=29 


< 125> 

555 

IF PS-"UNTERSUCHE“THEN V=6 

<227> 

407 

IF PS“"FALTBOOT“THEN G=9 


< 147> 

559 

GOTO 345 

<219> 

408 

IF PS“"FELSENINSEL“THEN S“32 


<060> 

560 

REM *** V-BER 

<234 > 

409 

GOTO 345 


<067> 

561 

IF PS“ "VERBANDS ZEUG "THEN G“6 

<223> 

410 

REM *** G-BER 


< 142> 

562 

IF PS-"VOGELSPINNE"THEN S-23 

<138> 

411 

IF PS“"GOLDSCHALE"THEN S“13 


<051 > 

563 

IF PS=“VORSPRUNG“OR PS-"VORSPRUENGE"TH 


412 

IF PS“"GORILLA"THEN S“19 


<023> 


EN S=24 

< 19B> 

413 

IF PS“"GOETZENBILD"THEN S-25 


< 169> 

564 

IF PS“"VERBINDE"THEN V-26 

<07B> 

414 

IF PS“"GRABE“THEN V-30 


< 177> 

565 

IF LEFTS(PS,7> — "VERLIER“THEN V“2 

< 185> 

415 

IF PS-"GEHE“THEN V*2T 


<079> 

566 

IF PS“"VERLASSE"THEN V-2B 

< 139> 

419 

GOTO 345 


<077> 

567 

IF PS“"VERNICHTE"THEN V-20 

<030> 

420 

REM *** H-HER 


<217> 

569 

BOTO 345 

<229> 

421 

IF PS—"H"OR PS—"HINAUF'THEN R-5 


<052> 

570 

REM *** W-BER 

<052> 

422 

IF PS“"HINUNTES;"THEN 9“6 


< 160> 

571 

IF PS="W"OR LEFTS(PS,4)“"WEST"THEN R=3 

<177> 

423 

IF PS-"HAND"TUEN S“2B 


< 117> 

572 

IF LEFTS(PS,5)-“WARTE"THEN V=4 

<166> 

424 

IF PS“"HAENBE"THEN V“17 


< 120> 

573 

IF PS“"WAND"THEN S=14 

<023> 

425 

IF PS““HINUEBER"THEN G-10 


<255> 

574 

IF PS“"WILDSTRAUCH“THEN S“12 

<090> 

426 

IF PS“"HANGLE"OR PS-"HANGELE“THEN 

V-22 

< 134> 

575 

IF PS“"WIRF"THEN V-ll 

< 142> 

427 

IF PS“"HUETTE"THEN S-30 


<117> 

576 

IF PS“"WENDE"THEN V=15 

< 122> 

429 

GOTO 345 


<087> 

577 

IF PS“"WEG"THEN S=27 

<010> 

430 

REM *** I-BER 


<035> 

578 

IF PS“"WASSER"THEN S=31 

<246> 

431 

IF PS“"INSEL"THEN S“32 


< 106> 

579 

GOTO 345 

<739> 

435 

IF PS““I"OR PS“"INVENTUR"THEN S“4 


<051 > 

580 

REM *** X-BER 

< 127> 

436 

IF PS-"ISS"THEN V-5 


<240> 

589 

GOTO 345 

<249> 

439 

GOTO 345 


<097> 

590 

REM *** Y-BER 

<201 > 

440 

REM *** J-BER 


< 109> 

599 

GOTO 345 

<003> 

441 

IF PS“"JAGUAR"THEN S-29 


<211> 

600 

REM *** Z-BER 

<019> 

449 

GOTO 345 


< 107> 

601 

IF PS“"ZEUG"THEN G=6 

< 160> 

450 

REM *** K-BER 


< 1S3> 

602 

IF PS“"ZURUECK"THEN V=18 

<0n> 

451 

IF PS“"KISTE"THEN S=15 


< 130> 
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!ä: 64’er 


Sie jetzt Ihre 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 


Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Iteil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.B. 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 


Stichwort Titel 


Seite Ausgabe 


Aktuell 


Inhalt 

JahiMmhaJtrvoraoichnu 4/84 bis 3/85 

64 

04/85 

Allgemeine« 

Commodore Gestern Heut« Morgon 

10 

01/85 

Computor 

Amiga — Der neue Suporcomputor 

8 

09/85 

DFÜ 

MCI Mall - Die achnello Pool 

8 

03/05 

lntnrview 

Interview nut David Crane (Game Doslgnor) 

146 

06/85 

Lonvon 

Schule brauch! Computer (VAM-Compuler) 

9 

06/55 

Mensen 

International Chaos CommurucaUon Congiona 

15 

03/1)5 


Holßo Monte ln dor Wüste: CES 

B 

03/55 


Die Sportler kommon (CES Software-Bericht) 

9 

04/05 


Musik rr.enoo i rankfurt 

B 

04/85 


Hannover-Menso *85 

6 

06/85 


Hannover-Monne '85 

6 

07/05 


Chicago im Zeichen der CES 

B 

08/85 


Aktuolle* von der C'85 ln Köln 

15 

06/85 


Bö Total (lntematronolo Funkauastellung) 

B 

10/85 


PCW-Computermesso in London 

8 

11/65 



e 

12/85 

Rocht 

Die nouo Abmahnmascho - Vbraicht bei Pro- 

8 

05/BS 


gununangeboten 

Die Ex-Xnacker - wo sind sie geblieben? 

27 

OB/85 


Interview mit Raubkopterexn (Soctlon 8) 

38 

Wt/85 


Schütte: kontra Knackl’s 

33 

00/85 


Raub-Tälksbow 

12 

CQ/85 


Das Urhobenochtagesets und Gedanken =u seiner 
Anwendung 

21 

08/85 


Änderung des Uihebcrrechtagosooos 

162 

09/85 

Buchbesprechungen 



AnQngor 

Goldmann Computer Compact 

87 

03/85 


Batuc-Wogwctser für don C 64 

86 

05/85 


Alles über den C 64. Sachbuchroiho. Band 1 

115 

06/85 


Lehrapiobeug Computer: C 64/VC 20 

na 

11/85 


C 64 Compulerhandbuch 

171 

11/85 


Einfuhiungskure: Commodore 64 

144 

12/85 

Anwendung 

Dienstprogramme VC 30, C 64 und SX 

86 

05/85 


Spaß an Mathe mit dem Commodore 64 

88 

07/85 


Mathe fUr die Oborsmife mit dem C 64 

88 

07/85 


Mathematisch« Routinen VC 30, Elektrotechnik/ 
Elektronik 

112 

11/85 


Commodore 64-Lötmg«, Band 2: Daun Verwaltung. 
Schule, Hobby 

112 

11/85 


Das Tnurungsbuch rum Data mal 

144 

12/85 

C 128 

Bücher rum C 128 

22 

10/85 

DFÜ 

Das Mailboa-Jahrbucli Nun die Nette 

113 

11/65 

Grafik 

Grafik auf dom Commodore 64 («Fehlen. 9/ßS) 

B6 

05/85 


Einführung m CAD mit dom Commodoio 64 

138 

06/53 


Grafik & Musik auf dom Commodore 64 

68 

07/65 


Vorachiedone Grafikbüehor sum C 64 

115 

08/BS 

Programm»- 

Von Basic tu Assembler: Das Commodoie-Buch, 

115 

06/B5 

ran 

Band 4 

64 Intern 

115 

06/55 


Das Interface Ago System-Handbuch sum C 64 

115 

06/BS 


Das C 64 Buch. Band 5: Simons Basic Leitfaden 

144 

13/85 


Bancode 

144 

12/06 


Noch mehr Tips und Tricks sum 64er 

144 

12/85 

Spelchotn 

Das Kassottenbuch sum C 64 und VC 30 

87 

03/85 


Die Floppy 1541 (MfiT) 

00 

07/05 

Spjotc 

Rombachs C 64 Spielführer 

07 

03/85 


Commodore 04-Utnnga. Band 1, Spiele 

113 

11/85 


35 ausgesuchte Spiele für Ihren Commodore 64 

171 

1/65 

64’er Extra 



Ftojobooi 

Befohlasau dos 6502/6510-PtOMsaara 

84 

00/88 

Grafik 

Die Vldoochip-RegUtor des C 04 

82 

10/85 

Spa Ichor 

Die Speicherbelegung des C 64 

06 

12/65 

Abenteuerlösungen 



IXWungon 

DaUaaQuost Lösung 

BO 

01/58 


Lösung The Hobbtt 

49 

03/D3 


Cuncho Killl-Enchanter ist gelöst 

44 

03/U5 


Infocom-Gohelmnmo gelüftet? 

49 

05/55 


Des Rätsels lAsung Amaron 

I4S 

C6/05 


Activl*on-Ad venture* •ntschleiort (Mindshadow. 
Tracer Sanctionl 

36 

12/85 


Eurokal - ich habt* 

37 

12/05 


Löeungon xu Hltchhlkor'o Guido und Sorcerar 

39 

13/85 

Spiele-Tests 



007 

James Bond — A View to a Kill 

1S6 

09/85 

Abenlouor 

Abonieuorpaket 1 

48 

08/85 


Amaxon — das besondere Ad von tun» 

49 

04/83 


Goidon Saga 

48 

03/85 


Shadcv/fro 

146 

09/85 


The Quest — mit C 64 auf Suche nach Drachen 

47 

01/85 

Acdon 

Hexenküche 

50 

07/85 


Imposniblo Mission 

46 

02/65 


Master of the Lamps 

48 

07/83 


Hetcue on Fractalus 

158 

10/85 


Stellar 7 

49 

08/65 

Construction 

Mail Order Monstern 

49 

08/83 

Set 

Racmg Destructlon Sei 

E0 

08/85 

Geschick¬ 

lichkeit 

Auatralopedicua Robusrua 

50 

08/85 


Bouldor Darb 11 

159 

10/85 


Cryntal Castles 

50 

07/85 


Stichwort 

Titel 

Seile 

Ausgabe 

Stichwort 

Titel 

Seite 

Ausgabe 


Ortbbly's Dey out 

148 

09/85 

Eingabe- 

Dor Bildschirm wird rur Leinwand (Tochüketch- 

21 

04/05 


Rock n Bolt 

4B 

08/85 

got.Ho 

Ughtpen) 




Thing an a Spring 

159 

10/85 


Das Doppelleben des Joystick-Port«: 1 Oer-Tastaturen 

50 

09/05 

Pr.oudo- 

Tbm • Zaga 

40 

01/83 


Joysticks- Tbst und MarktUboraicht (4 Fohloitoufol 

19 

11/05 

Roland s lia! Rncc 

49 

0B/B5 


12/65) 



Advonturos 

Founh Prolocol und Frank» g.t.H. 

163 

11/85 


Co geht auch andorr Ltghtpona und Trackballs 

22 

11/85 

Renner 

Die Renner 1983: Moiatverkaufto Spiele 

34 

12/85 

EPROMer 

Frisch gobrannl ist halb goapotchort (EPROM- 

39 

07/05 

Schach 

Viormal Schachmatt Verschiedene Scliachprögrammo 32 

12/85 





Simulation 

Ehte 

148 

09/85 


OuickByto 11 - das Kraft;.akut 

14 

10/05 



140 

49 

09/85 

Floppy/Data- 

Schnell wie der Wind flbsr. Speoddos, TurboAcceM) 

22 

in 

04/85 

10/88 

Sport 

Bojspiolo: Frank Rrano's R + Barry McCulgan 



4 Prologic DOS 




Champions. Bl 

49 

12/85 


Das große Rennen: Schnollo Bandlaufwerke 

37 

10/85 


Handkantonschlag per Joystick: Karateka * Eeplo- 

16S 

I1/8S 



30 

10/85 


ding Fiat 




RoppiOD) 




Nick Faido Pleys tho Opon (Golf) 

159 

10/8S 


Gut gokauft ist halb gespeichert (Marktüberaicht 

38 

lo/as 


Raliyn Speedway 

49 

07/85 


Disketten) 




Sapnhot (Eishockey) 

50 

07/8S 

Grafik 

Dio Vldeoworkstatt (Digitttor-Tbst) 

32 

05/85 


Summer Games 11 

146 

09/83 


Digitalbilder md C 64: PnntTbchiuk Digittoer 

24 

01/85 


World Sones Baseball 

49 

07/8S 



23 

01/85 

Diverses 

New York City und Air Support 

145 

OB/85 


Gute Connections — Übersicht Schnittstellen 

21 

03/85 






Card/Pnnt 40 - Das Allround-Iniorface 

ao 

03/85 






Das Wiesemann-Centtonlcs-Intoriaco 

18 

03/85 






Erst ein IEC-Bus öffnet Tür und Tor 

34 

03/86 

Hardware-Tips and Bananleitnngen 



Monltora 

(4FohJcn.4/6-eS) 

28 


Audlo/Video 

s«aE&m »»*.. 

90 

22 

02/85 

02/85 

Musik 

Marktübonicht Monochrome Monitore 

Dio Summe des Meisten: löst Voice Master 

30 

19 

12/85 

02/85 


(♦ Fehlorteufol 3/85) 




Trommelwirbel: Tbst Digital Drums 

45 

08/85 


Mit 5 Mark xu neuen Dimonnonsn (Srereoanlagc 

34 

05/85 


Die Musikhardware mim C 64 

17 

09/55 





Ossllotkop 


36 

04/85 

C 16 

Em Monitor ist genug (RGB + Composito an C 128) 

16 

10/85 

Roboter 

Roboter selbst gebaut (Fachortechnlk) 

167 

10/85 

Alt« DaSaotto am C 16 

31 

04/83 

Scanner 


30 

06/BS 

Eingabe¬ 

geräte 

Alter Joystick am C 16 

35 

05/83 

Speiche: 

Sporchertunlng VC 20: Test 64 KByte Karte 

26 

01/6S 

Dor Hexer - Zusaatastatur für den MSE 

48 

10/85 

Steuern 

Flottes Türmchen: MEA-Intortaco 

116 

08/ES 

EPROM 

EPHOMs im Expansion-Fon 

46 

10/85 






EPROM-Trans — Dlo Supor-Erwoitoreng 

42 

10/85 






Das 64'er EPROM-Programmlorgerat. Tbll 1 

44 

12/85 





Floppy/Data- 

Diskettenlaufwerk 1541 selbst justiert 

32 

10/85 

Korse 




sotto 

Die Dause ne streikt nie wieder (Anpassung dos 

34 

10/85 




IEC-Bus 

Tbnkopfo) 

44 

07/85 

Assembler 

Assembler ist keine Alchimie, Tbd 5 

142 

01/85 


(• Fehlcrtoufel 10/85) 


Assembler ist keine Alchimie, Ted 6 

134 

02/85 

Joystick 

Joystick im Solb«bau 

33 

03/85 


Assembler ist ketno Alchimie, TbU 7 

Assembler Ist kerne Alchimie. Tbd 8 

134 

138 

03/85 

04/85 

RS232/V.24 

VC 20 

Dtvoraos 

Das 30-Maik-lnterface (Selbstbau RS232) 

Genau betrachtot: Dio RS232/V.24-SchmttsteUe 

16 KByte-Exwotterung umschaltbar 

Der VC 20 steuert Super O-Kamera 

U oerport-D tf play 

Reset-TBater für olle FJllo (♦ Fehlen. 9/65) 

umachaltung) 

29 

80 

20 

70 

36 

130 

41 

03/83 

05/85 

02/BS 

03/85 

03/6S 

06/BS 

07/55 

C 120 

Comal 

Effektives 

Program- 

Assembler ist kerne Alchimie. Tbll 0 

Assembler Ist keine Alchimie, Tbil 10 

Assembler ist kerne Alchimie. Teil 11 

Assembler Ist keine Alchimie, TbU 12 

Assembler Ist kerne Alchimie. Teil 13 (SchluB) 
Entdeckungsreise duch den C 128 

Comal - Eino Einführung, Tod 3 

Müllabfuhr im Computer Gaxbage Collection. 

TaU 1 

138 

137 

136 

109 

143 

42 

130 

122 

08/85 

07/88 

08/85 

09/85 

10/BS 

12/83 

02/B8 

01/85 





nunton 

Stnngptogramnuerung ln Maschinensprache,TBd2 

147 

02/63 







148 

03/88 

Hardware-Grundlagen 




Tbd 3 

Sortieren mit dem Computor. TbU 1 

146 

64/88 

C 16 

C 16 - gioBer odor kleiner Bruder des C 64’ 

29 

04/63 


Sortieren mit dem Computor, Tbd 3 

138 

03/88 

Computor 

Was bringt dor C 136? 

38 

11/55 


Sortloien mit dem Computor. Tbil 3 

134 

00/85 

Drucker 

Welcher Drucker ist der Richtige? (Grundlagen) 

15 

03/05 


Sorttoren mit dom Computor, Tbil 4 

138 

O0/8G 


Hammerwerke - wie funktionieren Typenrad- 

32 

06/83 


Soitioren mit dem Computor, Teil 3 

134 

09/85 


druckor 




Sortloien mit dem Computor. ToU 6 (Schluß) 

150 

12/85 


Dio Alternativen: Thermo-. Tlntonstrahldmcker 

2« 

07/63 

Extom 

C 64 extont - Der Wog nach draußen. TbU 1 

144 

08/65 


♦ Plotter 



C 64 oxtom - Der Weg nach draußen, Tbd 2 

122 

09/03 

Eingabe- 

Vorstohl S» Ihr Computor? (Wie funktionieren 

44 

09/55 


C64o*tem —Dor Weg nach draußon.TSll3(Schluß) 

129 

10/83 

go:4te 

Eingabegeräte) 



Floppy 

In dio Gohnimntoac dor Floppy elngotaucht. Tod 4 

148 

01/05 

Floppy 

Floppy odor Datasottn? 

129 

oe/ns 


In dio Gohotmnttc dor Floppy elngotaucht. TOÜ 3 

130 

03/B3 

Monitor« 

Wie funktionieren sie, was ist beim Kauftu boachum? 

16 

12/55 


In dio Gehotmnlse dor Floppy elngotaucht. Tbd 6 

143 

0B/63 


Das Kabel sum Momtor: Welcho Normon gib« os? 

28 

12/BS 


In die Cohotmnioso dor Hoppy olngouucht. Tbd 7 

116 

06/03 

Peripherie 

Crafikomgabogor.il Wie funktionieren sie? 

30 

08/83 


(SchluB) 

140 

06/85 





Floppy 

DiroctoryManlpuUttor.cn 11 

103 

10/65 





Grafik 

Hlres 3 - dio (•tarVetweitai itug tum Gtafikkuts, 

133 

02/B5 

Hardware-Tests 




Tbil 1 








Htroa 3 - 15 neue Home Beföhle. TbU 2 

136 

03/08 

80 Zeichen 

Mit 80 ftngt das Loben an (Tbot BOZolchon-Karton) 

17 

04/03 


Hirea 3 - GrafikkuraAnwondung. Tbil 3 (Schluß) 

153 

OB/05 


<♦ Fohlen 0/85) 




Sprites ohne Coholmniaso 

40 

08/BS 










Plus und Minus beim Plus/4 

14 

03/83 


StroiCcUgo durch die Craflkwolt, Tod 2 

149 

11/03 


PC 12B - der Profi (Hatdwareient) 

13 

04/05 

U>goloion 

Logoloton. Tbd 1 

143 

07/D3 


Erster ausführlicher Tbst C 128 PC (Tbd 1) 

16 

06/05 


Logolelen. Tbd 3 

156 

08/BS 

DFÜ 

Erster ausführlicher Test C 128 PC (Toü 2) 

17 

07/BS 


Logoieion TbU 3 (Schluß) 

113 

09/BS 

Markiüberalcht Modems & Akustlkkopplor 

32 

07/85 

Musik 

Dem Klang auf dor Spur. Tbd 2 

136 

01/BS 

Drucker 

Vorglolch: Drucker unter 700 Mark (Tbst* und 

18 

05/85 


Dom Dang auf dor Spur. Tbd 3 

132 

02/03 


Marktüborslcht) 




Dom Klang auf dor Spur. Toll 4 

131 

04/BS 


Tbsts und Markiüberalcht Typenraddiuckex 

35 

00/83 


Dem Klang auf dor 5pur. Ted B 

153 

03/65 


Tbst Brorher EP 44 

27 

07/85 


Dem Klang auf der Spur. Tbil 7 

132 

07/BS 


Brothor TC-600 

11B 

06/85 


Dem Klang auf dor Spur. Tbil 8 

133 

08/BS 


Ritoman C* 

133 

00/85 



126 

10/BS 


Panasonic KX-P1091 

134 

09/85 


Dom Klang auf der Spur. Tbil 10 (Schluß) 

157 

11/85 


Star SG 10C 

133 

09/B5 

Speicher 

Momory Map mit WändotvoxschlAgon. Toü 3 

126 

01/05 


Melchora CP-80X — wio hatten Slo t donn gern? 

35 

10/BS 


Momory Map mit Wandorvorechligen. Tbd 4 

ISO 

03/85 


Cohoimüp Der RH DP 165 

24 

10/BS 


Memory Map mit WandervorechUgon. Tod 5 

144 

03/05 


Epoon GZ 80 — einer für alle 

26 

io/es 


Momory Map mit Wandervorschligen, Tbd 0 

144 

04/85 


MPS 003 — ein Drucker für alle Gelegenheiten? 

40 

1/85 


Momory Map mit Wandorvorechligen. Tbll 7 

120 

06/85 


Epson JX-80 das viclfarblgo Druck-Gonio 

38 

11/05 


Momory Map mit WandorvorachUgon. Tbd 8 

140 

07/8a 


Epson FX-85 nouo Röteren: 

43 

11/85 


Momory Map mit WandorvorschÜgen. Tod 9 

129 

00/85 


SP 1000 VC - SupoiKai mit Hakon 

41 

11/85 


Momory Map mit Wandorvorachlägon. Tod 10 

112 

09/85 


Der NEC-P2 — das fernöstlich« Wunder 

159 

12/85 


Momory Map mit Wandorvorechllgon, Tbd 11 

133 

10/85 



162 

12/85 



145 

11/85 




















Solu. Aasgabo 



Momoxy Map mit WandorvorachUgon. Teil 13 

146 

12/PS 

Sprachen 

Basic ist out - es lebe Forth 

43 

01/86 

VC 20 

Der gläserne VC 20, Tbil 4 

130 

01/86 


Der gläserne VC 20, Tbil6 

141 

02/BS 


Der gliseme VC 20, Tbil 6 (Schluß) 

156 

03/88 


Software-Tips 



C 128 

Erste Fragen und Antworten sum C 128 

14 

09/85 


Fragen und Antworten sum 12fler 

B0 

10/83 



40 

12/88 

Drucket 

Der MPS 802 lernt Doutsch 

30 

0S/8S 


Ccntroiuce-lnierface für joden Bedarf 

78 

07/05 

Tbxtveraiboi- 


174 

12/85 

tung 

nchtig oingesetst (VuawriioTJp*) 



Tlpo & Trick« 

Autoboot beim C 64 

00 

03/05 



03/H8 


Undefinierte Opcodos des 0502 

84 

03/85 


Durch POKEa rum Erfolg (SpioIo-POKEo) 

83 

03/89 


Tips und ErwoiioiungenxuHi-Eddi und Simons Basic 

88 

03/85 


Hardcopy mit oiner Zeüo (MPS HOI) 

82 

04/85 


VC 20-Prog ramme achUtM» 

B3 

04/83 



63 

04/85 


Basic-Befehle im Griff 

79 

Ofl/88 


Durch POKEs sum Erfolg: Spiolo-POKEs 

78 

06/85 


Formatierte Eingabe 

140 

00/80 


Hi-Toxt (Tb*t ln Hlroo) 

70 

CS/88 


Verbotene Variablen 

66 

09/85 



88 

11/88 


(•» Fohlertoufel 13/116) 




Dor Trick nui dom Joystick <Jor«»ckabfrago) 

34 

11/83 


Verechlodene Tips für Anttngor und Fortge- 

106 

12/83 


schritte ne 


Software-Grundlagen 


Assembler 

Assembler? Assembler! (Einführung) 

32 

01/88 


Assembler Bedienung leicht gemsch«, TbU 1 

160 

12/85 

Compiler 

So orbeiton Compiler 

39 

02/83 

DFÜ 

Ein modernen Abenteuer — Mailboxen in Deutschland 43 

04/85 


Der ereto Kontakt mit DFÜ 

40 

06/88 


Die Notao dor Riet: Btx. Datei P. Iblebox 

46 

06/83 


DFÜ - Was nt das? 

44 

06/63 


Mail box für Anfänger 

30 

07/05 

Dotoi 

Dio wichtigsten Bogrtffo dor Datoivorwaltung 

42 

09/03 


Datolvorwaltung ist nicht glolch Datonbank 

44 

05/63 

Drucker 

Hardcopy loicht gemach! (wie programmiert man 
Hardcopies) 

34 

09/03 

EPROM 

Wie sage ich es motnom EPROM? (EPROM- 
Grondlagen) 

33 

07/83 

Funktionen 

Funktionen für Anfänger 

104 

OS/88 

Lernen 

Besser lernen nur dom Computer 

166 

10/85 

Musik 

Klangprogrammierung ohne Ballast 

19 

09/05 

Spiele 

Taktik- und Srrateglespielo 

40 

03/B5 


Play by Mail und Play by Modem 

153 

09/05 

Sprachen 

Sprachen für Computer 

47 

04/B5 


Sprachen für Computer, Teil 2 

46 

05/85 

Tbxtrcrarbei- 

tung 

Von der Schreibmaschine sum TBxrsystem 

34 

03/85 


Listings zum Abtippen 

Anwendung Der C 64 als Handballnainer (AdM) 
ramilicnplanung (AdM) 

Llgaob — ohne Organisation kein Tbr (LdM) 

Cut ZiolmitdemC64 — SchüSenvoiDinseigebnisac 
(AdM) 

Weißt du, wieviel Stomlem stehen (Stomfcarto) 
(AdM) (-»Fehlen. 6/BS) 

g (AdM) 


' Ein Programm für Hobby¬ 


elektroniker (AdM) 
Prüfiingsfragon (AdM) 

Fa in Latein mit dem C 64 (AdM) 
Lyrik-Maochme (AdM) 
Hypra-PUios (LdM) 

Der Chemie-AssHrtont (AdM) 


6« 


SMON Teil 1 Ohno guten Werks, geht es nicht 
SMON Tbil 4 (♦ Fehlorteufel 4/05) 

SMON Tbil 5 (-»Fehleneutel S/B5) 

Hypm-Asa (IdM) 31 

Neues vom SMON (» Fohlertoufel 11/85) 87 

Roassembler su Hypra-Aas (. Fohleitoutel 12/85) 97 

Ergänzungen su Hypra-Aas (bedingte Verrwoigungen) 96 
Tips & Tncks sum SMON (inkluaivo Dukmocutor) 100 
g C 64: Büdachumatouemng 00 


Eiwmtniung und Masken 


03/85 

03/85 


07/85 

08/85 

09/85 

10/85 

11/88 

I1/8S 

12/85 

01/85 

02/85 

04/85 

07/83 

I0/8S 

11/89 

11/88 

12/BS 

04/85 



(-» Fohlerteufel 3/85) 

52 

04/86 

Bildschirm- 

Auflösung Wettbewerb Büdschirmseite: 

158 

09/85 

seuo 

Drei Tbp-Programmo 



DFÜ 

Terminal Programm der Spitzenklasse 
( +Fehleneutel 10/85) 

149 

07/85 

Datei 

SMU - Der Maskengenerator (LdM) 

50 

12/83 

Drucker 

Pnnt-Lis« (formationo Listings) 

70 

04/85 



69 

06/85 


C 64 Schreiberling - Drucken wio gemalt 

54 

10/H8 


Koalabildor Farbhaidcopy auf Epson JX-80 

39 

11/05 


Die nächsten 14 aus d. Einxellerwettbowerb 

137 

01/05 


11 neuo Einzeller! (» Fehlorteufel 5/9/85) 

153 

04/05 

Floppy 

Hypra-Load mal 4 (. Fohlerteufel 3/85) 

02 

01/05 



75 

04/flS 



«3 

06/05 


Diak-Deaignor 

70 

09/05 


Herzoperation (Hypra-Losd. Hypra-Aa. . DOS8.1 ♦ 
Centronics) 

104 

11/85 

Grafik 

Vier Panudt>VlCs mit 33 Sprites 

70 

01/05 


Hi-Eddl: Zeichen- und MalproggrammfDfM) 

50 

01/85 


Ala die BÜdor laufen leimen (Puoudo Scroll) 

011 

02/85 


Eloktrotechnischoo Zeichnen mit dom VC 20 

71 

03/05 


Supergrafik 111 (3D Crafikon nur dein VC 30) 

73 

04/85 


Funktionen Im Nets (3D-Crafik) 

09 

04/83 


Window 04 — Fonctertnchnik für don Comnvodoro 

87 

04/85 


Mini Grafik VC 20, Crafikhilto 

09 

05/83 


Trickfilm mit dem C 64: Bowoglo 3D-Grafik (LdM) 

51 

05/8S 


(-»Fehlorteufel 6/83) 

Xurvenplotten ml! Hardcopy auf dom C 16 

00 

00/85 


Doppolto GrufiksuDOsung filr C 128 

33 

11/85 


Bilder aus oiner anderen Dimension (Apfelmännchon) 80 

11/85 

Intelligenz 

VIC - das intoUlgonlo Programm 
(Wottbewerbsmogor) 

173 

05/85 

Musik 

Sound Machino (• Fohlertoufol 10/85) 

23 

Kl/85 


Sound Master (Basic-Erwnltenmg) 

31 

09/85 

Schach 

Schachmoigtor erweitert 

OB 

04/88 

Splolo 

Das Grab des Phnraoh (LdM) <. Fehlorteufel 3/85) 

31 

02/85 


0 - Bert (VC 20) 

70 

02/B5 


Cclumtralnlng mit Super Memory 

81 

02/83 


0510 - Dio Sucho nach der Proxonnor 

70 

03/03 


Samurai (Stratoginspiel) 

72 

06/05 


Schach domC64 Schachprogramm rum AbOppen 

72 

08/HS 


Spielen auf zwei Bildschirmen: 

Zcichenaolzscrotling (LdM) 

51 

09/05 


Pac-Man unter dor Lupo 

70 

10/05 


Block Out 

84 

11/85 


Seekrieg per Tblcfon (Schiffe versenken per Modem) 

02 

12/B5 

Spiolehilfo 

Die SctoU-Maachine - D Fenster zur Spielewelt 
(LdM) (-»Fehlen- 11/85) 

52 

06/85 

Sprachen 

Tmy Forth Compiler (LdM)(-»Fehlen. 9/85) 

51 

00/85 

Tbxtvcrarbei- 

Hypra-Thx: (LdM) (* Fehlorteufel 11/05) 

50 

10/85 

tung 

Drucksache - Hypra-Toxt, Tbil 2 

71 

11/85 

Tips & Tricks 

Große Buchstaben 

89 

01/85 


Rostoro für Unterprogramme 

90 

01/85 


Tips A Tncks 


Transfer 

Unter 

programmo 

Wita 


Parameterübergabe an Maschinensprachoprogramme 88 

01/86 

Cumonifouerung leicht gnmncla 

B6 

02/65 

Maschinonsprachepiogramme auf Disk speichern 

91 

02/85 

Basic-Zellen genau betrachtet 

87 

02/85 

RAM-Floppy 

92 

02/85 

22 Read Error - Theone und Praxis 

41 

03/85 

Floppy-Llslor (• Fohloneufel 4/85) 

83 

03/63 

Longocreon beim VC 20 

83 

09/85 

C IG: Help und Trace verbessert 

84 

03/83 

Ordnung 1« das halbo Loben (Directory-Sonor) 

77 

05/85 

Dokumontauorjhilfo, CrostHoferenz-Liste C 64 

159 

06/ßS 

(Wettbewerb) 




76 

06/65 

Userport (. Fehlenoufol U/85) 



Fenster-Be fohle für den C 16 

04 

07/85 

Elektronische Morkseltel 

03 

07/85 

File-Compsclor 

02 

07/85 

REM-KUlor (. rehlortoufol 9/BS) 

75 

07/85 

Bas ic-Slan-Generator 

74 

07/85 

Komfortable Em/Aiisgaboroutmo 

77 

07/85 

Bildochummsakon leicht orutoUt 

86 

08/B5 

Dor Bltmsp-Compander (HiRao-BÜder komprimieren) 

81 

08/05 

H'/pra-Ssve 

79 

08/HS 

•Procoduro' - odor der C 64 kann lernen 

78 

08/85 

Aufgowickelt - UstlngscroUlng für VC 20 

63 

09/05 

Programmgonorator für den C 64 

116 

10/85 

Cross-Kef optimiort 

83 

10/06 

Splelotxalnor: Spilteklll 

06 

U/85 

TlppUtUiry 

99 

13/85 


OO 

13/05 

BOZelchon-Crafik für den C 128 

78 

12/85 

Hyper Scieon (Spntes auf dem Bildsclürmrand) 

76 

13/85 

Dor C 64 als PET: PETSimuUtor 

07 

01/00 

Fotmatiorte Eingabe 

156 

01/85 

Notlandung (Das lustigste Programm) 

156 

02/00 

Epeon bedruckt Ontoroior (AdM) (. Fohloneufol 0/BB) 50 

04/85 


Software-Tests 


Aasombler 

Basic- 

Compiler 

Basic- 

Eiwoitenmg 


Compiler 

DFÜ 

Datei 

Grafik 


Lernen 

Musik 

Sprachen 


Tbxtvorarbei- 

tung 


Assembler im Tbst Tbil I 34 

Assembler Im Tbit. Teil 2 30 

Baalc-Compiler im Tbst (•» Fbhlertoufol 5/85) 34 

CBasic — Alles drin 28 

Axtoc Basic — von lodern etwas 42 

Macro-BaBc: Die Unterprogramm-Bibliothek 137 

Dorf es etwas mehr aoln? — Tont Business-Basic 120 

Dan InleUoctool i:a 

Ibrmel 64: Das Mulbtalont 158 

Basic 04 - ein vielseitiger BaMccompilor 30 

Terminal 64 - Schwer auf Draht 34 

Torminalprogramme: Oboralcht 42 

Verglcichstont - 7 Datolverwaltungen auf cinon Blick 118 
Aufgertumt mit MainfUe U 157 

Ich glaub mein Drucker pfeift (Tbst: Printahop) 34 

Malkasten adel (Tbst Blaiing Paddlet) 40 

Molon auf dom Bildschirm (Malpiogrammo) 34 

Graflkprogrammo auf oinon Blick: Maiktübereicht 3B 
Vergleicbatest: Grafik-Erweiterungen 37 

Softlearning - die wiche Wcllo des Lomons 40 

Nachhilfe (Übersicht Lernsoftware) 26 

Vokabeltrainmg mit dom Computer 39 

MarktObereicht: Lernsoftware 168 

Musik für den C 64: Übersicht Musiksoftware 26 

The Music System — Zwei auf einen Schlag 164 

Logo — die Spracho für Einstoigor 133 

Dor Ada Traimngskurs auf dem C 64 129 

Promal — die neuo Spracho für Profis? 124 

Forth-wirta mit M&T-Fonh 64 126 

Was leistet Pilor? 121 

Pascal für Profis (Profi-Pascal) 122 

S-P”*®* . „ >« 

C — die proletanonollo Programmlereptache tüi 140 

don C 64 

Barne 7.0 - Das Supcrbaac dos C 128 18 

Co mal 80 — die universelle Programmiersprache 151 
Turbo-Pascal auf dom C 128 30 

Homeword - Toxtvoiaiboitung su Hause 36 

Tbü-TVutt - Flexibilität ist Trumpf 38 

Texte gut im Griff (Übersicht Tbxtvorarbeitung) 38 

(+Fehlenoufol S/8S) 

Protest — TVxtpmfl mit B0 Zeichen 133 

Texte mal Plus kontra Visawnto 132 

Dor Preinhammer (Tbst: StaiTextor) 135 

Pspercbp — ausdrücklich gut 44 


01/88 

02/BS 

02/B3 

01/05 

04/86 

06/85 

08/86 

08/85 

12/85 

04/85 

02/05 

06/85 

07/85 

10/85 

04/85 

04/85 

06/85 

0B/85 

09/85 

01/85 

02/85 

03/85 

10/85 

09/8S 

12/85 

05/85 

05/85 

07/85 

07/85 

08/85 

08/85 

09/85 

09/85 


10/85 

10/85 

U/85 

03/83 

03/83 

04/85 

«tt/HS 

06/05 

0G/BB 

11/85 


So machen's andere 


I«mcn 

Gelungener Ernstrog (Informatik-Unterricht) 

159 

04/B5 

Semmeln 

Seminelservtce mit dem C 04 

147 

06/69 

Sport 


157 

07/85 


Turnionmowunung 



Hilfe 

Computer für Behinderte 

102 

12/06 


Audi die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDEIHEFT 01/M: TIM S TRICKS 

Unentbehrliche Anwendungsiistings tür C 64 und 
VC 20. 


SONDERHEFT 02/S5: ABENTEUERSPIELE 

Fesselnde Adventures mit zahlreichen Lösungen und 
einem Pmgrammierk urs. 

SONDERHEFT 03/05: SPIELE 

Heiße Listings für Spiele-Fans und eine große 
Marktübersicht. 


SONDERHEFT 04/S5: GRAFIK S DRUCKER 

Von der 3D-Darsteüung bis zur Hardcopy-Routine, 

SONDERHEFT 05/15: FLOPFT/MTASETTE 

Soft-Tbols zum komfortablen und noch schnelleren 
Betrieb von Floppy und Datasette. 

SONDEAHEFT 04/85: AUSGEWAHLTE SUPER-USTING5 

Top-Themen aus 64’er bringt eine Auswahl der besten 
64'er Programme. 

SONDERHEFT 07/85: ANWENDUNGEN/DFÜ 

Leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 01/84: PC 128 

Komplette Beschreibungen von C 128 und C 128D 
und passendem Zubehör. Die Untersch iede sum C 64. 

SONDERHEFT 02/84: TIPS S TRICKS 

Super-Listings. ausführliche Grundlagen und die 
besten Tips&Tricks und Eimeiler aus 64'er. 


SONDERHEFT03/84: CI4, CI 14, VC20 UND PIUS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16, C116, VC20 und Plus 4. 



Am besten 
gleich mitbestellen: 
Pie 64'efrSqmmelbox 

Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64'er-Sammelbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 04/85) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 




















































ABENTEUERSPIELE 


C64 


603 

IF P*="ZEICHNUNG"THEN S=25 

<09B> 


OSUB 708 

<088 > 

604 

XF P*="ZUENDSCHNUR"THEN S=28 

<094> 

845 

IF V=B AND S=15 AND SP*(3)=G*(3)AND RA 


605 

IF P*="ZUENDE"THEN V=25 

<046> 


03 THEN GOSUB 3600:0=1 

<000> 

609 

GOTO 345 

<013> 

846 

IF V=7 AND SP*(2)=G*(2)AND G=2 AND RA< 


700 

REM *** STANDARD-ANTWORTEN *********** 



>3 THEN GOSUB 3800:0=1 

< 121 > 



<208> 

847 

IF V=19 THEN PRINT"IDOWNJSIE SINGEN EI 


701 

PRINT"IDOWNJKEIN WEG IN DIESER RICHTUN 



N LIED.0=1 

<202> 


G !":Q=1:RETURN 

<069> 

848 

IF V=6 AND S=ll AND SP*(5)<>""THEN PRI 


702 

ZV=RND(1):IF ZV<0.8 THEN PRINT"IDOWN»D 



NT"IDOWNJSIE STELLEN FEST,DASS SIE GIF 



AS VERSTEHE ICH NICHT!":Q=1:RETURN 

<071> 


TIG SIND!“:0=1 

<024> 

703 

PRINT"(DOWNJWAS SOLL DENI2SPACEJD A SI 


B49 

IF SP*(9)<>""THEN WL“1 

<21B> 


2SPACE»BEDEUTEN ? !":Q=1:RETURN 

< 179> 

850 

IF SP*(9)=""THEN WL=3 

< 121 > 

704 

PRINT“IUP5BITTE EINE KORREKTE EINGABE! 


869 

RETURN 

< 165> 


" s R=0: Q= 1: GOTO 347 

<069> 

870 

GOSUB 730:IF DE=1 THEN RA=15:G0T0 900 

<233> 

705 

PRINT"(WHITE,DOWN JOK“:Q=1:RETURN 

< 147> 

871 

IF KA=1 THEN GOSUB 790 

<222> 

706 

PRINT“(DOWNJHIER GIBT ES NICHTS MEHR Z 


872 

IF ZU=1 AND SP* <2)< >""THEN RA=12:G0T0 



U NEHMEN!":Q=1:GOTO 989 

< 175> 


900 

<03B> 

707 

PRINT“IDOWNJSIE HABEN DOCH NICHTS MEHR 


873 

IF ZU=1 AND SP*(2)-""THEN GOSUB 792 

<063> 


!":Q=1:GOTO 989 

< 176> 

899 

RETURN 

< 195> 

70B 

PRINT"{DOWN»SIE ENTDECKEN NICHTS BESON 


900 

REM *** TODESANZEIGEN **************** 



DERES.":Q=1:RETURN 

< 132> 


************************************** 

<254> 

709 

PRINT"IDOWN»IST SCHON OFFEN!":Q=1:RETU 


901 

GOSUB 30000 

< 135> 


RN 

<075> 

902 

ON RA GOTO 905,907,909,911,913,915,917 


710 

PRINT"IDOWN»IST SCHON ZU!":0=1:RETURN 

<110> 


,919,922,923,925,927,929,931,933,935,9 


711 

PRINT"IDOWNJSIE WARTEN.DIE ZEIT VERGEH 



37 

<022> 


T...":Q=1:RETURN 

<074> 

903 

ON RA-17 GOTO 939,941,943,945,947,949 

<067> 

712 

PRINT"IDOWN»SOVIELE SACHEN KOENNEN SIE 


905 

PRINT"SIE SIND VON DER PALME GESTUERZT 



NICHT TRAGEN!I2UPJ":Q=1!RETURN 

<086> 


UND 

<061 > 

713 

PRINT"IUPJWIESO DRUECKEN SIE 'RETURN' 


906 

PRINT"HABEN SICH DABEI DAS GENICK GEBR 



OHNE ETWAS EIDOWN»INZUGEBEN ?":UA=0:GO 



OCHEN!":GOTO 30100 

<006> 


TO 100 

<230> 

907 

PRINT"DIE FLEISCHFRESSENDE PLANZE HAT 


730 

R=0:s=0:V=0:G=0:Q=1:RETURN 

< 180> 


SIE 

< 102> 

749 

REM *** STANDARD-REAKTIONEN ********** 


908 

PRINT"VERSPEIST!":GOTO 30100 

<059> 


■M-***************#***************#***** 

<002> 

909 

PRINT"DER SKORPION HAT SIE GESTOCHEN!D 


750 

GET B*:IF B*<>CHR*(32)THEN 750 

<023> 


AS GIFT 

<213> 

751 

X*="":RETURN 

<023> 

910 

PRINT"HAT SIE GETOETET!!":GOTO 30100 

<233> 

760 

FOR 1=0 TO 10:IF RA*(RA,I)<>“"THEN PRI 


911 

PRINT"DER GORILLA HAT IHNEN DAS GENICK 



NT"IDOWN,YELLOW J"RA*(RA,I) 

<197> 


GE- 

<006> 

761 

NEXT:RETURN 

< 192> 

912 

PRINT"BRÜCHEN!":GOTO 30100 

<058> 

777 

ZV=RND(1):IF Q=0 AND ZVC.7 THEN PRINT" 


913 

PRINT"SIE SIND IN DEN SUMPF GESTUERZT 



IDOWN»DAS GEHT NICHT!” 

< 197> 


UND 

<024> 

778 

IF Q=0 AND ZV>.7 THEN PRINT"IDOWNJWAS 


914 

PRINT"ERSTICKT!":GOTO 30100 

<204> 


WOLLEN SIE DENN DAMIT BEZWECKEN?" 

<136> 

915 r INT"DIE FRUECHTE WAREN GIFTIG!":GOTO 


779 

RETURN 

<075> 


30100 

<095> 

790 

PRINT”IDOWN»DIE KANNIBALEN DROHEN SIE 


917 

PRINT"DIE GROSSE,SCHWARZE SPINNE HAT S 



EINZUHOLEN!! 

<053> 


IE 

<243> 

791 

L1=1200:D=TI:DE=1:RETURN 

<02B> 

918 

PRINT”GEBISSEN!":GOTO 30100 

<102> 

792 

PRINT"IDOWN »SIE HOEREN DEN KNALL EINER 


919 

PR INT "DER STEINHAGEL HAT SIE IN DIE TI 



EXPLOSION!":ZA=0:T=0:ZU=2:RA*(14,2)=" 



EFE 

<243> 


" 

< 142> 

920 

PRINT"GERISSEN!“:GOTO 30100 

< 108> 

793 

IF KA=1 THEN PRINT"IDOWNJSIE HABEN DIE 


922 

PRINT"SIE SIND IN DIE TIEFE GESTUERZT! 



KANNIBALEN IN DIE FLUCHTI2SPACE»GESCL 



!":GOTO 30100 

< 192> 


AGEN.“ 

<139> 

923 

PRINT"DIE WAENDE HABEN SIE ZERQUETSCHT 


794 

RA* ( 13,2>="“: RA* <15,2)="“: RA* (20,2)='"' 



!!":GOTO 30100 

< 127> 


:RA*(12,2)="":RETURN 

<245> 

925 

PRINT"DIE EINSTUERZENDE TREPPE HAT SIE 


800 

IF T=1 THEN 870 

<224> 


UNTER 

< 105> 

801 

IF RA* (12,9)0" "THEN WL=1 

<016> 

926 

PRINT"SICH BEGRABEN!":GOTO 30100 

<034 > 

802 

IF RA*(12,9)=""THEN WL=3 

<245> 

927 

PRINT"DER EXPLODIERENDE BEHAELTER HAT 


805 

IF V=1 AND WI>WL THEN GOSUB 712:GOTO 8 



SIE IN 

< 138> 


38 

<1B0> 

928 

PRINT"STUECKE GERISSEN!":GOTO 30100 

<234> 

B10 

IF V=1 AND RA* <RA,G)< >" "THEN GOSUB 705 


929 

PRINT"DAS GIFT DER SCHLANGE HAT IHRE A 



:SP*(G)=G*<B>:RA*(RA,G)=“":WI=WI+1:G0T 



TMUNGIDOWN» 

<231 > 


0 849 

<234> 

930 

PRINT"GELAEHMT.SIE SIND ERSTICKT!":GOT 


815 

IF V=1 AND G>0 AND SP*(G)=G*<G)THEN PR 



0 30100 

<215> 


INT"IDOWN»DAS HABEN SIE SCHON!":Q=1 : GO 


931 

PRINT"DER JAGUAR HAT SIE GETOETET !": BO 



TO 899 

<045> 


TO 30100 

< 145> 

820 

IF V=1 AND G>0 AND RA*(RA,G) =" "THEN PR 


933 

PRINT"DIE KANNIBALEN HABEN SIE MIT EIN 



INT"IDOWNJHIER GIBT ES DAS NICHT!":Q=1 



ER KEULE 

<219> 


: GOTO B99 

<211 > 

934 

PRINT"ERSCHLAGEN !": GOTO 30100 

<13B> 

825 

IF V=2 AND G>0 AND SP*(G) =" "THEN PRINT 


935 

PRINT"(6RIGHTJSIE SIND VERBLUTET !": GOT 



" IDOWN»DAS HABEN SIE DOCH GAR NICHT!": 



0 30100 READ Y. 

< 118> 


Q=1 : GOTO 899 

<052> 

980 

A=0:FOR 1=0 TO 10 

<242> 

830 

IF V=2 AND SP*(G)=G*(B)THEN GOSUB 705: 


9B1 

: IF RA* <12,9)0" "THEN WL=1 

< 157> 


RA*(RA,G)=G*(G) : SP*<G) ="": WI=WI-1 : GOTO 


982 

: IF WI>WL THEN GOSUB 712:RETURN 

<141> 


B49 

<050> 

983 

IF RA* (RA, 1)0" "THEN SP* (I) =RA* (RA 


832 

IF V=1 AND S=1 THEN GOSUB 980:Q=1:IF A 



,1):RA*(RA,I)="":A=1:WI=WI+1 

< 134> 


=1 THEN GOSUB 705 

<205> 

984 

NEXT:IF A=0 THEN GOTO 706 

<215> 

835 

IF V=2 AND S=1 THEN GOSUB 986:0=1:IF A 


985 

RETURN 

<025> 


=1 THEN GOSUB 705 

< 113> 

986 

A=0:FOR 1=0 TO 10 

<24B> 

838 

IF S=4 THEN GOSUB 990:Q=1 

< 103> 

987 

: IF SP*(I > < >"" THEN RA*(RA,I)=SP*(I) 


840 

IF V=4 THEN GOSUB 711:GOTO 899 

<069> 


: SP* ( I )="": A=1 : WI=WI — 1 

<039> 

842 

IF V=5 AND SP*(5) <>" "THEN GOTO 999 

<021 > 

988 

NEXT : IF A=0 THEN GOTO 707 

<235> 

843 

IF V=5 AND SP*(5) =" "THEN PRINT"IDOWNJS 


989 

RETURN 

<029> 


IE HABEN NICHTS ZU ESSEN !": Q=1 : GOTO 89 


990 

A=0:PRINT"IDOWNJSIE HABEN:":FOR 1=0 TO 



9 

< 166> 


10: IF SP* (1)0" "THEN PRINT" (YELLOW,DO 


844 

IF V=6 AND S>OG OR V=6 AND S<UG THEN G 



WN»"SP* ( I >: A=1 

<077> 




991 

NEXT : IF A=0 THEN PRINT"(YELLOW,DOWN»NI 




100 
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CHTS“ 

992 RETURN 

999 PRINT"(WHITE,DOWNJSIE ESSEN VON DEN FR 
UECHTEN!“:FOR 1=0 TO 3000:NEXT:RA=6:GO 
TO 900 

1000 PRINT SPC(9>"{GREEN,SPACE,GREY 1>003? 


<213> 

<032> 


1001 

1002 

1003 

1004 

1005 

1006 

1007 

100S 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1019 

1020 


1050 

1120 

1125 

1130 

1135 

1140 

1150 

1160 

1300 


1399 

1400 
1500 
1510 
1600 


PRINT SPC(9)"WtGREEN,5SPACE> i(14SPACE 
,GREY 1>G" 

PRINT SPC (9) "H{GREEN, 2SPACE>tftRVSON>i 
¥{RVOFF>5U{RVSON>i<RVOFFl-rait9SPACE,G 
REY 1>2" 

PRINT SPC(9) "H(GREEN,SPACE,RVSON>j£U 1 
*£Uo U¥(RV0FF,8SPACE,GREY 1 >2" 

PRINT SPC(9) "HtGREEN>BtRVSON>ütRVOFF 
>2Ü(BROWN , RVSON >7? {GREEN , RVOFF>¥A2(RV 
SON >iä.(RVOFF , BSPACE , BREY 1 >2" 

PRINT SPC <9) "H{GREEN>J1 {RVSON>i (RVOFF> 
i(2SPACE , BROWN , RVSON >T?(RVOFF , SPACE , G 
REEN,SPACE JAKRVSON >U(RVOFF >V{SSPACE,G 
REY 1>2" 

PRINT SPC(9>" W (GREEN,5SPACE,BROWN,RVS 
ON >?? {GREEN , RVOFF , 9SPACE >£(3SPACE , GRE 

Y 1>2" 

PRINT SPC <9) "Tf (GREEN , 5 SP ACE , BROWN , RVS 
DN >2?(GREEN,RVOFF,SPACE,BROWN,5SPACE, 
GREEN , RVSON >£ü¥{RVOFF >£(RVSONJ,£i.¥{GRE 

Y 1,RVOFF>2" 

PRINT SPC(9)"ff(BROWN,5SPACE,RVSON>??{ 
RVOFF , 5SPACE , GREEN , SPACE , RVSON JUAKRVO 
FF >U(BROWN,RVSON >?(GREEN,RVOFF > iE (RVS 
ONJ£(GREY 1.RVOFF>2" 

PRINT SPC(9)"2(GREEN,5SPACE,BROWN,RVS 
ON >??{GREEN,RVOFF,6SPACE>2Y(SPACE,BRD 
WN,RVSON >?(GREEN,RVOFF,2SPACEJ£(GREY 
1)E" 

PRINT SPC(9)"H(GREEN,5SPACE,BROWN,RVS 
ON >22(GREEN,RVOFF,9SPACE,BROWN,RVSON > 
2(GREEN,RVOFF,3SPACE,GREY 1 >2" 

PRINT SPC(9)"H(SPACE,GREEN,4SPACE,BRO 
WN , RVSON >22'{GREEN , RVOFF , 4SPACE , ORANGE 
,SPACE,GREEN,4SPACE,BROWN,RVSON >2(GRE 
EN,RVOFF,3SPACE,GREY 1 >2" 

PRINT SPC£9)"H(GREEN,4SPACE,BROWN,SPA 
CE,RVSON>2?(GREEN,RVOFF,9SPACE,BROWN, 
RVSON >2(GREEN,RVOFF,3SPACE,GREY 1>2" 
PRINT SPC (9> "H(ORANGE>T(RVSON>tTYT(4SP 
ACE >T7G (RVOFF rr^m (SPACE , BROWN , RVSON > 
2(ORANGE,RVOFF,3SPACE,GREY 1>2" 

PRINT SPC(9)"TKORANGE.RVSON,SPACE>ü(2 
SPACE >Ü(2SPACE >JL (3SPACE »£ (6SPACE >T7(G 
REY 1.RVOFF>2" 

PRINT SPC <9)"K(ORANGE,RVSON,3SPACE> M 
i(3SPACE >U(5SPACE>i(2SPACE >i(SPACE,GR 
EY 1, RVOFF >5" 

PRINT SPC<9)"(ORANGE,SPACE,GREY 1>TTT 
TTTTTTTTTTTTTTTTT " 

RA=1:0G=6:UG=6 

PRINT"(GREENJSIE BEFINDEN SICH AM SUE 
DSTRAND EINER(3SPACEIUNBEKANNTEN INSE 
L. 

GOSUB 760 

PRINT”(WHITE,DOWNIMOEGLICHE RICHTUNBE 
N : N" 

GOSUB 750 
GOSUB 100 

IF S-5 THEN GOTO 1000 

ON R GOTO 2000,1160,1160,1160,1600,11 
60 

GOTO 1300 
GOSUB 701 

IF V=6 AND S-6 THEN PRINT"(DOWNJSIE U 
NTERSUCHEN DEN STRAND.Q=1:IF Rl—0 T 
HEN GOSUB 1500 
GOSUB 777 
GOTO 1130 

IF Rl-0 THEN RA*(1,1>-G*(1):R1=1 
GOSUB 760:RETURN 

PRINT"(DOWNJSIE SITZEN AUF DER PALME. 


< 212 > 
<247> 
<251 > 

<214> 

<076> 

< 100 > 

<02B> 

<057> 

< 104> 

<247> 

<01G> 

<091 > 

<016> 

<093> 

< 173> 

< 175> 

<0B5> 

< 152> 
<051 > 


< 210 > 
< 122 > 

<127> 
< 181 > 
<05B> 

< 143> 

< 188> 
< 122 > 
<168> 


1610 GOSUB 100 

1620 ON R GOTO 900,900,900,900,900,1650 
1630 IF V=4 THEN GOTO 1610 
1640 GOTO 900 
1650 GOSUB 705:GOTO 1130 
2000 PRINT SPC(9)"(GREY 1,5 


<225> 
<201 > 
< 182> 
< 101 > 
<029> 

<213> 
<030> 
<005> 
< 138> 
<108> 
<072> 


_ <068> 

2001 PRINT SPC (9) "2{RVS0N,SPACE>2(SPAGE,GR 
EEN>2(GREY 1,SPACE,RVOFF,SPACE,RVSON> 

5”(2SPACE , GREEN > Vf (GRE Y 1 .SPACE>22 ä(SP 
ACE,GREEN > R (GRE Y 1,3SPACE,RVOFF>2" <192> 

2002 PRINT SPC (9> "ff(RVSON,SPACE>2(SPACE,BR 

EENJJJ(GREY 1, SPACE , RVOFF JE (RVSON >1? H( 
GREENJW(GREY 1,SPACEJÜ(2SPACEJ£(SPACE 
, GREEN Jl"(GREY 1 ,3SPACE,RV0FF Je" <198> 

2003 PRINT SPC(9)“HIRVSON,SPACEJfi(SPACE,GR 
EENJf (GREY 1,SPACE,RVOFF>H(RVSON,2SPA 
CE JVT (GREEN JT(GREY 1, SPACE Jfl(2SPACE >H( 

SPACE , GREEN , RVOFF >2 (GREY 1 , RVSON ><J(2S 
PACE ’, RVOFF >2" < 102 > 

2004 PRINT SPC<9)"R(RVSON,SPACEJÜISPACE,BR 

EEN,RVOFF J2(GREY 1,RVSON>2<RVOFF>2<RV 
S0N>2(2SPACE,GREEN,RVOFFJT(GREY 1,RVS 
ONJH(2SPACE>a(2SPACE,GREEN,RVOFFJ2(GR 
EY 1,RVSON,3SPACE,RVOFFJE" <133> 

2005 PRINT SPC<9)"HIRVSON,SPACEJH(SPACE,GR 

EEN,RVOFF >2(GREY 1,RVSON,SPACE,RVOFF J 
2(RVSON,3SPACE,GREEN,RVOFF >2(GREY 1,R 
VSON JÜ1K4SPACE,GREEN,RVOFF >2(GREY 1,R 
VSQN>2(2SPACE,RVOFF >2" <046> 

2006 PRINT SPC<9)"K(RVS0N,SPACEJHISPACE,GR 

EEN,RVOFF J 2(GREY 1,RVSON,SPACE>T{3SPA 
CE,GREEN,RVOFFJ2(GREY 1,RVSON>2 2(3SP 
ACE,GREEN,RVOFF J2(GREY 1,RVSON,2SPACE 
J2(RV0FFJ2" <226> 

2007 PRINT SPC(9)"H(RVSON,SPACE>H(SPACE,GR 

EEN,RVOFF JH(GREY 1,RVSON,SPACE JW2(2SP 
ACE,GREEN,RVOFFJ2(GREY 1,RVSON>2 H(3S 
PACE>2{2SPACE>fi{RVOFF>2" <037> 

2008 PRINT SPC<9)"H(RVS0N,2SPACEJ2a H(2SPA 

CE J£ (GREEN,RVOFF >2(GREY 1,RVSON,3SPAC 
EJ£(5SPACEJH(RV0FFJ2" <238> 

2009 PRINT SPC(9)"2(RVSON,2SPACE>£2(3SPACE 

JÜ2(GREEN,RVOFF >2<GREY 1,RVSON,3SPACE 
>ü(4SPACEJS2{RVOFF>2" <023> 

2010 PRINT SPC(9)”H(RVSON,2SPACE>5(4SPACEJ 
2K(6REEN,RVOFF >2(GREY 1,RVSON JH(2SPAC 
EJH2(3SPACE,RVOFF J2(RVS0N>2{RV0FFJ2“ <201 > 

20!' PRINT SPC(9)"H(RVSON,2SPACEJÜ(3SPACEJ 
IT (2SPACE , GREEN , RVOFF > H(GREY 1 , RVSON , 4 
SPACE >2(3SPACE Jf(SPACE,RVOFF >2" <032> 

2012 PRINT SPC <9)"H(RVSON,2SPACE>2(3SPACE J 

X(2SPACE>fi{4SPACEJX(3SPACE,RV0FFJ2{RV 
SON,SPACE,RVOFFJ2" <019> 

2013 PRINT SPC <9) "H(RVSON,2SPACE JITR(2SPACE 

J1K2SPACE J2(4SPACE J£(3SPACE Ji(SPACE , R 
VOFFJ2" <012> 

2014 PRINT SPC(9)"HIRVSON,2SPACEJH2(2SPACE 

>a(2SPACEJ2I4SPACE J1K3SPACEJÄISPACE,R 
V0FFJ2" <060> 

2015 PRINT SPC <9)"H(RVSON,2SPACEJT2(2SPACE 

J£(2SPACE >a(4SPACE >X(3SPACE J2(SPACE,R 
VOFFJ2" <224> 

2016 PRINT SPC (9)" TTTTTTTTTTTTTTtTTTTT " <027> 

2019 RA=2:OB=1:UG=1 <172> 

2020 PRINT"(GREEN>SIE STEHEN AN EINER HOHE 

H,MIT LIANEN BE-WACHSENEN FELSWAND <219> 

2030 PRINT"(UP,19RIGHTJAN DEREN FUSS EINE <1B3> 

2040 PRINT"GROSSE,FLEISCHFRESSENDE PLANZE 

WAECHST. <051> 

2120 PRINT"(WHITE,DOWNJMOEGLICHE RICHTUNGE 

N « S,W,0" <177> 

2125 GOSUB 750 <165> 

2130 GOSUB 100 <042> 

2135 IF S-5 THEN GOTO 2000 <12B> 

2140 ON R GOTO 2160,1000,5000,2500,2200,21 

60 <189> 

2150 GOTO 2165 <0B3> 

2160 GOSUB 701 <152> 

2165 GOSUB 777 <205> 

2170 GOTO 2130 <19B> 

2200 PRINT"(DOWN,GREENJSIE SIND AN EINER L 

IANE HINAUFGEKLETTERT. <011> 

2222 PRINT“(UP,RIGHTJDA DIESE IN HALBER HO 

EHE RISS,SIND SIE" <022> 

2224 PRINT"AUF DIE ERDE ZURUECKGEFALLEN! <197> 

2226 PRINT"AUSGERECHNET IN DEN SCHLUND DER 

FLEISCH-FRESSENDEN PLANZE!! <209> 

2228 PRINT"JETZT WERDEN SIE VERDAUT!!! <1B6> 

2300 GOSUB 750:GOTO 900 <255> 

2500 REM *** RAUM 2500 ******************* 
**••••••••••*•••••••••••••*•••*•••••* 
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* <094> 

2510 PRINT"{GREEN,DOWN>S1E STEHEN AUF DEM 
WESTLICHEN VORPLATZt2SPACE>EINER VERL 
ASSENEN HUETTE. <203> 

2520 PRINT"AM BODEN SIND ABDRUECKE NACKTER 
FUESSEI2SPACE>UND SCHLEIFSPUREN ZU E 
RKENNEN <121> 

2530 PRINT“{11LEFT>." <146> 

2540 PRINT"HIER SCHEINT EIN KAMPF STATTBEF 

UNDEN ZU HABEN! <14S> 

2545 RA—20:OG=1:US=1 <200> 

2550 GOSUB 760 <096> 

2600 PRINT"{WHITE,DOWNJMOEGLICHE RICHTUNGE 

N J S,W,0{D0WNJ" <046> 

2610 GOSUB 100 <014> 

2620 ON R GOTO 2640,4000,2000,3000,2640,26 

40 <141> 

2625 IF S-5 THEN GOTO 2500 <120> 

2630 GOTO 2645 <071> 

2640 GOSUB 701 <124> 

2645 GOSUB 777 <177> 

2650 GOTO 2610 <186> 

3000 PRINT SPC<9>"{BROWN,SPACE,GREY 1 

f brown , space > <i36> 

3001 PRINT SPC(9)"{GREY 1 >H<BROWN,RVSON>K < 

CGREy’1,RVOFF>g" <219> 

3002 PRINT SPC<9>"H{BROWN,RVSONJHW{GREENJE 

{BROWN JHHBH {GREEN JHTÜ1> {BROWN JHHHRHBTT 
SIGREY 1, RVOFF JE" <238> 

3003 PRINT SPC <9>"H{BROWN,RVSONJfTT{GREEN>f 

{BROWN >HHRH{GREEN JaG.SU {BROWN JWHHWHWf 
5{BREY I.RVOFFJg" <165> 

3004 PRINT SPC <9) "H{BROWN,RVSON JEH{GREEN,R 

VOFF >7{BR0WN , RVSON>fTFfffH{GREEN>OG±Sw'{B 
ROWN > nTlTiWNVfa {GREY I.RVOFFJg'' <204> 

3005 PRINT SPC(9)" K{BROWN,RVSONJHJJ{GREEN,R 

VOFF JE {BROWN , RVSON JfTBESF {GREEN >£. 28g {B 
ROWN>WWh'nWrfä{GREY I.RVOFFJg" <090> 

3006 PRINT SPC(9) " W{BROWN,RVSON>W{SPACE,GR 
EEN , RVOFF Jf? {BROWN , RVSON »fnVM {GREEN >7* 

125T{BROWNJmJTTflHHHaiGREY l.RVOFFJE" <202> 

3007 PRINT SPC(9) "H{BROWN,RVSONJ W GHSrTffflHK 

>fWlVWWWWW2{GREY 1 .RVOFF JE" <225> 

3008 PRINT SPC(9)"H{BROWN,RVSON>H{SPACE,RV 

OFFJ£{GREY 1 >ffg{SPACE, BROWN, SPACE, WHI 
TE , RVSON > f V {RVOFF Ja {BROWN , RVSON JaWHßß 
ßHWHBTGREY l.RVOFFJE" <141 > 

3009 PRINT SPC<9> "ff{BROWN,RVSONJg{RVOFFJ2{ 

SPACE,GREY 1JÜLISPACE,WHITE,3SPACE,BR 
OWN,RVSONJ2SSS7UYJ=fiW2{BREY 1.RVOFFJE" <071> 

3010 PRINT SPCC9)“HIBROWN,RVSON,3SPACEJ7HI 

3SPACEJ3TT U-VB ELUÜS{GREY 1 .RVOFFJE" <069> 

3011 PRINT SPCC9)"H{BROWN,RVSON,SPACEJü TR 

M Tff<2SPACE JiKSPACE , WH I TE JÄTBROWN , SP 
ACEJJ5.T2SPACEJÜTGREY 1 , RVOFF JE" <061 > 

3012 PRINT SPC(9)"WIBROWN,RVSON,3SPACEJ7 i 

{2SPACEJT U ÄB ELI{2SPACE,BREY l,RVOF 
FJE" <215> 

3013 PRINT SPC<9)"K{BR0WN,RVS0NJÄ{2SPACEJ7 
{4SPACE JT {3SPACE JTJBTBR {3SPACE, GREY 1, 

RVOFFJE" <252> 

3014 PRINT SPC<9)"H{BROWN,RVSON,4SPACEJM<6 
SPACEJi{2SPACE JTI2SPACE JÜ(2SPACE,GREY 

l.RVOFFJE" <002> 

3015 PRINT SPC(9)"{BROWN,SPACE,GREY 1JTTTT 

■fTTTTTTTTtTTTTTT {BROWN, SPACE J “ <119> 

3019 RA=3:OB*10:U6=8 <154> 

3020 PRINT"{GREENJDIE HUETTE SCHEINT VOR K 

URZEM NOCH BEWOHNT GEWESEN ZU SEIN. <099> 

3022 PRINT"AUF DEM BODEN STEHT EIN FASS. <207> 
3024 GOSUB 760 <062> 

3120 PRINT"{WHITE,DDWNJMOEBLICHE RICHTUNGE 

N : W" < 131 > 

3125 GOSUB 750 <149> 

3130 GOSUB 100 <026> 

3135 IF S=5 THEN GOTO 3000 <113> 

3140 ON R GOTO 3160,3160,2500,3160,3160,31 

60 <064> 

3150 GOTO 3300 <106> 

3160 GOSUB 701 <136> 

3300 IF V=6 AND S=8 THEN PRINT"{DOWNJES EN 

THAELT SCHIESSPULVER.":B=1 <015> 

3310 IF V=6 AND S=9 AND SP*<2>=“"AND SP*(3 

)=""THEN GOSUB 3500 <254> 

3320 IF V=6 AND S=10 AND R3=l THEN PRINT"{ 


DOWNJES IST EIN TAGEBUCHsQ=1 <056> 

3350 IF V=B AND S=10 AND R3=l THEN GOSUB 3 

600 <062> 

3360 IF V=7 AND S=8 THEN GOSUB 3700 <130> 

3375 IF V=7 AND B=2 AND R3=l THEN GOSUB 38 

00 <045> 

3380 IF V=ll AND S=21 AND RA=3 AND OF=l AN 
D OB=l AND G=2 THEN GOSUB 705sGOSUB 3 
900:PA“1 <093> 

3385 IF V*=10 AND S=8 AND OF=0 THEN GOSUB 7 

10 <038> 

3387 IF V=10 AND G=2 AND OB=0 THEN GOSUB 7 

10 <132> 

3390 IF V-10 AND S=8 AND OF=l THEN GOSUB 7 

05:OF*0 <066> 

3391 IF V=10 AND G=2 AND OB=l THEN GDSUB 7 

05SOB-0 <157> 

3392 IF V=6 AND S=9 AND Q=0 THEN GOSUB 708 

:GOTO 3130 <102> 

3399 GOSUB 777 <169> 

3400 GOTO 3130 <166> 

3500 IF R3=0 THEN RA*<3,3)=G*<3):RA*(3,2)= 

G*(2)s R3=l <018> 

3505 PRINT"{DOWNJAUF DEM TISCH LIEGEN VERS 

CHIEDENE SACHEN{UPJ" <250> 

3510 GOSUB 760:Q=1:RETURN <206> 

3600 PRINT"{DOWNJALS LETZTE EINTRAGUNG FIN 

DEN SIE:IDOWNJ <213> 

3602 PRINT"...ICH MUSS MICH VOR DEN WILDEN 

IN ACHT <234> 

3604 PRINT“NEHMEN.ES SIND WAHRSCHEINLICH K 

ANNIBALEN <0B6> 

3606 PRINT"FALLS SIE MICH ERWISCHEN,IST NI 

CHT NUR <230> 

3608 PRINT"MEINE GANZE FORSCHUNGSARBEIT UM 

SONST <136> 

3610 PRINT"GEWESEN,SONDERN ICH KANN AUCH N 

ICHT <214> 

3612 PRINT"RECHTZEITIG AM TREFFPUNKT SEIN. 

.. <136> 

3620 Q=l:RETURN <023> 

3700 IF OF=0 AND SA=1 THEN GOSUB 705:OF=1: 
ir ^»t:TURN <075> 

3703 IF OF=0 AND SA=0 THEN PRINT"{DOWNJIM 
FASS IST EIN SKORPION!ER SPRINGT":OF= 

1:GOTO 3710 <020> 

3705 IF SA=1 AND OF=l THEN GOSUB 709:RETUR 

N <015> 

3710 SA=1:PRINT"IHNEN AUF DIE HAND!!“:GOSU 

B 750:D=TI:LI=2700:ZA=1:GOSUB 100 <151> 

3730 IF V=9 AND S=20 THEN 3740 <197> 

3735 GOTO 900 <171> 

3740 PRINT“{DOWNJDER SKORPION FAELLT ZU BO 

DEN UND LAEUFT <200> 

3750 PRINT“WEG.”:ZA=0:Q=1:RETURN <030> 

3800 IF OB=l THEN GOSUB 709:RETURN <045> 

3802 IF OB“0 THEN PRINT"{DOWNJDER BEHAELTE 

R ENTHAELT EINE ZUENDSCHNUR“:OB-1 <119> 

3810 IF PA-1 AND OB=l THEN PRINT”UND SCHIE 

SSPULVER. <134> 

3830 Q=l:RETURN <233> 

3900 PRINT"{DOWNJPULVER IST IM BEHAELTER." 

:Q-1:RETURN <133> 

4000 PRINT SPC (9) "{GREY 1 , SPACE JtftftSftföBBH? 

eeeeseeeee " <036> 

4001 PRINT SPC<9> "HIGREEN, 13SPACEJ5f{RVSONJ 

'+V+W+' {GREY 1, RVOFF JS" <111> 

4002 PRINT SPC<9)“HIBREEN,15SPACEJVIRVSONJ 

T¥TT{GREY I.RVOFFJg" <223> 

4003 PRINT SPC(9>"H<GREEN,16SPACE,RVSONJ¥¥ 

TTIGREY 1 , RVOFF JE" <213> 

4004 PRINT SPC<9>"HIGREEN,16SPACEJ*{RVSONJ 

TIBROWNJTTaiBREY 1 , RVOFF Jg" <055> 

4005 PRINT SPC(9>"H{GREEN,1BSPACE,BROWN,RV 

SONJITSIGREY I.RVOFFJg" <197> 

4006 PRINT SPC<9)"KIGREEN,1BSPACE,BROWN,RV 

S0NJ7£{GREY 1,RVOFFJE" <182> 

4007 PRINT SPC <9) "VJ{GREEN, 1BSPACE,BROWN,RV 

S0NJ7fi{QREY 1,RVOFFJE" <057> 

4008 PRINT SPC<9)"H{GREEN,18SPACE,BROWN,RV 

SON JflIIGREY 1,RVOFF JE" <129 > 

4009 PRINT SPCC9)"E{GREEN,17SPACE,GREY 3,S 

PACE,BROWN,RVSON>EX{GREY l.RVOFFJE" <061> 

4010 PRINT SPC(9)"EIGREEN,2SPACE,ORANGE,SP 
ACE,GREY 3,SPACE,GREY 1J7??{GREEN,10S 
PACE,GREY 3,SPACE,BROWN,RVSONJEI{GREY 
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1,RVOFF>H" 

4011 PRINT SPC(9)“RtBREEN,SPACE,GREY 2.RVS 
0N>S«RV0FF>7«GREY 1 J'+YTTVtRVSQNJSfGRE 

Y 2,RVOFF>S«GREEN,3SPACE,GREY 3.4SPAC 
E , WH ITE , SPACE , BROWN , RVSON , SPACE >H«GRE 

Y 1, RVOFF yg" 

4012 PRINT SPC<9> ”-H«GREEN,RVSON,2SPACE> ü «2 
SPACE>i«5SPACE>i«4SPACE>i{3SPACE,GREY 

1,RVOFF>H” 

4013 PRINT SPC<9)"fftBREEN,RVSON,SPACE>i«4S 
PACE>Ü«2SPACE>Ü«2SPACE>£ i«3SPACE>ü«S 
PACE, BREY 1 ,RVOFF>H” 

4014 PRINT SPC(9)"ff«GREEN,RVS0N,2SPACE>a U 
«2SPACE >i<2SPACE >J.<3SPACE>ü K3SPACE , 
GREY 1,RVOFF>5" 

4015 PRINT SPC(9)" TTTTTTTTTTTTTTTTTTTf ” 

4019 RA-4:0G~7:UG=7 

4020 PRINT"<GREEN>VOR IHNEN LIEGT EIN VERL 
ASSENER LAGER- 

4030 PRINT"PLATZ.IN DER FEUERSTELLE BEFIND 
ET SICH 

4040 PRINT"ASCHE. 

4080 GOSUB 760 

4120 PRINT"<WHITE,DOWN>MOEQLICHE RICHTUNGE 
N s NtDOWNJ" 

4122 GOSUB 750 

4125 IF AA=0 THEN GOSUB 4600 

4130 GOSUB 100 

4135 IF S-5 THEN GOTO 4000 

4140 ON R GOTO 2500,4160,4160,4160,4160,41 
60 

4150 GOTO 4300 
4160 GOSUB 701 

4300 IF V=6 AND S=7 AND R4=0 THEN RA*(4,4) 
=G*(4>:R4=1«Q=1:GOSUB 760 

4499 GOSUB 777 

4500 GOTO 4130 

4600 PRINT"(DOWN>EIN GORILLA ERSCHEINT AUF 
DER LICHTUNG. 

4610 PRINT"ER ROLLT AUF DEM BODEN HERUM UN 
D MACHT 

4620 PRINT“MAENNCHEN!"s AA=1 
4630 GOSUB 100: IF V=12 AND S=22 THEN GOTO 
4700 

4635 IF V=20 AND S=19 THEN GOTO 900 
4637 IF R=1 THEN PRINT"{DOWN>DER GORILLA V 
ERSPERRT IHNEN DEN WEG.” 

4640 PRINT"«DOWNJDER GORILLA HAT AUFGEHOER 
T UND SCHAUT 

4650 PRINT-SIE GRIMMIG AN! 

4670 GOSUB 100:IF V=12 AND S=22 THEN GOTO 
4700 

4680 GOTO 900 

4700 PRINT"IDOWNJDER GORILLA TIPPT SICH AN 
DEN KOPF UND 

4710 PRINT"VERSCHWINDET WIEDER IM DSCHUNGE 
L.RETURN 

5000 PRINT SPC<9)"{GREEN,SPACE,GREY 1 

IGREEN,SPACE >" 

5001 PRINT SPC<9)"{GREY 1>W«BROWN,RVSON,SP 
ACE , RVOFF >TO«RVSON > aPoTtRVQFFJUYfl-p <SP 
ACE,GREEN,BSPACE,GREY 1>H" 

5002 PRINT SPC(9)"ff«BROWN,RVSON,SPACE,GREE 
N,RVOFF>T7üfl £FAN fltBROWN,BSPACE,GREY 

i >h m 

5003 PRINT SPC<9> "R«BROWN,RVSON,SPACEJTJtRV 
□FF JTSTT «RVSON JTJWS7 «RVOFF >?H «GREEN >T£ 
SLT «3SPACE,GREY 1>H" 

5004 PRINT SPC <9)"W«BROWN,RVSON,2SPACE >t?PH 
TT «RVOFF > YU«RVSON>'F BpqT«RV0FF>7«GREE 
N >T «ORANGE,3SPACE,BREY 1>H" 

5005 PRINT SPC(9)"HtBROWN,RVSON,SPACE,GREE 
N,RVOFF,3SPACE,YELLOW,SPACE,GREEN,5SP 
ACE>Tf«7SPACE , YELLOW, SPACE .GREEN, SPACE 
,GREY 1 >g" 

5006 PRINT SPC(9)"HtBROWN,RVSON>H«YELLOW,R 
VOFF >aX££ CGREEN,4SPACE,LIG.GREEN,SPAC 
E,GREEN>T«5SPACE,YELLOW>X IX«GREY l)t 


5007 


5008 


PRINT SPC(9)"HtBROWN,RVSON,SPACE,YELL 
OW,RVOFF >2220«SPACE,GREEN,3SPACE,LIB. 
GREEN,SPACE,GREEN>T«4SPACE,YELLOW) HY B 
22 «GREY 1>H" 

PRINT SPC(9)"HtBROWN,RVSON,SPACE,YELL 
OW,RVOFF >2ÜS2«SPACE,GREEN,4SPACE >g«4S 
PACE , YELLOW >Ü22S2 «GREY 1 >H" 



5009 

<045> 

5010 

<001 > 

5011 


5012 

<075> 

5013 

<037> 

5014 

<098> 

<250> 

5015 

<231 > 

5016 

<046> 

5019 

5020 

<035> 

< 112> 

< 102> 

5030 

<232> 

<130> 

<015> 

5040 

<010> 

5050 

<09B> 

5120 

<110> 

<09B> 

5122 

<120> 

5125 

5130 

<205> 

5135 

<253> 

5140 

<002> 

5150 

<155> 

5160 

5300 

<228> 

5310 

<253> 

tun®» 


5320 

<091 > 
<249> 

5499 

5500 

< 161 > 

5600 

5610 

<072> 

5700 

< 174> 

5702 

< 131 > 

<100> 

5704 

<018> 

5705 

<021 > 

5706 

5710 

< 190> 

5720 

<244> 

5730 


6000 

<225> 

6002 

< 126> 

6003 


6004 

<157> 

6005 

<125> 

6006 


6007 

<220> 

6008 

<005> 

6009 

<234> 



PRINT SPC(9)"H«BROWN,RVSON JRtYELLQW,R 
VOFF >2S2S2 «ORANGE , 4SPACE , GREEN>H«ORAN 
GE,4SPACE,YELLOW >22222«GREY US" <046> 

PRINT SPC(9)"HtBROWN,RVSON,SPACE,GREY 
l,RVOFF>T«RVSON>OTY7YTTT TYYYYUlf«RVQ 
FFJTHH" <162> 

PRINT SPC(9)"HtBROWN,RVSON,SPACE,BREY 
1,19SPACE,RVOFF>H" <176> 

PRINT SPC(9) *'H«BR OWN,RVSON,SPACE,G REY 

FFJTJYH" <246> 

PRINT SPC(9)"HtBROWN,RVSON>H«GREEN,RV 
OFF,19SPACE,GREY 1>S" <069> 

PRINT SPC(9)"HtBROWN,RVSON,SPACE,GREE 
N,RVOFF,19SPACE,GREY 1>H" <198 > 

PRINT SPC(9)"HtBROWN,RVSON,SPACE,GREE 
N,RVOFF,19SPACE,GREY 1>S" <229> 

PRINT SPC <9)"«GRE EN,SPACE,GREY UTTTT 

RA=5:OG=1:UG=1 ’ <220> 

PRINT"tGREENISIE BEFINDEN SICH AM FUS 
S EINES BAUMES. NOERDLICH VON IHNEN L 
IEGT EIN 6 <247> 

PRINT"tBLEFT >METER t3SPACE >BREITER,MIT 
SCHILF BEWACHSENER SUMPF. <044> 

PRINT"AN DER MITTE EINES ASTES HAENBT 
EINEt4SPACE>LIANE MITTEN UEBER DEM S 
UMPF. <034> 

GOSUB 760 <056> 

IF SC=0 THEN PRINT"tWHITE,DOWNJMOEGLI 
CHE RICHTUNGEN : O" <087> 

IF SC=1 THEN PRINT”tWHITE,DOWNJMOEGLI 
CHE RICHTUNGEN : N,0" <250> 

GOSUB 750 <117> 

GOSUB 100 <250> 

IF S=5 THEN GOTO 5000 <0B3> 

ON R GOTO 5600,5160,5160,2000,5160,51 
60 <003> 

GOTO 5300 <090> 

GOSUB 701 <104> 

IF V=13 THEN 900 <005> 

IF BU=0 AND S=2 AND SP*(4)<>""AND V=1 
4 THEN GOSUB 5700 <030> 

IF BU=1 AND S=18 AND V=ll THEN GOSUB 
5710 <071> 

GOSUB 777 <237> 

GOTO 5130 <250> 

IF SC=1 THEN 5720 <103> 

GOTO 5160 <200> 

PRINT" tDOWNJS IE HABEN PECH .'DER BAUM F 
AELLT ENTLANG <104> 

PRINT"tDOWNJDES UFERS.DER AST MIT DER 
LIANE STEHT <132> 

PRINT"tDOWNJSENKRECHT IN DIE LUFT.":B 
U=1:Q=1 <253> 

PRINT"tDOWNJDAS BEIL IST ZERBROCHEN . 

“!SP*(4)="":WI=WI—1 <060> 

RETURN <176> 

PRINT"tDOWNJDIE LIANE VERFAENGT SICH 
IM SCHILF!":SO=l:Q=1:GOTO 5122 <1B6> 

PRINT"tDOWNJBESCHAFFT!SIE SIND AUF DE 
R ANDEREN SEITE <143> 

PRINT" fDOWN,UP>DIE LIANE IST ABER ABG 
ERISSEN.":GOSUB 750:GOTO 6000 <079> 

PRINT SPC(9)"«GRE EN,SPACE,BREY 1JS55B 

PRINT SPC(9)"fGREY 1>H«GREEN,20SPACE, 

GREY 1>H" <214> 

PRINT SPC(9)"H«SPACE,GREY 1,GREEN,19S 
PACE,GREY 1>H" <081> 

PRINT SPC <9)"H«GREEN,5SPACE,RVSON>T«R 
V0FF>=«13SPACE,GREY 1>H" <249> 

PRINT SPC<9)"H«GREEN,3SPACE>?+«RVSON, 

SPACE,RVOFF >T«SPACE,RVSON >?{RVOFF >?«1 
BSPACE,GREY 1>H" <079> 

PRINT SPC(9)"H«GREEN,2SPACE,YELLOW>2« 

GREEN,2SPACE,RVSON >77={RVOFF,SPACE >={ 

YELLOW>fi«GREEN,9SPACE,BREY 1>H" <017> 

PRINT SPC(9)"HtGREEN,2SPACEJJtRVSON >? 

=7«YELLOW,RVOFF >a«GREEN,RVSON>=«RVOFF 
Jjnr«10SPACE,GREY UH" J < 120> 

PRINT SPC(9) "¥T«GREEN,2SPACE>-«SPACE,R 
VSON >5^=7 «RVOFF , 2SPACE >-«9SPACE , GREY 
1 yS" <242> 

PRINT SPC(9)"HtGREEN,SPACE,YELLOW>Ä«S 
PACE,GREEN,RVS0NJ77«YELLOW,RVOFF >a«GR 
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C64 


6010 


6011 


6012 


6013 


6014 

6015 


6016 


6017 

6019 

6020 

6030 

6120 

6130 

6135 

6140 

6150 

6160 

6300 

6499 

6500 

7000 

7001 

7002 

7003 


7004 


7005 


7006 


7007 


7008 


7009 


7010 


7011 


EEN , RVSON tRVOFF , SPACE , YELLOW JfitGR 

EEN,9SPACE,GREY 1 Y5" 

PRINT SPC(9)"H{GREEN, 2SP ACE ,RVSON >? tR 
VOFF,SPACE,RVSON >=«7 tRVOFF,SPACE,RVSO 
N >—tRVOFF 110SPACE,GREY 1 >©" 

PRINT SPC(9)"HtGREEN,2SPACE,RVSON>=tR 
VOFF, SPACE, YELLOW >£ tGREEN , RVSON )=tR 
VOFF)? —t9SPACE,GREY 1)^" 

PRINT SPC(9)"HtGREEN,2SPACE,YELLOW )fit 
GREEN,2SPACE,RVSON )T=tRVOFF,2SPACE>=t 
YELLOW)£tBREEN,9SPACE,GREY 1 )g" 

PRINT SPC<9)“HtGREEN,4SPACE)TtRVSON>? 
T tRVOFF,2SPACE,YELLOW)fitGREEN,10SPACE 
,GREY 1)E“ 

PRINT SPC <9)"HtBROWN,RVSON>7Tüt3SPACE 
7J.T7ÜYTU iTTDDVtGREY 1,RVOFF)E" 

PRINT SPC<9)"HtBROWN,RVSON,SPACE)£t2S 
PACE >ü tSSPACE >it4SPACE )£t4SPACE , GREY 
1,RVOFF )E" 

PRINT SPC<9)"HtBROWN,RVSON,3SPACE>£(3 
SPACE >Mt5SPACE )£t3SPACE)£t2SPACE , GREY 
1, RVOFF >B"' 

PRINT SPC(9)"tBROWN,SPACE,GREY 1JYTTT 
TTTTTTTTTTTTTTTT tBROWN, SPACE > " 

RA“6:0G=12:UG=11 

PRINT"tGREENJSIE STEHEN VOR EINEM WIL 
DSTRAUCH. 

GOSUB 760 

PRINT"tWHITE,DOWN JMOEGLICHE RICHTUNGE 
N : W,0" 

GOSUB 100 

IF S-5 THEN GOTO 6000 

ON R GOTO 6160,6160,7000,B000,6160,61 
60 

GOTO 6300 
GOSUB 701 

IF V=6 AND S=12 THEN RA*(6,5)=G*(5):G 
OSUB 760:Q=1 
GOSUB 777 
GOTO 6130 

PRINT SPC <9>" tGREY 1 ,SPACE Jbbbbbbböbiö 

PRINT SPC (9) "HtBLUE, 14SPACE,GREEN,6SP 
ACE,GREY 1)E" 

PRINT SPC(9 >"HtBLUE,2SPACE.GREEN,2SPA 
CE,BLUE, 12SPACE,0RANGE>ffp'££tGREY 1>E“ 
PRINT SPC(9)"HtBLUE,SPACE,GREEN,SPACE 
, BLUE , 6SPACE , ORANGE > HWACJE T tGREEN , 2S 
PACE,GREY 1>.tGREEN,SPACE,GREY DE” 
PRINT SPC{9) "HtORANGE>B££ä£££TtGREY 1 
>.tORANGE,SPACE,BLUE,SPACE,GREY 1>.tB 
LUE,SPACE,GREY 1>.tBLUE,SPACE,GREY 1> 
.tBLUE,SPACE,GREY 1>.tBLUE,SPACE,GREE 
N,SPACE,GREY 1)E“ 

PRINT SPC (9 > " H-tGREEN,2SPACE,GREY 1>. 
tGREY 3,SPACE,GREY 1>.tORANGE,SPACE,G 
REY 3,SPACE,ORANGE,SPACE,GREY 3,SPACE 
,GREY 1>.tGREY 3,SPACE,BREY 1>.tGREY 
3,5SPACE,GREY 1>.tGREY 3,SPACE,GREY 1 

ys“ 

PRINT SPC<9>"HtGREEN,SPACE,GREY D.tG 
REEN , 2SPACE , GREY 3 , SPACE , GREEN , SPACE , 
GREY 1>.tGREY 3,SPACE,BREY 1>.tGREY 3 
,4SPACE,GREEN,SPACE,GREY 1>.tGREEN,2S 
PACE,GREY 1».tGREEN,2SPACE,GREY 1>E" 
PRINT SPC(9)"HtGREEN,3SPACE,GREY 3,SP 
ACE,BREY 1>.tGREY 3,RVS0N>it4SPACE,RV 
OFF >* tGREEN,SPACE,BREY 1>.tSPACE,GREE 
N,SPACE,GREY 1>.tGREEN,4SPACE,GREY 1> 
E” 

PRINT SPC(9)"HtGREEN,SPACE,GREY 1,SPA 
CE,GREY 3,SPACE,GREY 1>.tGREEN,SPACE, 
GREY 3 )£WWtRVSON , SPACE, RVOFF, SPACE, 
GREEN,SPACE,GREY 1>.tGREEN,4SPACE,GRE 
Y 1,SPACE >.E“ 

PRINT SPC < 9)"HtGREEN,SPACE,GREY 1>.tG 
REEN,2SPACE,ORANGE,SPACE,GREY 3>HtSPA 
CE,RED)± tGREY 3,2SPACE,RVSON,SPACE,BR 
EEN,RVOFF,5SPACE,GREY 1>.tGREEN,SPACE 
,GREY 1>.tGREEN,SPACE,GREY 1)E" 

PRINT SPC<9)"HtGREY 3,SPACE,GREY 1,SP 
ACE,GREEN,3SPACE,BREY 3tGREEN, 
SPACE,GREY 1>.tGREEN,SPACE,GREY D.tG 
REEN,2SPACE,ORANGE)EpEtGREY 1 )E" 

PRINT SPC<9)"HtORANGE,SPACE,GREY l>.f 
ORANGE,SPACE,GREY 1>.tORANGE,4SPACE,G 


<094> 

<050> 

<237> 

< 100 > 

< 144> 
<21B> 

<025> 


<254> 

<073> 

<053> 

< 166> 
< 020 > 

<217> 

<232> 

<066> 

< 109> 
<0B2> 
<0BB> 

<070> 
<221 > 
<242> 



<069> 

<225> 


<046> 


< 169> 


< 156> 


<063> 


< 160> 


< 13Q> 


< 196> 


<245> 


REY 1>. tORANGE>&PHTtRVSONJtjTT . t2SPAC 
E,GREY 1, RVOFF )E" <246> 

7012 PRINT SPC<9>"HtORANGE,SPACE>5PBTtRVSO 

N>ÜWt3SPACE>. f2SPACE>. t3SPACE>. tSPAC 
E.GREY 1, RVOFF )E" <147> 

7013 PRINT SPC<9)"HtORANGE,RVSON,2SPACEJ.t 

3SPACE}.t2SPACE>.t2SPACE>.t3SPACE>.t3 
SPACE,BREY 1,RVOFF)E" <121> 

7014 PRINT SPC<9)"HtORANGE,RVSON,4SPACE>.t 
4SPACE).t4SPACE>.f3SPACE>.tSPACE,BREY 

l,RVOFF)E" <214> 

7015 PRINT SPC(9) " T YyT * T * TYr*r ' lYl ' T * T ' T ' T * T * T ~ TY tQR 

ANGE,SPACE >" <231> 

7019 RA=7:OG=l:UG=l <252> 

7020 PRINT”tGREEN)SIE SIND AN DER WESTKUES 

TE DER INSEL. <068> 

7030 PRINT"AM STRAND STEHT EINE AN LAND GE 

SCHWEMMTE <050> 

7040 PRINT"{UPJMETALLKISTE. <177> 

7050 GOSUB 760 <024> 

7120 PRINT"tWHITE,DOWN>MOEGLICHE RICHTUNGE 

N 5 O" <033> 

7125 GOSUB 750 <083> 

7130 GOSUB 100 <216> 

7135 IF S=5 THEN GOTO 7000 <051> 

7140 ON R GOTO 7160,7160,7160,6000,7160,71 

60 <176> 

7150 GOTO 7300 <072> 

7160 GOSUB 701 <070> 

7300 IF V=7 AND S=15 AND OK=l THEN GOSUB 7 

09 <249> 

7310 IF V=7 AND S=15 AND DK=0 THEN GOSUB 7 

600:OK=l:Q=1 <090> 

7320 IF V-10 AND S=15 AND OK=0 THEN GOSUB 

710 <158> 

7330 IF V=10 AND S=15 AND OK=l THEN GOSUB 

705:OK=0 <222> 

7340 IF V—15 AND S=15 AND VS=0 THEN GOTO 7 

700 <050> 

7350 IF S=23 AND V=20 AND OK=l AND VS=0 TH 

EN GOTO 900 <150> 

736? TF S=23 AND VS=0 AND V=ll AND OK=l AN 

Lß KG=1 THEN GOSUB 7800: Q=1 <077> 

7499 GOSUB 777 <205> 

7500 GOTO 7130 <234> 

7600 IF VS=0 THEN PRINT“tWHITE,DOWN>AUF DE 

M INHALT DER KISTE SITZT EINE " <154> 

7610 IF VS=0 THEN PRINT“GROSSE,SCHWARZE VO 

GELSPINNE!“:RETURN <209> 

7620 GOSUB 705:OK=l:RETURN <248> 

7700 PRINT"tDOWNIDER INHALT UND DIE SPINNE 

FALLEN HERAUS. <182> 

7702 PRINT"tUPTDIE VOGELSPINNE KRABBELT AN 

IHREM BEIN <197> 

7710 PRINT"HOCH!!“aD=TI:LI=500:ZA=1:GOSUB 

100:GOTO 900 <210> 

7800 PRINT"tDOWNIDIE SPINNE LAEUFT DAVON!" 

:VS=1 <207> 

7810 RA*(7,6)=G»(6):RA»(7,7)=G»(7):GOSUB 7 

60:RETURN <164> 

B000 PRINT SPC(9)"tORANGE,SPACE,GREY 1 

böfflSfcöBybböBBeöB tORANGE,SPACE >" <172> 

8001 PRINT SPC(9)"tGREY 1>HtRVSON,2SPACE,R 
VOFF JHtRVSON , 2SPACE >H t5SPACE } 'S t3SPACE 

>H t2SPACE tSPACE , RVOFF <081 > 

8002 PRINT SPC (9> "HtRVSON,2SPACE,RVOFF>TTtR 

VSON,2SPACE>XtSPACE,GREY 2>5itGREY 1, 
2SPACE>£t2SPACEJE H £tSPACE,RVOFF>U" <191> 

8003 PRINT SPC(9)"HtRVS0N,2SPACE>£t2SPACE> 
aat4SPACE >rt2SPACE >xre atSPACE , RVOFF > 

G" <027> 

8004 PRINT SPC(9)"HtRVS0N,2SPACE>at2SPACE> 

= GtSPACE,GREY 2JütGREY 1 .SPACE>H £H 

f HtSPACE,RVOFF) g" <073> 

8005 PRINT SPC(9)"HfRVS0N,2SPACE)IE i £t6S 

PACE>a H XtSPACE,RVOFF>H" <154> 

8006 PRINT SPC(9)"HtRVSON,SPACE>HEH T üt2S 

PACE,GREY 2>jütGREY 1,2SPACE,RVOFF>Tt 
RVSON,SPACE>£ HtSPACE,RVOFF>H" <243> 

8007 PRINT SPC(9) "HtRVSON,SPACE>Wä" aRtBSPA 

CE >HHt2SPACE>ü tSPACE, RVOFF >E" <1B7> 

8008 PRINT SPC (9) "HtRVSON , SPACE>TH XTtSPAC 
E.GREY 2>3JLtGREY 1,6SPACE>Tt2SPACE)£t 

SPACE,RVOFF>H" <131> 

8009 PRINT SPC(9)"HtRVSON,SPACE,RVOFF>TtRV 
SON)H TGt9SPACE>Ht2SPACEJItSPACE,RVOF 
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Listing »Odyssey« (Fortsetzung) 

F>5" 

8010 PRINT SPD< 9 ) " R(RVSON,SPACE,RVOFF<RV 
S0N,2SPACE>£(5SPACE,GREY 2>££.{GREY 1, 
4SPACEIR X<SPACE,RVaFF>G" 

8011 PRINT SPC(9) u RtRVS0N,SPACE>at2SPACE>E- 
£10SPACE>Ü£ R(SPACE, RVOFF >g'" 

8012 PRINT SPC(9>" R(RVSON,SPACE>£ Wg<3SPAC 
E , GREY 2JÜ.CGREY 1 ,5SPACE>^2 RE^RVOFF 
iS" 

8013 PRINT SPC(9)" R(RVSQN,SPACE>£ RR(3SPAC 
E>R(2SPACE,GREY 2>ÜUGREY 1,2SPACE>G< 
RVOFF >Tf(RVSON>R E(RVOFF>E" 

8014 PRINT SPC <9)" R(RVSON,SPACE>1 1 £(2SPA 
CE , RVGFF >Tf (RVSON , 6SPACE >gHR £(RVOFF >E 

8015 PRINT SPC(9>"H(RVSON,SPACE)E ü (SPACE, 
RVOFF >5" (RVSON , 2SPACE , RVOFF >T(RVSON , 5S 
PACE >RE(SPACE,RVOFF >H(RVSON,SPACE >2<R 
VDFFJE" 

8016 PRINT SPC <9) " TTTTTTTTTtTTTTTTTTTT 

B019 RA=8:OG=l:UG“1 

8020 PRINT"(GREEN»SIE STEHEN VOR EINER FEL 
SWAND MIT 

8030 PRINT"SPALTEN ,AN DER FUSSTRITTE SIND 


< 142> 


<096> 


<084> 


<021 > 


< 210 > 


<148> 


8050 GOSUB 760 

8120 PRINT"(WHITE,DOWN JMOEGLICHE RICHTUNGE 
N s W,HINAUF" 

8130 GOSUB 100 
8135 IF S=5 THEN GOTO B000 

8140 ON R GOTO 8160,8160,6000,8160,8600,81 
60 

8150 GOTO 8299 
8160 GOSUB 701 

8299 GOSUB 777 

8300 GOTO 8130 
8600 IF FH=1 THEN GOTO 9000 
8602 IF FH=0 THEN PRINT”(DOWN,WHITE>SIE ST 

EIGEN DIE WAND HINAUF. 

8610 IF FH=0 THEN PRINT"(DOWNIPLOETZLICH K 
OMMT VON OBEN EIN HAGEL VON 
8620 IF FH=0 THEN PR INT "FELSBROCKEN AUF SI 


< 195> 

< 187> 
<013> 

<071 > 

< 196> 
<00B> 

< 202 > 

< 200 > 

<036> 

<032> 

< 147> 
<054> 

< 142> 
<033> 

< 114> 

<074> 
<091 > 


E ZU!!-sFH=1:D=TI:LI=3600:ZA=1 
GOSUB 100 

IF S=33 THEN PRINT"(DOWN>DER STEINHAG 
EL FAELLT AN IHNEN VORBEI!":GOTO 8650 
GOTO 900 
ZA=0:GOSUB 100 

IF V=1B THEN GOSUB 705s GOTO 8700 
IF V=13 THEN GOTO 8680 
GOTO 8650 
RA=9:GOTO 900 

PRINT“(DOWN>SIE STEHEN WIEDER IN DER 
WAND.“ 

GOSUB 100 

ON R GOTO 8730,8730,8730,8730,9000,80 
00 

GOTO 8735 
GOSUB 701 
GOSUB 777 
GOTO 8710 

PRINT SPC <9> 11 (GREEN,SPACE,GREY 1 >BBBS 
@B5@s?@Beeeee@5e(GREEN, space > •• 

9001 PRINT SPC <9)"(GREY 1>R(GREY 3,5SPACE, 
GREY 2,RVS0N>£H//HM / /£(2SPACE>£{SPA 
CE,GREY 1, RVOFF >E“ 

PRINT SPC (9) "TT(GREY 3,4SPACE,GREY 2,R 
VSON >2H£Äa7afi£'Fli{2SPACE >£(2SPACE , GREY 
1, RVOFF »ff " 

9003 PRINT SPC<9> "R(GREY 3,4SPACE,GREY 2,R 
VSON >£7(2SPACE >pTo?(2SPACE }R £(3SPACE 
,GREY 1 .RVOFF >E" 

PRINT SPC(9)"H(GREY 3,3SPACE,GREY 2,R 
VS0N>£(2SPACE,RVOFF >fl(SPACE,BLUE,SPAC 
E >X(SPACE,WHITEJ=(GREY 2>E(RVSON,2SPA 
CE>£(3SPACE>£(GREY 1,RVOFF>E" 

PRINT SPC<9)"RIGREY 3,2SPACE,GREY 2>5 
(RVSON,2SPACE,RVOFF >V(2SPACE,BLUE,SPA 
CE>X(GREY 2,SPACE,WHITE >?£(GREY 2>T(R 
VSON,SPACEJÜ{2SPACE>£(SPACE,GREY 1,RV 
OFFJg" 

9006 PRINT SPC(9) "R(GREY 3,2SPACE,GREY 2,R 
VSONJH r(RVOFF,3SPACE,BLUE »ftjSt&b TGRE 
Y 2,RVSON,2SPACE>EÜ£2SPACE,GREY l.RVO 
FFJE" 

9007 PRINT SPC<9)"R(GREY 3,2SPACE,GREY 2,R 


8625 

8630 

8640 

B650 

B660 

8665 

8670 

8680 

8700 

8710 

8720 

8725 

8730 

8735 

8740 

9000 


9002 


9004 


9005 


< 157> 

< 1B7> 

< 191 > 
<250> 
<0B5> 

< 153> 

< 128> 
<028> 
< 122 > 

< 152> 
<018> 

<218> 

< 102 > 
< 118> 

< 171 > 
<244> 

< 126> 


<054> 


<253> 


<231 > 


<0B7> 


<251 > 


<031 > 


VSON,2SPACE,RVOFF,4SPACE,BLUE >/(SPACE 
,YELLOW,RVSONJ2S(RVOFF}£fl(GREY 2,RVSO 
N>y JK2SPACE}/ (GREY 1 ,RVOFFIE" <063> 

9008 PRINT SPCC9»"RTGREY 3,SPACE,GREY 2>R( 

RVSON,SPACE >r(YELLOW,RVOFF,3SPACE,BLU 
E > / (SPACE , YELLOW, RVSON > j£TTf (RVOFF >£(G 
REY 2>ff (RVSON,SPACE>ü /(SPACE,BREY 1, 

RVOFF >E“ <063> 

9009 PRINT SPC<9>"R(LIG.RED,SPACE,BREY 2>r 
(RVSON , SPACE, RVOFF >1f(YELLOW, 2SPACE , BL 
UE >/(8SPACE,GREY 2,RVSON,SPACE >R/(2SP 

ACE,GREY 1,RVOFF >E” <074> 

9010 PRINT SPC(9)"R(LIG.RED,SPACE,GREY 2>r 

(RVSON,SPACE,RVOFF >T(YELLOW,SPACE,BLU 
E>/(BREY 1,9SPACE,GREY 2,RVSONJR R£2S 
PACE,GREY 1,RVOFFW <210> 

9011 PRINT SPC<9>"RILIG.RED,SPACE,GREY 2,R 
VSON > 7 (SPACE , RVOFF (BLUE > / (BREY 1 ,SP 
ACE,BLUE,6SPACE,BREY 2,3SPACE,RVSON >7 

R /(GREY l.RVOFFJB" <049> 

9012 PRINT SPC(9)"R(LIG.RED,SPACE,BREY 2,R 

VSONITT(SPACE,BLUE,RVOFFJ/ (BREY 1 ,8SPA 
CE,BLUE,2SPACE,GREY 2,SPACE,RVSON>ff £ 
/(SPACE,GREY l.RVOFFW <058> 

9013 PRINT SPC(9)“R(RVSON>i,(2SPACEJ. ,£3S 

PACE},(2SPACE J. , . ,(RVOFF>R" <1B2> 

9014 PRINT SPC(9)"R(RVSON>.(2SPACE>, .(2SP 

ACE>, . ,(3SPACE5.(2SPACE,RVOFF >£g" <238> 

9015 PRINT SPC(9)"R(RVSON,3SPACEJ.(2SPACEJ 
, . (2SPACE >. (4SPACEJ,(SPACE,RVOFFJ* G 


9016 PRINT SPC(9)" TTTTTTTTTTTTTTTTTTTT " 

9019 RA=9:OG=lsUG=l 

9020 PRINT"(GREENJSIE STEHEN VOR DEM EINGA 
NB EINER HOEHLE 

9050 GOSUB 760 

9120 PRINT"(WHITE,DOWNJMOEGLICHE RICHTUNGE 
N : N,D,RUNTER” 

9130 GOSUB 100 
9135 IF S=5 THEN GOTO 9000 

9140 ON R GOTO 10000,9160,9160,11000,9160, 
B000 
9150» 3OT0 9299 
9160 GOSUB 701 

9299 GOSUB 777 

9300 GOTO 9130 
10000 PRINT SPC(9)"(GREY 1, 


< 130> 

< 171 > 
<029> 

< 147> 
<248> 

< 195> 

< 1B4> 
<021 > 

<213> 

< 139> 
<038> 
<227 > 
<016> 

< 196> 
<218> 


10001 PRINT SPC(9)"R(BLUE,7SPACE,WHITE,SPA 
CE >R(BLUE,BSPACE >R(2SPACE,GREY 1>g" 

10002 PRINT SPC(9)"R(WHITE,RVSON >??(RVOFF, 

3SPACE,RVSON (RVOFF,SPACE >3(BSPACE 

,BLUE>R(WHITE,2SPACE,GREY 1>g" <147> 

10003 PRINT SPC(9)"R(BLUE,2SPACE,WHITE,RVS 

ON>£ 5(BLUE,RVOFF,3SPACE,WHITE >R£BLU 
E,4SPACE,WHITE,SPACE,BLUE,3SPACE>R(2 
SPACE,BREY 1>R" <216> 

10004 PRINT SPC(9)"R(WHITE,SPACE>fi(3SPACEJ 
H S(9SPACE,BLUE >R(WHITE,2SPACE,GREY 

i>5" <219> 

10005 PRINT SPC(9)"R£WHITE>E(SPACE,RVS0N>'S' 
fr (BLUE,RVOFF,2SPACE,WHITE >R£BLUE,3S 
PACE.WHITE,SPACE,BLUE,5SPACE}R(2SPAC 

B,GREY l>f" <226> 

10006 PRINT SPC (9) "R(WHITE>c:{GREY 1>R£WHIT 

E,RVSON >rrr(RVOFF,SPACE >S(BLUE,2SPAC 
E,WHITE,2SPACE,BLUE,6SPACE>R(SPACE,W 
HITE, SPACE, GREY 1 >TJ" <229> 

10007 PRINT SPC(9)"R{WHITE>RH(3SPACE>flf{10 

SPACE,BLUE>R(WHITE,2SPACE,GREY 1" <034> 

10008 PRINT SPC (9) "R(BLUE,SPACE, WHITE>££,£B 
LUE , SPACE , WH I TE > ££ (YELLOW , SPACE >T££T 
T£2T(BLUE,SPACE,YELLOW,SPACE,BLUE >R{ 

YELLOW,2SPACE,BREY 1" < 251> 

10009 PRINT SPC<9)"R(BLUE,3SPACE,WHITE>T£B 
LUE , 2SPACE , YELLOW , SPACE > M£flC.CJE-N (BLU 
E,SPACE,YELLOW,SPACE,BLUE >RC2SPACE,G 

REY 1JE" <073> 

10010 PRINT SPC<9)"R(BLUE,6SPACE,YELLOW,2S 
PACE JÜPeeFMISPACE,BLUE,SPACE,YELLOW, 

SPACE,BLUE>R(2SPACE,BREY 1>g" <056> 

10011 PRINT SPC (9) “ ff (BLUE ) p'p'p'p'p'p'p'(YELLOW , R 
VSON >££SP ACE , RVOFF >±,£2SPACE >£(RVSON , 

SPACE,RVOFF >iH(BLUE >fg(2SPACE,GREY 1 

>S" < 193> 

10012 PRINT SPC(9>"K(BLUE,5SPACE,YELLOW,SP 
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10013 


10014 


10015 


10016 

10017 

10019 

10020 

10030 

10040 

10100 

10120 

10125 

10130 

10135 

10140 

10150 

10160 

10300 

10310 

10499 

10500 
10600 

10610 

10620 

10700 

10702 

10705 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10805 

10B10 

10820 

10900 

10910 

11000 

11001 

11002 

11003 


11004 

11005 

11006 

11007 


13 THEN EOSUB 10600 

"AND WA=0 THEN 8 


ACE,RVSON>£(6SPACE,RV0FF>£{2SPACE >fi{ 
BLUE,SPACE>fl<SPACE,GREY 115" 

PRINT SPC(9) "WOSPACE,BLUE,SPACE,YEL 
LOW , SPACE , RVSON lÄTTTTfTVSf tRVOFF , 3SPA 
CE >11 {BLUE, SPACE >11 {BREY 1 >5" 

PRINT SPC(9)"H{BLUE,3SPACE,YELLOW,SP 
ACE,RVSON>£ Z2H * (BLUE, RVOFF, SPA 

CE,YELLOW,SPACE >M<BLUE,2SPACE,BREY 1 
>5" 

PRINT SPC(9)"WIBLUE,2SPACE,YELLOW,SP 
ACE,RVSON >£ «SPACE>H{SSPACE >S{RVOFF > 
M<BLUE,3SPACE,BREY 1>5" 

PRINT SPCC9>"W<20SPACE>5" 

PRINT SPC(9>"{BLUE,SPACE,BREY 11TTTT 
TTTTTTTTtTTTTTTT {BLUE , SPACE > " 

RA*=10: OB=l 3: UB=13 

PRINT"{BREEN1SIE STEHEN IN EINEM BOE 
TZENTEMPEL. 

PRINT"AUF DEM ALTAR BEFINDET SICH EI 
NE SCHALE 
PRINT"AUS BOLD. 

BOSUB 760 

PRINT"{WHITE,DOWN1MOEBLICHE RICHTUNB 
EN S S{DOWN>" 

BOSUB 750 
BOSUB 100 

IF S-5 THEN BOTO 10000 
ON R BOTO 10160,9000,10160,10160,101 
60,1160 
BOTO 10300 
BOSUB 701 
IF V*6 AND 
IF V-l AND SP*CB><> 

OSUB 10700 
BOSUB 777 
BOTO 10130 

IF R8=0 THEN PRINT"{DOWN1DIE SCHALE 
ENTHAELT EDELSTEINE. 

IF R8=0 THEN RA*(10,8)=B*<8):BOSUB 7 

60:RB=1 

0=1:RETURN 

IF WA=0 THEN BOSUB 10705 
Q=1:RETURN 

PRINT"{DOWN>DER ALTER BESINNT IM BOD 
EN ZU VERSCHWIN¬ 
PRINT ” {UP >DEN. VOR DEN AUSBANB SCHIEB 
T SICH EINE 

PRINT"MAUER!DIE WAENDE BESINNEN SICH 
AUF EIN— 

PRINT"ANDER ZU ZUBEWEBEN!!":WA=1:D=T 
I:LI=2400:ZA=1 

PRINT"{DOWN1MOEBLICHE RICHTUNBEN: KE 
INE 

PRINT"{D0WN1SIE SIND BEFANBEN! 

BOSUB 100 

ON R BOTO 10790,10790,10790,10790,10 

790,10790 

BOTO 10800 

BOSUB 701 

IF V=23 AND S=25 THEN BOTO 10900 

IF T-l THEN BOTO 900 

BOSUB 777 

BOTO 10760 

ZA-0:T-0 

PRINT"{DOWN>DIE WAENDE BEHEN ZURUECK 
.DER AUSBANB ISTFREI ! :BOTO 10120 
PRINT SPC(9)"{GREEN,SPACE,GREY 1>BB5 


< 012 > 


<224> 


< 161 > 


< 132> 

< 112 > 

<255> 

< 192> 

<007> 

<221 > 

< 155> 
<026> 

< 154> 
<035> 

< 16B> 

< 000 > 

<204> 

<04B> 

< 022 > 

<195> 

< 146> 

< 157> 
<018> 

<003> 

<1B2> 

<165> 

<096> 

<247> 

< 100 > 

<067> 

< 143> 

< 161 > 

<059> 

<056> 

<036> 

< 186> 
<077> 
< 146> 
<009> 
<176> 
<214> 
<213> 
<0B6> 

<064> 

<0B5> 

<019> 

<072> 


PRINT SPC(9) "W(GREEN>W?V&WlWpV>'P<BS 
PACE,BREY 1>5" 

PRINT SPC <9)"W<GREEN,11 SPACE >Mfl(7SPA 
CE,BREY 1>5" 

PRINT SPC <9)"W{ORANGE>i{GREEN,SPACE, 

ORANGE >Ü{2SPACE >ü{BREEN,2SPACE,ORANG 
E >£<GREEN,SPACE >M(SPACE,GREY 2,SPACE 
,GREEN > fl{6SPACE,GREY 1 >g" <107> 

PRINT SPC <9>"W{SREEN,SPACE,ORANBE>ü{ 

2SPACE,BREEN,2SPACE,ORANGE >Ü{6REEN,2 
SPACE >H(2SPACE,GREY 2,SPACE,BREEN,SP 
ACE>fl(5SPACE,GREY 1>5" <139> 

PRINT SPC <91 "W{QRANGE> XXXXXXXX {GREY 
1 >TTF{BREEN,5SPACE>fl{4SPACE,BREY 1 >5" <0B9> 
PRINT SPC(9>"WIBREEN,BSPACE,GREY 1,S 
PACE >MW{GREEN,5SPACE >fl{3SPACE,BREY 1 
>5" < 160> 

PRINT SPC<9>"W<GREEN,BSPACE,GREY 1 >M 


11008 


11009 


11010 


11011 


11012 


11013 


11014 


11015 


11016 

11019 

11020 

11021 
11 Pisa 
ii:r- 

11125 

11130 

11135 

11136 

11137 

11138 

11140 

11150 

11160 

11299 

11300 
11400 

11410 

11420 

11430 

11435 

11440 

11450 

11500 


11519 

11520 


11530 


{GREEN , SPACE , GREY 1 Ii.5 {GREEN , 5SPACE> 
UI2SPACE,BREY 1>5“ 

PRINT SPC <9)"W{GREEN,5SPACE,GREY 1,2 
SPACE >M(GREEN,SPACE,GREY 1>/{GREEN,S 
PACE,GREY 1>MW(GREEN,5SPACEIfllSPACE, 
GREY 1>5“ 

PRINT SPC(9)"W{ORANGE> XXXX {BREFN,SPA 
CE,GREY 1,SPACE1HIGREEN,SPACE,GREY 1 
>/{BREEN,SPACE,GREY 1>M(BREEN,SPACE, 
GREY 1 >A.W{GREEN,5SPACE>fl{BREY 1 >5” 
PRINT SPC <9) "W{ORANGE}J.(GREEN,2SPACE 
>&{BREY 1>V£. / (BREEN,SPACE,GREY 1 >M( 
GREEN,SPACE,GREY 1>/ HW(BREEN,5SPACE 
,BREY 1>5" 

PRINT SPC(9)"W (GREEN,SPACE,ORANBE>ü( 
GREEN >M(WHITE,SPACE,GRE Y 2,SPACE,BRE 

Y l>w/ M /(GREEN,SPACE,BREY 1>H i.p(G 
REEN,4SPACE,BREY 1>5" 

PRINT SPC(9)"W(GREEN,SPACE>M(LIG.BLU 
E,SPACE,BREEN,SPACE,BREY 2,SPACE,GRE 
EN,SPACE,GREY 1>7£ /(BREEN,SPACE,GRE 

Y 1 >M / MW (BREEN, 3SPACE, BREY 1 >5" 
PRINT SPC<9)"W(BREEN>M{GREY 1.SPACE, 
LIG.BLUE,SPACE,GREEN,SPACE,BREY 2,SP 
ACE,GREEN,2SPACE,GREY 1>W/ M / MIGRE 
EN,SPACE,GREY 1liJKGREEN,2SPACE,GREY 

1>5" 

PRINT SPC<9)"WIBREEN,4SPACE,GREY 2,S 
PACE,GREEN,3SPACE,BREY 1>7£ / M / MW 
(BREEN,SPACE,GREY 1>5" 

PRINT SPC<9)"W(GREEN,4SPACE,GREY 2,S 
PACE,GREEN,4SPACE,GREY 1>W/ M(GREEN, 
SPACE,GREY 1>/{GREEN,SPACE,GREY 1>M( 
BREEN , SPACE , GREY 1 >i.(GREEN , SPACE , GRE 

Y 1 >5" 

PRINT SPC(9)"(GREEN,SPACE,GREY 1>TTT 
RA=11:0G=*1:UB=1 

PRINT"(GREENIVOR IHNEN FUEHRT EINE T 
REPPE AUF EINER 

PRINT"SCHRAEGEN RAMPE NACH UNTEN. 
GOSUB 760 

PRINT"{WHITE,DOWN >MOEGLICHE RICHTUNG 
EN : W,RUNTER" 

GOSUB 750 
GOSUB 100 

IF S=5 THEN GOTO 11000 

IF V=24 AND S=26 AND R=6 THEN GOTO 1 

1500 

IF V=ll AND G=B AND SP*C8><>”"AND R= 
6 THEN GOSUB 705:BOSUB 11450 
IF V=ll AND-R=6 OR G<>0 AND R=6 THEN 
R=0 

ON R GOTO 11160,11160,9000,11160,111 

60,11400 

GOTO 11299 

GOSUB 701 

GOSUB 777 

GOTO 11130 

PRINT"(DOWN>SIE GEHEN DIE TREPPE HIN 
UNTER. 

PRINT"(DOWN>PLOETZLICH BEGINNT DIE T 
REPPE UNTER 

PRINT"(DOWN>IHNEN EINZUSTUERZEN•! 
D“TI:L1=600:ZA-ltGOSUB 100 
IF V-13 THEN ZA”0: T**0t GOTO 11500 
GOTO 900 

SP*(B)-"":RA*(1B,8)-B*(B):WI-WI-1:R- 
0:RETURN 

REM *** RAUM 11500 ***************** 
************************************ 
•• 

RA=18:OG=l:UG=l 

PRINT"(BREEN,2DOWN>SIE BEFINDEN SICH 
AM FUSS DER TREPPE. 

PRINT"EIN PFAD VERLAEUFT NACH NORDEN 


11550 GOSUB 760 

11600 PRINT"(WHITE,DOWN>MOEGLICHE RICHTUNG 
EN : N(DOWN>" 

11610 GOSUB 100 

11620 ON R GOTO 12000,11640,11640,11640,11 
640,11640 

11625 IF S=5 THEN GOTO 11500 
11630 GOTO 11645 
11640 GOSUB 701 


<040> 


<254> 


<225> 


< 155> 


< 174> 


<223> 


<009> 


<025> 


<246> 

<078> 

<070> 

< 144> 
<070> 
<216> 

<078> 

<019> 

<152> 

<242> 

< 179> 

< 167> 

<004> 

< 212 > 

<214> 

<006> 

<195> 

<072> 

<04B> 

< 177> 
<129> 
<21B> 
<234> 

< 000 > 

<201 > 


<240> 

<254> 

<237> 

< 152> 
<20B> 

<090> 

< 124> 

<182> 

<244> 

<247> 

<234> 
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13004 

<031 > 

<200> 

13005 

< 106> 


< 177> 

13006 

<001 > 

13007 

< 173> 

1300B 

<011> 


<037> 

13009 

<250> 

13010 

<107> 

13011 

<089> 

13012 

< 109> 

13013 

<245> 

13014 

<202> 


<008> 

13015 


IUI 1 • 

<221 > 

13016 

<040> 

13017 

13018 

<133> 

13019 

< 169> 

13020 

<160> 

13030 

<098> 

13050 

<250> 

13120 

<200> 

13125 

< 1B7> 

13130 

<003> 

13135 

<136> 

<22B> 

13140 


13150 

< 126> 

13160 

13200 

< 115> 
<016> 

13210 

<246> 

13299 

13300 

<006> 

< 179> 

13400 

<072> 

13410 

<253> 

13420 

<236> 

13500 

<238> 

13510 

<021 > 

13600 

<090> 

13601 

13605 

<108> 

13610 

<053> 

13620 

14000 

<150> 



Listing »Odyssey« (Fortsetzung) 

11645 GOSUB 777 

11650 GOTO 11610 

12000 PR I NT SPC < 9) ■■ (ORAN GE, SPACE , GREY 1 >SP 

12001 PRINT SPC(9)"{GREY 1(ORANGE,SPACE, 
GREEN JS£RVSON>+V+V+VM<RVOFF>?<ORANGE 
,10SPACE,GREY 1>5” 

12002 PRINT SPC(9)"H<GREEN,RVSON>SS<RVOFFJ 
■?{RVSON JTTTT {RVOFF >?{RVS0N>5{RV0FF>S 
S(ORANGE,9SPACE,GREY 1JE" 

12003 PRINT SPC<9) M H{GREEN,SPACE>S<RVSON>T 
V+V+VWKRVOFF , 1IÄSPACE , GREY 1 >5" 

12004 PRINT SPC<9>"W{GREEN,RVSON>S?{RVOFF> 
={RVSON>?T5=F{RVOFF>=<RVSON>¥{RVOFF>S 
B(9SPACE,GREY 1 > G " 

12005 PRINT SPC(9)"H<GREEN>B<RVSON>SSS<BRO 
WNJTf (GREEN , RVOFF JSIBROWN >1? (GREENJSSS 
€10SPACE,BREY 1JE” 

12006 PRINT SPC<9> "ff{GREEN,SPACE>S{RVSON>'S 
{RVOFF,SPACE >?<BROWN,RVSON >a<GREEN >? 
{RVOFF,SPACE >5{RVSON >'S (RVOFF {9SPAC 
E , GREY 1 1 ’g'* 

12007 PRINT SPC(9)"H<GREEN,4SPACE,BROWN,RV 
SON >g-ar<GREEN , RVOFF , 13SPACE , GREY 1 >£ 

1200B PRINT SPC(9) " H(GREEN,4SPACE,BROWN,RV 
SON >T2TtGREEN,RVOFF,9SPACE,ORANGE,4S 
PACE,GREY 1)E" 

12009 PRINT SPC <9)”H{GREEN,4SPACE,BROWN,RV 
SON > TSC (GREEN,RVOFF,13SPACE,GREY 1>G 

n 

12010 PRINT SPC(9)"W(ORANGE>0(GREEN,3SPACE 
,BROWN,RVSONJTfiT(GREEN,RVOFF,13SPACE 
,GREY 1>G" 

12011 PRINT SPC<9)"HfORANGE>Ty£StBROWN,RVS 
ON > W£H (ORANGE , RVOFF } £2£Y£J1 £ä£JLE£J} (GR 
EY irs" 

12012 PRINT SPC(9> n H{GREEN,4SPACE,BROWN,RV 
SONJHIfftGREEN,RVOFF,13SPACE,GREY 1>5 


12013 


12014 


12015 


12016 

12019 

12020 

12030 

12050 

12120 

12125 

12130 

12135 

12137 

12140 

12150 

12160 

12200 

12299 

12300 
12400 

12410 

12500 

12510 

13000 

13001 

13002 

13003 


PRINT SPC <9)"H (ORANGE,RVSON,SPACE>TY 
T. <2SPACE>. TYU{RVOFF}TBTCRVSON>U<RVO 
FF >TST {RVSON >tT? {GREY 1 , RVOFF >h" 

PRINT SPC(9)"HTORANBE,RVSON,SPACE>.{ 
3SPACE >.{4SPACE>.(3SPACEJ.(4SPACEJ.{ 
GREY 1 , RVOFF >??" 

PRINT SPC <9)"H{ORANGE,RVSON,4SPACE>. 
{3SPACE >.(4SPACE >.{2SPACEJ.{3SPACE,G 
REY 1, RVOFF YS" 

PRINT SPC(9)"{GREEN,SPACE,GREY 1>TTT 
TTTTTTTTTTTTTTTTT {ORANGE, SPACE > " 

RA=12:OG“1•UG=1:WE=0 

PRINT"{GREEN>HIER STEHT EIN BAUM DER 
SELTENEN GATTUNG 
PRINT"{UP> - ZYPRESSUS JACARANDA 
GOSUB 760 

PRINT"{WHITE,DOWN >MOEGLICHE RICHTUNG 
EN r N,S,0" 

GOSUB 750 
GOSUB 100 

IF S=5 THEN GOTO 12000 

IF V-29 AND S-2 AND R-3 THEN GOSUB 1 

2400:R-0 

ON R GOTO 17000,11500,12160,13000,12 
160,12160 
GOTO 12200 
GOSUB 701 

IF V-30 AND WE-1 AND MA-1 THEN GOSUB 
12500 
GOSUB 777 
GOTO 12130 

PRINT"{DOWN>SIE STEHEN FUENF SCHRITT 
E WESTLICH DES 

PRINT“BAUMES.":Q=1:WE-1sRETURN 
PRINT"{DOWNJSIE LEGEN EIN FALTBOOT F 
REI.":RA*<12,9>=G*<9>:WL=l:GOSUB 760 
0=1:RETURN 

PRINT SPC(9) "{ORANGE,SPACE,GREY llpc 
e5BBeee5eBeeeeeee5{ORANGE, space > ■■ 
PRINT SPC (9) “{BREY 1 >W(4SPACEJ^{15SP 
ACE JE" 

PRINT SPC(9) "H ’pTBIISSPACE,BROWN,SPA 
CE, GREY 1>E" 

PRINT SPC<9)"Rfffl{2SPACE>Tfl£.'pe{2SPACE 
,BROWN,2SPACE,GREY 1,6SPACE,BROWN,SP 
ACE,GREY 1>G" 


PRINT SPC (9) "ffff {2SPACE,BROWN>ÜB 

i{GREY 1>@{7SPACE,BROWN,SPACE,BREY 1 
>■5"' <211> 

PRINT SPC(9)“ff (ORANGE,SPACE,GREY 1>5 
{ORANGE,SPACE,GREY 1{ORANGE,2SPACE 
,GREY 1>£{BROWN >/{YELLOW,SPACE,BROWN 
, SPACE>/ {GREY 1 , SPACE >T£fl££JUK*5" <142> 

PRINT SPC(9)"ff £{ORANGE,SPACE,GREY 1 
>X{ORANGE,2SPACE,BROWN >/{YELLOW,2SPA 
CE,BROWN}/{BREY 1 >Vfl££A?t?{2SPACE>TE" <0B3> 
PRINT SPC<9>"W{0RANGE,SPACE,GREY 1>5 
{ORANGE,SPACE,GREY 1>£{ORANGE,SPACE, 

BROWN >/{GREEN,2SPACE,BROWN >/{SPACE,B 
REY 1 >13’{ORANGE , 6SPACE , BREY 1 <121 > 

PRINT SPC(9)"K{ORANGE,SPACE,GREY 1>X 
{ORANGE,SPACE,GREY 1>5{BROWN>/{GREEN 
,2SPACE,BROWN >/{SPACE,PURPLE,SPACE,G 
REY 1>1{BROWN,SPACE,ORANGE,3SPACE,GR 
EY 1>I{ORANGE,4SPACE,BREY 1)B” <147> 

PRINT SPC(9)"HIORANGE,SPACE,GREY 1>R 
{ORANGE,SPACE,BROWN >/{GREEN,2SPACE,B 
ROWNJ/{3SPACE,GREY 1>I{0RANGE,4SPACE 
,GREY 1>X{ORANBE,4SPACE,GREY 1>E" <176> 

PRINT SPC<9>"R{GREY 2>L0{BRDWN} UJ1.I/ { 

ORANGE,2SPACE,BROWN,2SPACE,GREY 1>£{ 

BROWN,SPACE,ORANGE,3SPACE,GREY 1>£(0 
RANGE,4SPACE,GREY 1>R" <240> 

PRINT SPC(9)"W(DRANGE,2SPACE,BROWN>i 

PRINT SPC(9)"H{BROWN,SPACE,GREY 2>.{ 

BROWN,2SPACE,GREY 2 >.(BROWN,6SPACE,G 
REY 2>.(BROWN,3SPACE,GREY 2>.(3SPACE 
>. {GREY 1>E" < 137> 

PRINT SPC<9)"W{BROWN,3SPACE,GREY 2>. 

(BROWN,3SPACE,GREY 2>.(BROWN,9SPACE, 

BREY 2>.(BROWN,2SPACE,GREY 1>S" <022> 

PRINT SPC(9)"W(BROWN,SPACE,GREY 2>.{ 

SPACE,BROWN,2SPACE,GREY 2 >.(BROWN,4S 
PACE,GREY 2>.(BROWN,2SPACE,GREY 2>.{ 

BROWN,SPACE,GREY 2,4SPACE>.{GREY 1>H 

<247> 

PRINT SPCI9)"H<BROWN,7SPACE,GREY 2>. 
(BROWN,7SPACE,GREY 2>.(BROWN,2SPACE, 

GREY 2>.(BROWN,SPACE,GREY 1>£“ <024> 

PRINT SPC<9)"(ORANGE,SPACE,GREY 1>7T 

IF SH=0 THEN PRINT"U2UP>" <061> 

IF SH=0 THEN PRINT SPC(17)"(YELLOW>Ä 
(DOWN , 2LEFT , GREEN >£5.{D0WN , 3LEFT>ÜA{D 
OWN,3LEFT>1US.{9DOWN>" <234> 

RA=13:0B=1:UG=1 <164> 

PRINT"(GREEN>SIE STEHEN VOR EINEM BA 
UMSTAMM,DER QUER <119 > 

PRINT"UEBER EINER SCHLUCHT LIEGT. <031> 
GOSUB 760 <182> 

PRINT"(WHITE,DOWN>MOEGLICHE RICHTUNG 
EN : W,0" <105> 

GOSUB 750 <243> 

GOSUB 100 <120> 

IF S=5 THEN GOTO 13000 <214> 

ON R GOTO 13160,13160,12000,13500,13 
160,13160 <251> 

GOTO 13200 <016> 

GOSUB 701 <230> 

IF SH-0 AND V=2 AND S=ll AND RA*<13, 
5)=G*<5)THEN GOSUB 13400:Q=1 <171> 

IF SH-0 AND V=20 THEN GOTO 13600 <111> 

GOSUB 777 <161> 

GOTO 13130 <070> 

PRINT“(DOWNJDIE SCHLANGE FRISST VON 
DEN FRUECHTEN.(DOWN> <081> 

PRINT"SIE KRUEMMT SICH,VERLIERT DEN 
HALT UND < 154 > 

PRINT“FAELLT IN DIE SCHLUCHT!":SH=1: 

RA* <13,5)="“:RETURN <127> 

IF SH=1 THEN GOTO 14000 <042> 

GOTO 13600 <250> 

PRINT"(DOWNJDIE AUF DEM BAUMSTAMM LI 
EGENDE SCHLANGE <1B4> 

PRINT"HAT SIE GEBISSEN!! <190> 

ZA=1:LI=2000:D=TI:GOSUB 100 <041> 

IF V=32 THEN GOSUB 777:PRINT"(DOWNJS 
IE HABEN KEINE SPRITZE!”:GOTO 13605 <192> 

GOTO 900 <150> 

PRINT SPC(9)"(GREY 1,SPACE>@96868005 

< 130> 
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14001 

14002 

14003 

14004 

14005 

14006 

14007 

14008 

14009 

14010 

14011 

14012 

14013 

14014 

14015 

14016 

14019 

14020 

14030 

14040 

14050 

14120 

14125 

14130 

14135 

14140 

14150 

14160 

14200 

14210 

14299 

14300 
14400 

14450 

14460 

14465 

14470 


PRINT SPC(9) “'R{6REEN,BSPACE,WHITE,RV 
S0N1£<2SPACE 1¥{GREEN,RVOFF,8SPACE,GR 
HY 115" 

PRINT SPC C9)"H{GREEN,3SPACE,6REY 1>/ 
11 {GREEN,2SPACE,GREY 2>M<WHITE,SPACE> 
TTISREEN,SPACE,GREY 2 IflIGREEN,2SPACE 
,GREY 2,SPACE,GREEN,3SPACE,GREY 11/5 


< 160> 


< 002 > 


<01B> 


<241 > 


<064> 


<056> 


< 186> 
<23B> 


<054> 


<017> 


< 146> 


<218> 


PRINT SPC(9)"5{GREEN,2SPACE,GREY 1>/ 
{GREEN,2SPACE,GREY 1lfl{BREY 21M{GREE 
N,6SPACE,GREY 2 Iflhfl{GREEN,2SPACE,GRE 

Y 1 > / {GREEN , SPACE, GREY 115" 

PRINT SPC< 9) " 5{GREEN,SPACE,GREY l>/{ 

GREEN,3SPACE,GREY 2>Ü{GREEN,7SPACE,G 
REY 2>M{SPACE,GREEN,SPACE,GREY 21fl{G 
REY 1>/{GREEN,2SPACE,GREY 115" 

PRINT SPC(9)"R/{GREEN,3SPACE,GREY 2> 
ü{GREEN,7SPACE,GREY 2 11UGREEN,4SPACE 
,GREY 2lfl{GREEN,2SPACE,GREY 1>H" 

PRINT SPC (9) '"H 1 {GREEN>JJ.HT TRf_R- 5T?{GRF 

Y 2 12{GREEN. SPACE IfT gRCJQC R fRRFV 1 }R" 

PRINT SPC <9) " VT {GREEN , 5SPACE 1S£2T{2SP 
ACE >TYT££S3 {2SPACE, GREY 1 >H" 

PRINT SPC ( 9) "WIGREENl tjPlbl ' Q ' Piaj ' pWp ' oY I 
RVSON >UUYU{RVOFF ITET{GREY 11H" 

PRINT SPC <9) 11 ff {GREEN , 7SPACE IT {SPACE , 
ORANGE,SPACE 1211 {2SP ACE,GREEN,6SPACE, 

GREY 1>H" 

PRINT SPC(9)”ff{GREEN,6SPACE,ORANGE,2 
SPACE,GREEN,SPACE,ORANGE >H{2SPACE>fl?' 
’pp'p'p'pVIBREY 115" 

PRINT SPC (9) " TI {GREEN, BSPACE , ORANGE12 
{GREEN,5SPACE,ORANGE >£{GREEN,2SPACE, 

ORANGElfi{GREEN,SPACE,ORANGE>&{GREY 1 
><T' 

PRINT SPC(9)"W{GREEN,7SPACE,ORANGE12 
{GREEN,2SPACE,ORANGE >ä g{GREEN,3SPAC 
E,ORANGE}fi{GREEN,SPACE,ORANGE!8{GREE 
N,SPACE,GREY 1>5" 

PRINT SPC < 9 >"VTGREEN,5SPACE,ORANGE,S 
PACE lg {GREEN , SPACE , ORANGE , RVSON >7<GR 
EEN,RVOFF,3SPACE,WHITE,SPACE,ORANGE, 

RVSON IS{WHITE,RVOFF,SPACE,ORANGE}fi{G 
REEN.2SPACE,ORANGE,SPACEIfilGREY 115" <132> 
PRINT SPC(9)"RTGREEN,4SPACE,ORANGE,S 
PACE >Ü{GREEN,3SPACE,ORANGE,RVSON}*{R 
VOFF , SPACE , RVSON >S{RVOFF , 4SPACE IppVp' 

{GREY 115“ 

PR I NT SPC (9) '• ff{GREEN , 4SPACE , ORANGE 12 
{GREEN,3SPACE,ORANGE,3SPACE,GREEN,2S 
PACE , ORANGE lfi{GREEN , 2SPACE , ORANGE lfl{ 

GREEN,3SPACE,GREY 1)B" 

PRINT SPC (9) " TTTTTTTTTTTTTTTTTTTTIG 
REEN,SPACE!" 

RA=14 : 0G=27:UG=27 

PRINT"{GREEN1HIER TEILT SICH DER WEG 
.EIN BREITER WEG 

PRINT"MIT VIELEN FUSSABDRUECKEN FUEH 
RT NACH 

PRINT"SUEDEN,EIN SCHMALER PFAD NACH 
OSTEN. 

GOSUB 760 

PRINT"{WHITE,DOWNIMOEGLICHE RICHTUNG 
EN : S,W,0" 

GOSUB 750 
GOSUB 100 

IF S=5 THEN GOTO 14000 
ON R GOTO 14160,15000,13000,14500,14 
160,14160 
GOTO 14200 
GOSUB 701 

IF V=6 AND S-27 THEN GOSUB 14400 
IF V=25 AND B=2 OR V-25 AND S”2B THE 
N GOSUB 14450 
GOSUB 777 
GOTO 14130 
PRINT"{DOWN!AUF DEM BODEN LIEGT EIN 
GLIMMENDES STUE-CK HOLZ!":Q=1:RETURN <241> 
IF SP*<2)=""THEN PRINT"{DOWNTSIE HAB 
EN DAS NICHT!":0=1:RETURN 
GOSUB 705:PRINT”DIE ZUENDSCHNUR BREN 
NT!” 

IF PA=0 THEN PRINT"{DOWN!ES IST ABER 
KEIN PULVER DARIN." 

IF PA=1 THEN Q=1:ZA=1:D=TI:LI=3600:Z 
U-l 


<030> 


<069> 

<090> 

<217> 

< 132> 

< 146> 

<005> 

< 166> 

<239> 

<227! 

< 104> 
< 200 > 

< 001 > 

<016> 

<214> 

<047> 

<082> 

< 145> 
<070> 


<004> 


< 146> 


< 174> 


<090> 


orpuna»». 

15001 


14480 RETURN 

14500 RA=19:0G=1:UG=1 

14520 PRINT"{GREEN,2D0WN1SIE STEHEN AUF EI 
NER WALDLICHTUNG. 

14550 GOSUB 760 

14600 PRINT"{WHITE,DOWNTMOEGLICHE RICHTUNG 
EN : S,W{DOWN!" 

14606 GOSUB 750 

14607 IF LE=0 THEN GOTO 14950 

14608 IF LE=1 THEN PRINT"{DOWN!AUF DEM BOD 
EN LIEGT EIN TOTER JAGUAR." 

14610 GOSUB 100 

14620 ON R GOTO 14640,16000,14000,14640,14 
640,14640 

14625 IF S=5 THEN GOTO 14520 

14630 GOTO 14849 

14640 GOSUB 701 

14849 GOSUB 777 

14850 GOTO 14610 

14950 PRINT"{D0WN1EIN JAGUAR TAUCHT AUF DI 
E LICHTUNG AUF. 

14951 PRINT"{2D0WNJER GREIFT SIE AN!!“:ZA= 
1:D=TI:LI=3600:LE=1 

14952 GOSUB 100 

14953 IF V=20 AND S=29 AND SP*(1)<>"“AND G 
=1 THEN 14960 

14954 RA=14:GOTO 900 

14960 PRINT"{DOWN!GESCHAFFT!ABER DER JAGUA 
R HAT IHNEN DIE 

14961 PRINT"{DOWNTPULSADERN DER LINKEN HAN 
D AUFGERISSEN!" 

14962 PRINT"{D0WN1SIE DROHEN ZU VERBLUTEN! 
!":D=TI 

14963 GOSUB 100 

14964 IF V=26 AND G=6 AND SP*(6)<>""THEN G 
OSUB 705:GOTO 14970 

14965 GOSUB 777:FOR 1=0 TO 3000:NEXT 

14966 RA=16:GOTO 900 

14970 PRINT"{DOWN!DIE BLUTUNG KOMMT ZUM ST 
ILLSTAND.SIE{4SPACE!SIND GERETTET!": 
ZA=0:GOTO 14610 

15000 PRINT SPC(9>"{YELLOW,SPACE,GREY 110g 


<058> 
<251 > 

< 139> 
<158> 

< 020 > 

< 200 > 

< 119> 

<225> 

<076> 

<045> 

<218> 

<05B> 

<186> 

< 189> 
<146> 

<054> 

< 143> 

< 164 > 

<076> 

<232> 

<075> 

< 000 > 

<095> 

<175! 

<044> 

< 174> 

< 116> 


PRINT SPC( 9) “ ff{GREEN,20SPACE,GREY 1! 
5" 

15002 PRINT SPC(9)"ff{GREEN,20SPACE,GREY 1! 
5" 

H{GREEN,20SPACE,GREY 1! 


" ff {GREEN,20SPACE,GREY 1! 
“ff {GREEN,20SPACE,GREY 1! 


15003 PRINT SPC(9) 

S" 

15004 PRINT SPC(9) 

G" 

15005 PRINT SPC(9) 
üf" 

15006 PRINT SPC(9 >"ff{GREEN,3SPACE,GREY 2!fl 
afl{YELLOW!llö{GREY 2>flflflfiflfl<YELL0Wlgfl 
{GREY 2laaa{GREEN,SPACE,GREY l!r 

15007 PRINT SPC<9)"ff{GREEN,2SPACE,GREY 2!fl 
SS {YELLOW! 2 {SPACE, GREEN , SPACE , YELLOW 
lfl{GREY 2laaaa{YELLOW!H{GREEN, 2SPACE 
, YELLOWJIKGREY 2!älfl{GREY 1 !B" 

15008 PRINT SPC(9)"H{GREEN,SPACE,GREY 2!flfi 
{GREEN,SPACE,YELLOW ÜU3SPACE,GREEN,S 
PACE,YELLOW!fl{GREEN,2SPACE,YELLOW,SP 
ACEl££üfi{GREEN,2SPACE,GREY 21JKGREY 
115" 

15009 PRINT SPC <9) "TJ{GREY 21flafi{GREEN,SPAC 
E , YELLOW l£Efi3£A {GREEN , 3SPACE , YELLOW 1 
THLtTHGREEN, 3SPACE, GREY 115" 

15010 PRINT SPC(9)"HfGREY 2iaa{GREEN,2SPAC 
E,YELLOWIR{GREEN,SPACE,YELLOW! ÜI{GRE 
EN,SPACE,YELLOW1H{GREEN,2SPACE,BROWN 
,2SPACE,YELL0W1TT {GREEN,4SPACE,GREY 
115" 

15011 PRINT SPC<9)"H{GREY 21£{GREEN,2SPACE 
li{YELLOW1H{GREEN,SPACE,YELLOW152{GR 
EEN,SPACE,YELLOW1H{GREEN Ü{SPACE,BRO 
WNlfl{QREY 3,SPACE,GREEN,3SPACEÜ i.{G 
REY 115" 

15012 PRINT SPC<9)"ff{GREY 212{GREEN,SPACE! 
Ü{2SPACE,YELLOW1T£ET{GREEN,2SPACE,BR 
OWN lütfi. {GREEN , SPACE 1£ J. {2SPACE , GREY 
115" 

15013 PRINT SPCC9)”H{GREEN,4SPACE1A{2SPACE 
li i{SPACE , BR0WN1WF{GREEN 1£{3SPACE1 
£{SPACE,GREY 115" 

15014 PRINT SPC(9) "K{GREEN,SPACE1JS.{3SPACE1 


<084 > 
<0B5> 

< 175> 

< 176> 

< 177> 
<17B> 
<179> 

<087> 

<239> 

<026> 

< 121 > 

<066> 

<206> 

<093> 

< 102 > 
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LIsting »Odyssey« (Fortsetzung) 

üt3SPACE Jit2SPACE Jüt3SPACEJit3SPACE, 
GREY 1JS" 

15015 PRINT SPC(9)"Ht20SPACE JS" 

15016 PRINT SPC<9>"tGREEN,SPACE,GREY 1 JTTT 
TTTTTTTTTTTTTTTTT <GREEN,SPACE >" 

15019 RA* 5 15 

15020 PRINT"tGREENJSIE STEHEN VOR DEM EING 
ANG DES KANNIBA— 

15030 PRINT"LENDORFES. 

15050 GDSUB 760 

15120 PRINT"tWHITE,DOWNJMOEGLICHE RICHTUNG 
EN x N{DOWN>“ 

15125 GOSUB 750 

15127 IF KA=0 THEN PRINT“tDOWNJDIE KANNIBA 
LEN HABEN SIE ENTDECKT UNDI3SPACE>GR 
EIFEN SIE AN!“ 
Q=lxKA=lxZA=liD=TI:LI=3600 


15129 

15130 
15135 
15140 

15150 

15160 

15300 

16000 

16001 

16002 

16003 

16004 

16005 

16006 

16007 

16008 

16009 

16010 

16011 

16012 

16013 


16014 


16015 


16016 

16019 

16020 

16030 

16040 

16050 

16120 

16125 

16130 


GOSUB 100 

IF S=5 THEN GOTO 15000 

ON R GOTO 14000,15160,15160,15160,15 

160,15160 

GOTO 15300 

GOSUB 701 

GOTO 15130 

PRINT SPC<9>“tGREEN,SPACE,BREY 1>555 

eeeeBeeeeee03B@Be<BREEN ,space >" 

PRINT SPC(9)"tGREY 1JH tGREEN,20SPACE 
,BREY 1JS" 

PRINT SPC < 9) " H{GREEN,20SPACE,GREY 1> 
S” 

PRINT SPC <9)"HCGREEN,BSPACE,YELLOW,1 
0SPACE,GREEN,2SPACE,GREY 1JH" 

PRINT SPC <9)"HtGREEN,BSPACE,YELLOW,S 
PACE,RVSON >£<4SPACE,RVOFF JißtBREEN,4 
SPACE, GREY 1JS" 

PRINT SPC<9)"HtGREEN,7SPACE,YELLOW,S 
PACE , RVSON JÄ'tYt't't'*' tGREEN , RVOFF , SPACE 
,YELLOW JfltGREEN,3SPACE,GREY 1JS" 
PRINT SPC(9)"HtGREEN,6SPACE,YELLOW,S 
PACE,RVSONJ£22H Hü*tGREEN,RVOFF,SPA 
CE,YELLOW>fltGREEN,2SPACE,GREY US" 
PRINT SPC(9)"HtGREEN,5SPACE,ORANGE,S 
PACE,YELLOW,RVSONJ£t4SPACEJHt4SPACEJ 
* f RVOFF J HtGREEN,2SPACE,GREY US" 
PRINT SPC (9) ”H tGREY 2>aaflflflflfORANGE> 
P-P-P-P-PJPP-P-P-P StGREY 2>aatGREY 1 >S" 
PRINT SPC (9) "H tGREY 2 J JUmBBB tORANGE J 
WXrfWWHWWWW tGREEN , SPACE , ORANGE JS tGREY 
2>üütGREY 1 JH" 

PRINT SPCt9) “H tGREY 2 J JUmBBB tORANGE J 
HHHHHHHHHH tGREEN , SPACE , ORANGE JS tGREY 
2>üütGREY DE" 

PRINT SPC <9) "WtOR ANGEiü,tGREE N,SPACE, 

PACE,ORANGEJitGREEN,SPACE,GREY 1JR" 
PRINT SPC(9)"HtGREEN, 3SPACE,ORA NGE>1 

, 3SPACE , ORANGE >3. tGREY 1 lg“ 

PRINT SPC(9)"HtGREEN,5SPACE,ORANGE Ji 
tGREEN,SPACE,ORANGE JitGREEN,2SPACE,O 
RANGE JitGREEN, SPACE , ORANGE JitGREEN , 2 
SPACE,ORANGE 1 U ifGREEN,2SPACE,GREY 1 
lg" 

PR INT SPC < 9) "HtGREEN , SPACE, ORANGE JH< 
GREEN,SPACE,ORANGE JitGREEN,4SPACE,OR 
ANGE JütBREEN,3SPACE,ORANGE,SPACE JitB 
REEN,4SPACE,ORANGE JitGREEN,SPACE,GRE 
Y US" 

PRINT SPC<9>"HtGREEN,3SPACE,ORANGEJi 
tGREEN,2SPACE,ORANGE JütGREEN,4SPACE, 
ORANGE JitGREEN,3SPACE,ORANGE JitGREEN 
,4SPACE,BREY 1JH" 

PRINT SPC«9)“tGREEN,SPACE,BREY 1JTTT 
TTTTTTTTTTTTTTtTT tGREEN, SPACE J “ 

RA« 16 

PRINT"tGREENJSIE BEFINDEN SICH AN DE 
R RUECKSEITE DES 

PRINT"DORFES.HIER STEHT DIE OPFERHUE 
TTE DER 

PRINT"KANNIBALEN.SIE IST ANSCHEINEND 
UNBEWACHT 
GOSUB 760 

PRINT"tWHITE,DOWNJMOEGLICHE RICHTUNG 
EN X NtDOWNJ“ 

GOSUB 750 
GOSUB 100 


< 137> 


<235> 


< 125> 

<252> 

<064> 

< 011 > 

<067> 

<109> 

< 134> 

<036> 

<193> 

<072> 



16135 

16140 

<209> 

< 178> 

16150 

16160 

<012> 

16300 

<016> 

16310 

< 179> 
<242> 

16499 

<150> 

16500 

16700 

<054> 

<211 > 

16701 

16702 

<135> 

<209> 

16703 

<0B8> 

16704 

< 186> 

16705 

<221 > 
<048> 
<19B> 

16706 

<070> 

16707 

<012> 

16710 

16800 

<051 > 


< 160> 

16810 

17000 

<203> 

17001 

<232> 

17002 


17003 

<0B1 > 

17004 

<U0> 

17005 

<103> 

17006 

<221 > 

17007 

<106> 

17008 


17009 

<077> 

17010 

<250> 

17011 

<223> 



17012 

17013 

17014 


17015 

17016 

17019 

17020 

17030 

17040 

17050 

17120 


IF S=5 THEN GOTO 16000 <172> 

ON R BOTO 14500,16160,16160,16160,16 
160,16160 <180> 

GOTO 16300 <048> 

GOSUB 701 <202> 

IF V=28 AND S=30 THEN GOSUB 705xGOSU 
B 16800 < 107> 

IF V*=27 AND S=30 THEN GOSUB 705xGOSU 
B 16700 <019> 

GOSUB 777 <059> 

GOTO 16130 <016> 

PRINT"tDOWNJIN DER HUETTE IST EIN BE 
FESSELTER WEIS- <043> 

PRINT"SER MANN.ER SAGT ZU IHNEN: <124> 

PRINT"tD0WNJ“CHR*(34)"WER SIE AUCH I 
MMER SIND,FLIEHEN SIE! <02B> 

PRINT”DIE HUETTE IST BEWACHT.GEHEN S 
IE ZUM <154> 

PRINT"BAUM NOERDLICH VOM FUSS DER TR 
EPPEiFUENF <179> 

PRINT"tUPJFUSS WESTLICH VON IHM LIEG 
T MEIN FALT- <055> 

PRINT"BOOT VERGRABEN.FAHREN SIE ZUR 
FELSEN- <035> 

PRINT“INSEL UND HOLEN SIE HILFE!"CHR 
*(34) <126> 

Q=1: MA* 5 1: RETURN <095> 

PRINT"tDOWNJDIE KANNIBALEN HABEN SIE 
ENTDECKT UNDI3SPACEJGREIFEN SIE AN! 

" <252> 

Q=1:KA=1:ZA=1:D=TI:L1=3600:RETURN <226> 
PRINT SPC(9)"tGREEN,SPACE,GREY 1JBB5 

PRINT SPC(9)"tGREY 1JRtGREEN,20SPACE 
,GREY 1JE" <035> 

PRINT SPC(9)"HtSPACE,GREEN,19SPACE,G 
REY 1JS" <018> 

PRINT SPC <9)“HtGREEN,20SPACE,GREY 1J 
S" <145> 

PRINT SPC(9)"RtGREEN,7SPACE,GREY 1J? 
t2SPACE,GREEN,10SPACE,GREY 1JS" <050> 

PRINT SPC(9)"HtGREEN,3SPACE,GREY 1,S 
PACEJ5?tRVS0NJ£ tGREEN , RVOFF , 9SPA 

CE,GREY 1JS" <053> 

PRINT SPC(9)"HtWHITE,3SPACE,GREY 1,R 
VSONJi H<3SPACEJfl ¥fWHITE,RVOFF,8SPA 
CE,GREY 1JS" <113> 

PRINT SPC(9>“HtLIG.BLUE,RVSON,20SPAC 
E , GREY 1 , RVOFF JS" <U3> 

PRINT SPC(9)"HtLIG.BLUE,RVSON,20SPAC 
E,GREY 1,RVOFFJS" <240> 

PRINT SPC<9)"HtLIG.BLUE,RVSON,20SPAC 
E , BREY 1, RVOFF JS“ <U5> 

PRINT SPC(9)"HtLIG.BLUE,RVSONJSStRVO 
FFJTJT YtRVSONJTpS SBTtRVOFFJYT TtGRE 
EN, SPACE, LIG.BLUEJTYtGREY 1JS" <220> 

PRINT SPC(9>"HtGREEN,2SPACE,GREY 2J. 
tGREEN,2SPACE,GREY 2J.tGREEN,4SPACE, 

GREY 3,2SPACE,GREY 2J.tGREY 3,SPACE, 

GREEN,2SPACE,GREY 2J. tGREEN,3SPACE,B 
REY 1JS" <155> 

PRINT SPC(9)"HtßREY 2J.tGREEN,2SPACE 
,GREY 2J.tGREEN,3SPACE,GREY 2J.tGREE 
N,6SPACE,GREY 2 J.tGREEN,2SPACE,GREY 
2J.tGREEN,SPACE,GREY 2J.tGREY 1JH" <146> 
PRINT SPC<9)"HtGREEN,10SPACE,GREY 2J 
.tGREEN,9SPACE,BREY 1JS" <213> 

PRINT SPC(9)"HtGREEN,SPACE,GREY 2J.t 
GREEN,SPACE,GREY 2,SPACEJ.tGREEN,SPA 
CE,GREY 2,SPACE,GREEN,SPACE,BREY 2J. 
tGREEN,3SPACE,GREY 2 J.tGREEN,2SPACE, 

GREY 2J.tGREEN,2SPACE,GREY 2J.tGREEN 
,SPACE,GREY UH" <038> 

PRINT SPC<9>"HtGREEN,20SPACE,GREY 1J 
H" <091> 

PRINT SPC<9>"tGREEN,SPACE,GREY 1JTTT 
TrrTTTTTTrfTTTrTT tGREEN , SPACE J " <236> 

RA* 5 17 < 112> 

PRINT"tGREENJSIE STEHEN AN DER NORDK 
UESTE DER INSEL. <034> 

PRINT"IN DER FERNE IST EINE FELSENIN 
SEL ZU <206> 

PRINT"ERKENNEN. <240> 

GOSUB 760 <118> 

PRINT"tWHITE,DOWN JMOEGLICHE RICHTUNG 
EN : StDOWNJ" <040> 


1330? 
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17125 GOSUB 750 

< 177> 


,SPACE JR /{GREEN,SPACE,YELLOW,RVSON, 


17130 GOSUB 100 

<054> 


SPACE,GREEN,RVOFF,SPACE,YELLOW Jff/{GR 


17135 IF S=5 THEN GOTO 17000 

< 156> 


EEN, SPACE, YELLOW , RVSON, SPACE , GREEN, R 


17140 ON R GOTO 17160,12000,17160,17160,17 



VOFF,SPACE,YELLOW JEIRVSON,SPACE,RVOF 


160,17160 

<218> 


F1/ /E{GREEN,SPACE,YELLOW,RVSON,SPAC 


17150 GOTO 17200 

<014> 


E,RVOFF,SPACEJE 

< 183> 

17160 GUSUB 701 

< 166> 

20017 

GOSUB 20050 

<002> 

17200 IF S=31 AND SP*(9)<>""THEN GOSUB 705 


200 IE 

PRINT SPC(X)“{RVSON,3SPACE,RVOFFJ/{S 


: WA=1 

<241 > 


PACE,RVSON,3SPACE,RVOFF J/{2SPACE,RVS 


17210 IF WA=1 AND V=31 AND S=32 THEN 17310 

<081 > 


ON,SPACE,RVOFF,SPACE JE(SPACE,RVSON,3 


17300 GOTO 17130 

<070> 


SPACE,RVOFF J/{SPACE,RVSON,3SPACE,RVO 


17310 DD=1SPRINT"tCLRJ"SPC(16>"{WHITEJDAS 



FF J/{SPACE,RVSON,3SPACE,RVOFF J/{2SPA 


WAR" 

< 170> 


CE,RVSON,SPACE,RVOFF,SPACEJE " 

<i00> 

17320 PRINT SPC(13)"I10DOWN,YELLOWJO DYS 


20019 

GOSUB 20050 ' 

<004 J 

SEE 

< 125> 

20020 

PRINT SPC<4—X)"«{RVSON,SPACE.RVOFFJ* 

17330 PRINT SPC(14)"{3DOWN,YELLOWJT E I L{ 



{2SPACE,RVSON,2SPACE,RVOFF J£ «SPACE, 


3SPACE >1 

<200> 


RVSON,SPACE.RVOFFJ/{2SPACE,RVSON,2SP 


17340 FOR 1=0 TO 6000:NEXT:PRINT" <CLRJ"SPC 



ACE,RVOFF J*{2SPACE,RVSON,2SPACE,RVOF 


<10)"{WHITEJERLEBEN SIE DEMNAECHST 

<229> 


F J *{2SPACE,RVSON,2SPACE,RVOFFJ*(3SPA 


17420 FOR X=0 TD 2:GOSUB 20060:GOTO 20004 

<022> 


CE,RVSON,SPACE,RVOFF J/{2SPACEJ" 

<063> 

17430 PRINT SPC(14)"{YELLOW,4D0WN>T E I L{ 


20021 

GOSUB 20050 

<006> 

2SPACE>2":GOSUB 750:PRINT"{WHITE,CLR 


20030 

GOSUB 20060:PRINT"{DOWN,2SPACE,DOWN, 


>":END 

<221 > 


2LEFT , 2SPACE , DOWN , 2LEFT , 2SPACE , DOWN . 


20000 READ S,B: IF SO-1 THEN POKE 55272+S, 



2LEFT,2SPACE J"; 

<114> 

F:POKE 1000+S,B:FOR 1=0 TO 200:NEXT: 


20031 

PRINT»{DOWN,2LEFT,2SPACE,DOWN.2LEFT. 


GOTO 20000 

<015> 


2SPACE , DOWN , 2LEFT , 2SPACE, DOWN , 2LEFT. 


20001 IF F=2 THEN F=l:GOTO 20000 

<095> 


2SPACE,DOWN,2LEFTJ" 

<016> 

20002 FOR X=0 TO 2:RESTORE:FOR 1=0 TO 24:R 


20035 

GOSUB 20060:PRINT"{DOWN,3LEFT,2SPACE 


EAD S,B:IF S=-l THEN NEXT I 

<080 > 


,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE 


20003 POKE 1000+S,12S+B:P0KE 1000+S,B:NEXT 



J"; 

<063> 

I:NEXT::GOSUB 20050:FOR X=0 TO 2:GO 


20036 

PRINT"{DOWN,2LEFT,2SPACE,DOWN,2LEFT, 


SUB 20060 

<003> 


2SPACE , DOWN, 3LEFT , 2SPACE , DOWN , 2LEFT , 


20004 PRINT SPC (4—X) “ CUP , YELLOW , 2SPACE11?{S 



2SPACE,DOWN,2LEFT,2SPACEJ" 

<243> 

PACE,GREEN,2SPACE,YELLOW J50KGREEN,2S 


20040 

NEXT 

<23B> 

PACE,YELLOW,SPACE>5 5I2SPACEJ5@5{GRE 


20049 

GOTO 20065 

<212> 

EN,2SPACE,YELLOWJSeeCGREEN,2SPACE,YE 


20050 

FOR 1=0 TO 400:NEXT:RETURN 

<178> 

LL0WJB5B CGREEN, 2SPACE, YELLOW >J3{GREEN 


20060 

PRINT"{HOME,7DDWN J":RETURN 

< 153> 

, SPACE , YELLOW >5?{GREEN , SPACE > “ 

<082> 

20065 

IF DD=1 THEN GOTO 17430 

< 167> 

20005 GOSUB 20050 

<246> 

20070 

PRINT SPC(10)"{BLUE,2D0WN JEIN":GOSUB 


20006 PRINT SPC(X>"{YELLOW,SPACE>//ß /CGRE 



20050 

<077> 

EN,SPACE,YELLOW >/flCGREEN,SPACE,YELLO 


20075 

PRINT SPC(14)-{UPJABENTEUERSPIEL":GO 


W J // / /R/ {GREEN,2SPACE,YELLOW i/S /{GRE 



SUB 20050 

< 176> 

EN,2SPACE,YELLOW > /S/ {GREEN,2SPACE,YE 

Qapri q 

2002™ 

°RINT SPC(18)"{DOWNJVON":GOSUB 20050 

<0B2> 

LLOWJ/E////H" 

<201 > 

200V., 

PRINT SPC(9)»{LIG.BLUE,DOWNJHANS":GO 


20007 GOSUB 20050 

<240> 


SUB 20050 

<033> 

2000B PRINT SPC(4-X)"{RVSONJD ¥<RVOFFJ/g<R 


20091 

PRINT SPC(13)"{UPJ-GUENTHER“:GOSUB 2 


VSON,2SPACE J¥{RVOFF >/^{RVSON,SPACE,R 



0050 

< 167> 

VOFF,SPACE,RVSON,SPACE,RVOFF,SPACE>G 


20092 

PRINT SPC(23)"{UPJSCHRECK":GOSUB 200 


CRVSON,3SPACE,RVOFF >/{SPACE,RVSON,3S 



50 

<042> 

PACE,RVOFF >/{SPACE,RVSON,3SPACE,RVOF 


20100 

DATA 33,24,35,20,37,3,39,45,41,19,43 


F >/{SPACE,RVSON,SPACE,RVOFF,SPACE,RV 



,15,45,6,47,20,49,23,51,1,53,18 

<070> 

SON,SPACE,RVOFF,SPACE JE" 

<228> 

20101 

DATA 55,5,-1,-1,118,16,119,18,120,1, 


20009 GOSUB 20050 

<250> 


121,5,122,19,123,5,124,14,125,20 

<086> 

20010 PRINT SPC<X>"{RVSON,SPACE,RVOFF,SPAC 


20102 

DATA 126,9,127,5,128,18,129,20,-1,-1 

<221 > 

E,YELLOW.RVSON,SPACE,GREEN,RVOFF,SPA 


20103 

RETURN 

<093> 

CE,YELLOWJRCRVSON,SPACE,RVOFF,SPACE, 


25000 

PRINT"{WHITEJDIE ERINNERN SICH: 

<061 > 

YELLOW,RVSON,SPACE,GREEN,RVOFF,SPACE 


25001 

PRINT"{DOWNJDIE WAREN PASSAGIER AN £ 


,YELLOW JE {RVSON.SPACE,RVOFF,SPACE,RV 



ORD DES .LUXUS- 

<172> 

SON,SPACE,RVOFF,SPACE JE{RVSON,SPACE, 


25002 

PRINT"LINERS 'SUEEN flARY* GEWESEN.DE 


RVOFF , SPACE > A/p 1 {SPACE , RVSON, SPACE , RVO 



R JAIFUN 

< 133> 

FF , SPACE JA/?{SPACE , RVSON , SPACE , GREEN , 


25003 

PRINT"HATTE DIE DESATZUNG VOLLKOMMEN 


RVOFF , SPACE , YELLOW > A.THSPACE, RVSON , SP 



UEBER-{3SPACEJRASCHT. 

< 149> 

ACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SP 


25004 

PR INT "DAS EINZIGE BRAUCHBARE J5ETTUNG 


ACE.Jg 

<149> 


SBOOT WAR 

<207> 

20011 GOSUB 20050 

<252> 

25005 

PRINT"KURZ NACH DEM flUSSETZEN GEKENT 


20012 PRINT SPC(4-X)"{RVSON,SPACE,RVOFF,SP 



ERT. 

< 125> 

ACE,RVSON,SPACE,RVOFF,SPACE >H{RVSON, 


25006 

PRINT"DAS DANN GESCHAH, WISSEN DIE N 


SPACE , RVOFF , SPACE , RVSON , SPACE , RVOFF , 



ICHT MEHR. 

< 167> 

SPACE JE{RVSON,SPACE,RVOFF >/{RVSON,SP 


25007 

PRINT"5ETZT ERWACHEN DIE LANGSAM WIE 


ACE,RVOFF >/{SPACE.RVSON,SPACE,RVOFF > 



DER AUS 

<107> 

/ /H{RVSON,SPACE,RVOFFJ/ /E(RVSON,SP 


25008 

PRINT"IHRER BEWUSSTLOSIGKEIT. 

<250> 

ACE,RVOFFJ/ /^{RVSON,SPACE.RVOFFJ/{R 


25009 

:GOSUB 750:PRINT"{CLR J"CHR*(142):RET 


VSON,SPACE,RVOFFJ/ “ 

< 139> 


URN 

<012> 

20013 GOSUB 20050 

<254> 

30000 

PRINT"{CLRJ"SPC(17)"{WHITE,SPACE,RVS 


20014 PRINT SPC <X)"{RVSON,SPACE,RVOFF,SPAC 



ON,SPACE,RVOFFJ" 

< 131 > 

E,RVSON,SPACE,RVOFF,SPACE Jg{RVSON,SP 


30002 

PRINT SPC(17>"{RVSON,3SPACE.RVOFFJ“ 

<202> 

ACE, RVOFF , SPACE , RVSON, SPACE , RVOFF , SP 


30003 

PRINT SPC(17)"{SPACE,RVSON,SPACE,RVO 


ACE JE« {RVSON,SPACE,RVOFF 1DE<SPACE,RV 



FF J" 

<203> 

SON,3SPACE,RVOFF,SPACE JW{RVSON,3SPAC 


30004 

PRINT SPC(17)"{SPACE,RVSON,SPACE,RVO 


E,RVOFF,SPACE JH{RVSON,3SPACE,RVOFF J/ 



FF,DOWNJ" 

< 153> 

¥ {RVSON , SPACE, RVOFFIDE " 

< 136> 

30005 

RETURN 

<089> 

20015 GOSUB 20050 

<000> 

30100 

PRINT"{DOWNJNOCH EIN VERSUCH? (J/N)" 

<021 > 

20016 PRINT SPC<4-X)"{RVSON,SPACE,RVOFFJ/{ 


30110 

GET B*:IF B*=CHR*(74)THEN CLR:GOTO 1 


RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW 



0 

< 109> 

T??{RVSON , SPACE , RVOFF J / {RVSON , SP ACE , R 


30120 

IF B*=CHR*(78)THEN END 

<255> 

VOFF, SPACE JEISPACE , RVSON , SPACE , RVOFF 


30130 

GOTO 30110 

<232> 
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ABENTEUERSPIELE 


Der kleine Hobbit 



OAMDAIF OEFFHET OIE TUEN 


THÖR IN SETZT SICH UHD HÄRTET 


EINER KOMPEORTABEl 
E DIE EINER LANGEN 


Erforschen Sie das Land der Fantasie. Finden Sie 
einen Schatz im Land der Elfen und Magier. Ent¬ 
rinnen Sie den bösen Mächten. 


D 


. er kleine Hobbit ist im Prinzip nichts weiter als die deut¬ 
sche Version eines der meistverkauften englischen 
Adventures überhaupt (sechsstellige Verkaufszahlen!): 
»The Hobbit« von Melbourn House. Bereits im ersten Adven- 
turekurs (Sonderheft 2/85) habe ich Ihnen dieses Spiel, ins¬ 
besondere seinen Parser, beschrieben. In der Tat, die 
Spectrum-Version von »The Hobbit« machte dieses Pro¬ 
gramm aufgrund seines ausgezeichneten Parsers (der lange 
als Standard bei Adventure-Tests betrachtet wurde) berühmt. 
Das folgende Listing ist eine deutsche Grafikversion des 
Hobbits von J.R.R. Tolkien. Natürlich wurde das englische 
Programm nicht einfach ins Deutsche übersetzt und die 
Handlung 1:1 übernommen. Ich habe den »kleinen Hobbit« 
vielmehr programmiert, nachdem ich sämtliche Tolkien- 
Bücher studiert habe. Die deutsche Hobbit-Version ähnelt 
nicht zuletzt deshalb viel mehr der Handlung des Buches als 
die englische es tut. Dieses Programm soll keineswegs eine 
Konkurrenz zum englischen Hobbit sein, sondern vielmehr 
ein kleines Tolkien-Adventure für alle, die kein Englisch kön¬ 
nen. Der Parser des Spiels ist ausgezeichnet und versteht 
ganze Sätze. Hervorzuheben sind auch die einzeln handeln¬ 
den Personen im Spiel: Thorin, Gandalf, Gollum und die Orks 
laufen im Spiel selbständig umher. Der Spieler kann mit die¬ 
sen Personen sogar Unterhaltungen führen. So etwa in der 
Form: »SAG THORIN )GIB MIR DEN SCHLÜSSEL<«. Aller¬ 
dings ist hierbei noch die Frage gestellt, ob die Personen die¬ 
ses auch immer tun. Man muß manchmal schon hartnäckig 
darauf bestehen, um etwas zu erreichen... »SAG THORIN 
)HOLE BIER{, SAG THORIN )HOLE BIER(, SAG THORIN 
)HOLE BIER(«... Mit etwas Geduld wird man erreichen, was 
gewünscht ist. 

»Den kleinen Hobbit« habe ich bereits vor einem Jahr paral¬ 
lel zu »Gordon Saga 1« programmiert. Daher ähnelt sich auch 
die Grafik der beiden Spiele stark. Zusammengesetzt aus 
den Standard-Zeichensätzen, aber oft umwerfend gut gelun¬ 
gen. 

Für Tolkien-Fans gibt es hier einfach keinen Kompromiß: 
Abtippen und Spielen! (Michael Nickles/dm) 


Listing: »Der kleine Hobbit« 


26 

DATA 7300,7400,7200,7100 

<094> 


27 

RESTORE 26:FOR 1=1 TO 4:READ II:BUCI>=I 


0 REM *#*#*********#**■*******##*#****** 

< 131 > 


I:NEXT:BU=1 

<099> 

1 REM «THE HOBBIT MBM 19.8.84* 

<196> 

28 

SM(1)=8600:SM(2)=8400:SM(3)=B200:SM(4)= 


2 REM ********************************* 

< 133> 


8500:MS=0:SM=1:DIM L*<38> 

<016> 

5 GOSUB 62500 

<217> 

29 

DATA DIE KARTE,2,DEN SCHLUESSEL,10,DAS 


11 11=40960:12=49151:RESTORE 

<244> 


SCHWERT,3400,DAS SEIL,3400 

<030> 

12 FÜR 1=11 TO 12:POKE I,PEEK(I):NEXT:A=10 


30 

DATA DEN RING,5900,DEN GOLDSCHLUESSEL,4 


»4096+8*256+10*16:FOR I=A TO A+2 

<093> 


700,DAS ESSEN,0,DEN BOGEN,6 

<019> 

13 READ X:POKE I,X:NEXT:A=704:FOR I=A TO A 


31 

DATA DAS FASS,7300,DEN GOLDSCHATZ,8600 

< 144> 

+5:READ X:POKE I,X:NEXT 

<0B9> 

32 

DATA DER WARG,6100,THORIN,3000,GANDALF, 


14 DATA 32,192,2 

< 151 > 


3000,ELROND,3600.EINE WALDELBE,7000 

<084> 

15 DATA 32,138,173,76,247,183 

< 152> 

33 

DATA BARD,7700,GOLLUM,6000,DER BUTLER,7 


16 A=2*256+12*16+6:FOR I=A TO A+20:READ X: 



300,DER ORK,0,DER TROLL,3200 

<168> 

POKE I,X:NEXT 

<198> 

39 

RESTORE 29:FOR 1=1 TO 10:READ I*:READ I 


17 DATA 208,3,76,29,168,32,192,2,32,19,166 

<213> 


I:GE*(I) = I*:GE<I)=II:'NEXT 

<072> 

18 DATA 56,165,95,233,1,164,96,76,36,16B 

<0B9> 

40 

FOR 1=1 TO 10:READ I*:READ II:PE*(I)=1* 


19 POKE 40996,197:POKE 40997,2:POKE 1,54 

< 191 > 


:PE <I) = 11:NEXT 

<233> 

23 PRINT"<CLR,WHITE>";:POKE 53280,0:POKE 5 


80 

REM GE(1> = 1:GE(2)=1:GE(3)=1:GE(4)=1: G 


3281,0 

<004> 


E(5)=1:GE(6)=1:GL=3 

< 158> 

24 DATA 4900,5000,5100,5300,5400,5700,5900 


90 

FA(0) = 1:GL=0:BT=1:SA=1:ZM=3000:PE(2)=1: 


,5800,5500,5600,5300 

< 135> 


GOTO 2105 

< 179> 

25 RESTORE 24:DIM OK(11):FOR 1=1 TO 11:REA 


100 TI*="000000":L*="":POKE 198,0:PRINT"CD 


D II:OK <I> =11:NEXT I:OK=l 

<097 > 


OWN,WHITE» S"; 

<078> 
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120 GET X*:IF PEEK<203)=1 THEN 160 <213> 

121 IF TI*>"000030"THEN 160 <160> 

128 IF X*=""THEN 120 <243> 

129 IF L*=""AND ASC(X*)=20 THEN 120 <227> 

130 I=ASC(X*):IF I<65 OR I >90 THEN IF 102 

0 AND 1032 AND 1034 THEN 120 <033> 

135 PRINT CHR* <20);X*;"I?"; <194> 

137 IF ASC(X*)=20 THEN L*=LEFT*(L*,LEN(LS> 

— 1)s GOTO 120 <143> 

140 L*=L*+X*:TI*="000000":IF LEN(L*>>76 TH 
EN FQR 1 = 1 TO 80s PRINT CHR*(20)::NEXT: 

GOTO 115 <057 > 

150 GOTO 120 <110> 

160 PRINT".:FOR 1 = 1 TO LEN<L*)+4:PRINT C 

HR*(20);:NEXT <030> 

170 REM SATZ IN L*(0)-L*(10) GLIEDERN <236> 

175 FOR 1=0 TO 10sL*(I)="":NEXT <151> 

180 LC—0: FOR 1=1 TO LEN(L*) <164> 

185 IF MID*(L*,I,1)=" "THEN LC=LC+1:G0T0 1 

90 <031> 

188 L*(LC)=L*(LC)+MID*(L*,I,1> <134> 

190 NEXT I < 01B> 

200 GOTO 1000 <140> 

500 PRINT“<LIG.RED>";A*sPOKE 198,0sWAIT 19 
8,1:FOR 1=1 TO 40sPRINT CHR*(20);sNEXT 
=R*=”“ <067> 

510 PRINT"<WHITE,UP>";s RETURN <117> 

1000 REM AUSWERTUNG <161> 

1005 R*=""sCA=-lsOB=0:AC=0sVE=0 <141> 

1010 CA=CA+lsE*=L*(CA> <092> 

1030 IF E*="N"THEN R*="NORDEN"5ZM=N <133> 

1040 IF E*="S"THEN R*="SUEDEN"sZM=S <082> 

1050 IF E*="W"THEN R*="WESTEN"sZM=W <141> 

1060 IF E*="0"THEN R*="OSTEN"sZM=0 <034> 

1065 IF ES="RUNTER"THEN R*="{5LEFT>RUNTER” 

s ZM=R <225> 

1070 IF E*="RAUF”THEN R*=”<5LEFT>RAUF"sZM= 

H <233> 

1075 IF ES="NW“THEN R*=”NORDWESTEN“s ZM=NW <211> 
1080 IF E*="NO"THEN R*="NORDOSTEN":ZM=NE <076> 

1085 IF ES="SW"THEN R*="SUEDWESTEN"sZM=SW <014> 
1090 IF E*="SO"THEN R*="SUEDOSTEN"sZM=SO <105> 

1100 IF ESO "WARTE "AND ESO "WA "THEN 1105 <032> 

1101 IF ZN=3300 AND TU (1)01 THEN PRINT"EI 

N NEUER TAG BRICHT AN."sTU(1)=1sGOTO 
1600 <157> 

1102 PRINT"SIE WARTEN."sGOTO 1600 <028> 

1105 IF ES="SCHAU“THEN ZM=ZN:GOTO 2105 <053> 

1110 IF ES="OEFFNE"THEN GOSUB 11100 <251> 

1115 IF E*="SCHLIESSE"THEN GOSUB 11200 <179> 

1116 IF E*="TOETE"THEN GOSUB 11500 <071> 

1120 IF E*="NIMM"THEN VE=lsGOSUB 11300 <031> 

1122 IF E*="VERLIER"THEN VE=2:GOSUB 11300 <048> 

1124 IF E*="I"OR E*="INVENTUR"THEN GOSUB 1 

1400 <059> 

1125 IF E*="ISS"THEN IF GE(7)=1 OR GE(7)=Z 
N THEN PRINT"SIE ESSEN."sGE(7)=0:GOTO 

1600 <192> 

1130 IF E*="SAG"OR E*= "SAGE 11 THEN GOSUB 200 

00s GOTO 1600 <078> 

1131 IF VL-2 AND E*="ZEIT"THEN VL=0sGL=2sG 

OTO 1600 <108> 

1132 IF E*< •"GRABE"OR ZNO5200 THEN 1135 <040> 

1133 PRINT“(DOWN>SIE GRABEN IM SAND UND EN 

TDECKEN EINE(3SPACE>FALLTUER."sTU(7) = 
lsGOTO 1600 <134> 

1135 IF L6FTS(E*,5)="Z£RST"OR E*="VERNICHT 

E“OR LEFT*(E*,5)="ZERSC"THEN AC=AC+1 <231> 

1140 IF E*="SPINNENNETZ"OR E*="NETZ"THEN A 

C-AC+1 <209> 

1142 IF E*="WIRF"THEN VE=17 <069> 

1143 IF E*="SEIL"AND BE(4)=1 THEN 0B=4 <0B9> 

1144 IF LEFT*(ES,4)="ZIEH"THEN VE=2 <070> 

1146 IF LEFT*(E*,9)="UEBERQUER"OR LEFT*(E* 

,3)-"GEH"THEN VE=3 <02B> 

1148 IF LEFT*(ES,7)—"SCHWIMM"AND ZN=6900 T 

HEN VL=5 <039> 

1150 IF E*="FASS"THEN IF GE(9)=1 OR GE(9)= 

ZN THEN 0B=5 <127> 

1152 IF LEFT*(E*,6)—"SPRING"THEN VE=4 <147> 

1500 IF CA-LC THEN 1600 <177> 

1510 GOTO 1010 <212> 

1600 : <052> 

2000 REM A C T I O N <043> 

2005 IF GE(10)=1 THEN 62000 <148> 

2010 IF ZM=0 AND R*<>""THEN A*="KEIN WEG I 
N DIESE RICHTUNG !":BOSUB 500:GOTO 22 


00 

2020 IF ZM=0 THEN 2200 
2100 REM NEUES ZN 

2103 PRINT"SIE GEHEN NACH “;R*;"." 
2105 ZN=ZM:ZM=0:RESTORE ZN:PRINT 
2110 READ DL 


< 181 > 
< 210 > 
<226> 
<001 > 
<167> 
<0B2> 


2111 FOR 1=1 TO DL:READ D*:PRINT" CYELLOWV 

;D*;:NEXT:PRINT"<WHITE>":PRINT <143> 

2115 N=0:S=0:W=0:0=0:H=0:R=0:NW=0:NE=0:SW= 

0:SO=0:GOSUB ZN:GOSUB 10000:GOTO 2400 <201> 
2200 REM <230> 

2204 IF VL>0 THEN 39000 <07B> 

2400 REM DIE MONSTER BEWEGEN SICH <140> 

2401 IF INT(10*RND(1))>5 THEN 2403 <075> 

2402 IF ZN—7000 THEN PRINT"CDOWNJDIE WALDE 
LBE NIMMT SIE GEFANGEN.":ZM-7100:GOTO 

2105 <225> 

2403 : <093> 

2410 IF PE(9)=ZN THEN 2455 <211> 

2411 OK-OK+1:IF OK—12 THEN 0K=1 <037> 

2415 PE(9)=0K(OK) <016> 

2420 IF PE(9)04900 THEN 2450 <137> 

2422 IF TU(5)00 THEN 2430 <051 > 

2424 TU(5)=1:IF ZN-4100 THEN PRINT"<DOWN>I 
N DER HOEHLE OEFFNET SICH EIN SPALT ! 

“:N—4900 <169> 

2425 GOTO 2450 <055> 

2430 TU(5)=0:IF ZN=4100 THEN PRINT"<DOWN>D 

ER SPALT SCHLIESST SICH.":N=0 <066> 

2450 IF PE(9)< >ZN THEN 2480 <153> 

2455 PRINT"{DOWNJEIN ORK BETRITT DEN RAUM 

! ” <016> 

2460 I=INT(12*RND(1))+l <114> 

2462 IF I<=2 OR GE,(5) =1 THEN PRINT” <DOWN>D 

ER ORK GEHT WEITER.":GOTO 2411 <197> 

2463 IF I>9 THEN 2480 <209> 

2464 IF I>2 THEN PRINT"CD0WN5DER ORK NIMMT 

SIE GEFANGEN.":ZM=5200:GOTO 2105 <207> 

2480 IF BT=0 THEN 2495: REM BUTLER <004> 

2481 IF ZN< >PE(8)THEN BU-BU+1:IF BU=5 THEN 

Bu=1 <015> 

2482 PE(8)=BU(BU) <115> 

2483 PE(8)07100 THEN 2490 <092> 

2484 iF TU(10)=1 THEN 24B7 <053> 

2485 TU(10)=1:IF PE(B)=ZN THEN PRINT"{DOWN 

JJEMAND OEFFNET DIE KERKERTUER.“:0=72 
00:BU=1 <212> 

2486 GOTO 2490 <245> 

2487 TU(10)=0:IF PE(B)=ZN THEN PRINT”<D0WN 
>JEMAND SCHLIESST DIE KERKERTUER.":0= 

0 <152> 

2490 IF PE(8)OZN OR ZN-7100 THEN 2495 <034> 

2491 PRINT"<DOWN>DER BUTLER DES ELBENKOENI 

BS ERSCHEINT<3SPACE>PL0ETZLICH !" <U5> 

2492 IF INT(10*RND(1))>4 THEN 2494 <146> 

2493 PRINT"<DOWN>DER BUTLER NIMMT SIE GEFA 

NGEN.":ZM-7100:GOTO 2105 <254> 

2494 PE(8)=BU(BU) <127> 

2495 IF SA-0 THEN 2500 <191> 

2496 MS—MS+1:IF MS=5 THEN MS=1 <204> 

2497 IF SM-ZN THEN GOSUB 34000:VL=6:DR=1:G 

OTO 2500 < 037> 

2498 SM=SM(MS):IF SM-ZN THEN DR=1 <05B> 

2500 GOSUB 9000:REM T H 0 R I N <186> 

2501 IF PE(3)=ZN THEN GOSUB 9500:REM GANDA 

LF <002> 

2502 IF PE(4)=ZN THEN GOSUB 30000:REM ELRO 

ND <162> 

2503 IF PE(7)=ZN THEN GOSUB 31000:REM SOLL 

UM <058> 

2504 IF PE(1)=ZN THEN GOTO 32000:REM WARG <009> 

2505 IF BA-1 THEN GOSUB 33000:REM BARD <113> 

2506 IF DR-1 AND SA=1 THEN GOSUB 34000:REM 

SMAUG <092> 

2509 IT=0:IF AC=2 AND ZN-6B00 THEN IT-lsIF 

GE(3)=1 THEN TU(8)=1:0=6900:IT-2 <052> 

2510 IF IT=1 AND BE(3)<>1 THEN A*="SIE HAB 

EN KEIN SCHWERT !“:GOSUB 500:RETURN <032> 

2511 IF IT=2 THEN PRINT"CD0WN5SIE ZERSCHLA 

GEN DAS SPINNENNETZ MIT DEM SCHWERT." <066> 

2520 IF VE<>17 OR 0B< >4 OR ZNO6900 THEN 2 

550 <223> 

2521 IF TU(9) = 1 THEN A*="DAS HABEN SIE BER 

EITS.":GOSUB 500:RETURN < 095 > 

2530 PRINT"CDOWNJSIE WERFEN DAS SEIL UEBER 
DEN FLUSS.":FOR 1=1 TO 2000:NEXT:GE( 

4)=6900 <074> 
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4600 DATA 1,IM NEBELGEBIRGE:W=4700:RETURN 

<203> 



4700 DATA 1,IM NEBELGEBIRGE:SW=4300:0=4600 


2540 PRINT"<DOWN>DAS SEIL VERFAENGT SICH I 


:RETURN 

<057> 

M BOOT.":TU <9)=1 

<071> 

4800 DATA 1,EIN SCHWERER UND GEFAEHRLICHER 


2550 IF VE<>2 OR QB< >4 AND BE (4) 06900 OR 


GEBIRGB- PFAD IM NEBELGEBIRGE 

< 193> 

TU <9)01 THEN 2570 

<151 > 

4810 W=4300:0=6100:GOSUB 60175:RETURN 

< 114> 

2555 PRINT"TDOWNJSIE ZIEHEN DAS BOOT ZU SI 


4900 DATA 1,HOEHLENSYSTEM DER ORKS:S=4100: 


CH HERUEBER.":TU<9)=2:GE(4)=1 

<033> 

0=5000:NE=5300:RETURN 

<053> 

2570 IF VE<>3 OR TU <9)02 THEN 25B0 

< 17B> 

5000 DATA 1,HOEHLENSYSTEM DER ORKS:W=4900: 


2575 PRINT”<DOWN>SIE UEBERQUEREN DEN FLUSS 


N=5300:0=5100:RETURN 

< 140> 

MIT DEM BOOT.":PE<2)=7600:ZM=7000 

<234> 

5100 DATA 1,HOEHLENSYSTEM DER ORKS:W=5000: 


2576 TU <9)=3:GOTO 2105 

<047> 

NW=5300:N=5400:RETURN 

<051 > 

25B0 IF ZNO7300 THEN 2600 

<03B> 

5200 DATA 1,GEFAENGNIS DER ORKS:RETURN 

<025> 

25B2 IF VE<>17 OR 0BO5 OR FA <0)01 THEN 2 


5300 DATA 1,HOEHLENSYSTEM DER ORKS 

<044> 

585 

< 189> 

5310 W=5200:SW=4900:S=5000:SO=5100:0=5400: 


2583 PRINT"<DOWN>SIE WERFEN DAS FASS DURCH 


H=5600:RETURN 

< 102> 

DIE FALLTUER.":GE < 9)=7500 

<207> 

5400 DATA 1,HOEHLENSYSTEM DER ORKS:W=5300: 


2585 IF VE<>4 OR FA <0)01 THEN 2600 

<205> 

S=5100:H=5700:RETURN 

< 130> 

2587 PRINT"<DOWN>SIE SPRINGEN DURCH DIE FA 


5500 DATA 1,HOEHLENSYSTEM DER ORKS:N=5B00: 


LLTUER IN DASI2SPACE>FASS,DAS IM FLUS 


0=5600:RETURN 

<033> 

S SCHWIMMT." 

< 155> 

5600 DATA 1.HOEHLENSYSTEM DER ORKS:W=5500: 


2590 FOR 1=1 TO 3000:NEXT 

<222> 

R=5300:RETURN 

<030> 

2591 PRINT“CDOWNISIE TREIBEN AUF DEM FLUSS 


5700 DATA 1,HOEHLENSYSTEM DER ORKS:NW=5900 


IN OESTLICHEI2SPACE>RICHTUNG.":PE<2> 


:N=6000:RETURN 

<180> 

=7600 

<204> 

5800 DATA.1,HOEHLENSYSTEM DER ORKS:S=5500: 


2592 FOR 1=1 TO 3000:NEXT 

<222> 

0=5900:RETURN 

<050 > 

2594 PRINT"{DOWNJIN EINER STARKEN KURVE WE 


5900 DATA 1,HOEHLENSYSTEM DER ORKS:W=5800: 


RDEN SIE AUST3SPACE>DEM FASS HERAUS A 


SO=5700:RETURN 

<212> 

NS UFER"; 

<252> 

6000 DATA 1,FEUCHTE GROTTE:S=5700:RETURN 

< 183> 

2595 PRINT" GESCHLEUDERT." 

<250> 

6100 DATA l.EINE WALDLICHTUNG:W=4800:RETUR 


2597 ZM=7600:GOTO 2105 

< 131 > 

N 

< 143> 

2600 : 

<036> 

6300 DATA 1,WEITES GRASLAND AM FUSS DES GE 


2899 GOTO 100 

<033> 

BIRGES:N=6400:RETURN 

<235> 

2910 REM SPIELKARTE 

<253> 

6400 DATA l.BEORNS HAUS:GE<7>=6400:S=6300: 


3000 DATA 3,SIE BEFINDEN SICH IN EINER KOM 


0=6600:NE=6500:GOSUB 60345:RETURN 

< 102> 

PFORTABEL EINGERICHTETEN HOEHLE , 

<203> 

6500 DATA 1,DAS TOR ZU MIRKWALD:SW=6400:S= 


3010 DATA DIE EINER LANGEN HALLE AEHNELT. 

<020> 

6600:0=6700:GOSUB 60140:RETURN 

<214> 

3015 DATA 0 

<10B> 

6600 DATA 1,AUF DEM NACHTWALDWEG 

<05B> 

3016 IF TU <0)=1 THEN 0=3100 

<249> 

6610 W=6400:0=6800:S=6700:RETURN 

<047> 

3030 GOSUB 60000:RETURN 

<0B7> 

6700 DATA 1,AUF DEM NACHTWALDWEG 

<160> 

3100 DATA 1,DAS EINSAME TAL:N=3200:VL=0:GO 


6710 PRINT"<DOWN>SIE SEHEN RIESIEGE AUGEN 


SUB 60050:RETURN 

<040> 

AUF SIE HERUN- TERSTARREN.":VL=4:RETU 


3200 DATA 1,LAGERPLATZ DER TROLLE 

<B77> 

RN 

< 177> 

3202 IF TU <1)=—1 THEN VL=1:G0T0 39000 <215> 

68lü., DATA 1, AUF DEM NACHTWALDWEG 

<004> 

3203 IF TU <1> =0 THEN TU<1)=-l:GOSUB 60090 

<042> 

6810 W=6600:S=6700 

<237> 

3205 IF TU <1) = 1 THEN PE$<10)="DIE VERSTEIN 


6820 IF TU <8> =1 THEN 0=6900:RETURN 

<005> 

ERTEN TROLLE" 

<140> 

6830 PRINT"<DOWN>EIN RIESIGES SPINNENNETZ 


3206 IF TU <1)=1 AND GE<21=10 THEN GE<2)=32 


VERSPERRT DENC2SPACE>WEG NACH OSTEN.t 


00 

< 113> 

DOWN>":RETURN 

< 133> 

3207 IF TU <1)=1 THEN 3230 

< 137> 

6900 DATA 1,DER SCHWARZE SCHNELLE FLUSS 

<205> 

3210 PRINT"DER BOESE TROLL SAGT 'KANN MAN 


6910 W=6800 

< 178> 

DEN WOHL KOCHEN ?*“ 

< 172> 

6920 IF TU <9X2 THEN PRINT" <DOWN>AUF DER A 


3220 PRINT"DER FETTE TROLL MEINT 'ER WIRD 


NDEREN SEITE DES FLUSSES LIEGT EIN BO 


KAUM EI- NEN MUNDVOLL GEBEN.'CDOWNI 

< 157> 

OT.<DOWN>" 

< 157> 

3230 S=3100:N=3300:50=3500 

< 105> 

6930 RETURN 

<130> 

3231 IF TU <1)=—1 THEN VL=1 

<253> 

7000 DATA 1, AUF DEM NACHTWALDWEG 

<206> 

3240 RETURN 

<250> 

7010 RETURN 

<210> 

3300 DATA 3,DUNKLER PFAD MIT FUSSSPUREN DE 


7100 DATA 1,IM KERKER DER WALDELBEN 

<092> 

R TROLLE. , 

< 199> 

7110 RETURN 

<054> 

3302 DATA NOERDLICH LIEGT DIE TUER ZUR HOE 


7200 DATA 1,IN EINEM GANG 

< 143> 

HLE DER TROLLE.:GOSUB 60310 

<004> 

7210 W=7100:S=7400:RETURN 

< 116> 

3303 IF TU <3)=1 THEN N=3400 

< 147> 

7300 DATA 1,IM WEINKELLER DES ELBENKOENIGS 

<162> 

3305 S=3200:VL=0:RETURN 

<025> 

7310 0=7400:GOSUB 60270:RETURN 

<035> 

3400 DATA 1,IN DER HOEHLE DER TROLLE:S=330 


7400 DATA 1,AN DER MAGISCHEN TUER 

<206> 

0:RETURN 

<222> 

7410 N=7200:W=7300:RETURN 

<048> 

3500 DATA 1,AM KLEINEN FLUSS:VL=0:NW=3200: 


7600 DATA 1 , AM GROSSEN SEE 

<016> 

SO=3600:TU < 4)=0:RETURN 

< 122> 

7610 0=7700:RETURN 

< 154> 

3600 DATA 1,RIVENDELL:NW=3500:0=3700:RETUR 


7700 DATA 1,DIE STADT ESGAROTH 

<243> 

N 

<059> 

7710 W=7600:N=7800:GOSUB 60220:RETURN 

<252> 

3700 DATA 1 y IM NEBELGEBIRGE:W=3600:N=3B00: 


7800 DATA 1,AM SCHNELLEN FLUSS 

<046> 

0=4300:RETURN 

<207> 

7810 N=B000:S=7700:0=7900:RETURN 

< 117> 

3800 DATA 1,IM NEBELGEBIRGE:S=3700:N=3900: 


7900 DATA 1,AM WASSERFALL:GOSUB 60405 

<046> 

RETURN 

<247> 

7910 W=7B00:RETURN 

<009> 

3900 DATA 1yIM NEBELGEBIRGE:S=3B00:NE=4000 


8000 DATA 1,WUESTENLAND 

<219> 

:RETURN 

< 196> 

8010 S=7800:H=8100:RETURN 

<045> 

4000 DATA 1,IM NEBELGEBIRGE:SW=3900:SO=440 


8100 DATA 1,DIE RUINEN VON DAL:GOSUB 60470 <059> 

0:RETURN 

< 143> 

8110 R=B000:H=8200:RETURN 

<172> 

4100 DATA 1,TROCKENE HOEHLE IM NEBELGEBIRG 


8200 DATA 1,DER EINSAME BERG:GOSUB 63100 

<209> 

E:IF TU<5)=1 THEN N=4900 

< 153> 

8210 N=8400:R=8100:NW=8300:NE=8500:RETURN 

< 141 > 

4110 S=4200:RETURN 

<020> 

8300 DATA 1,DER RABENHUEGEL 

< 140> 

4200 DATA l.IM NEBELGEBIRGE:NW=3900:N=4100 

8310 SO=B200:RETURN 

<050> 

:S=4300:RETURN 

<123> 

8400 DATA 1,EINGANG ZUR DRACHENHOEHLE 

< 189> 

4300 DATA 1,IM NEBELGEBIRGE:W=3700:N=4200: 


8410 S=8200:RETURN 

<235> 

0=4800:NW=3800:RETURN 

<016> 

8500 DATA 1,TROCKENE HOEHLE 

< 187> 

4400 DATA 1,IM NEBELGEBIRGE:NW=4000:R=4500 

8505 IF FA < 1) = 1 THEN R=8600 

<031 > 

:RETURN 

< 103> 

8510 SW=B200:RETURN 

<059> 

4500 DATA 1,IM NEBELGEBIRGE:R=4600:RETURN 

< 151 > 

8600 DATA 1,DIE SCHLAFKAMMER DES DRACHEN 

<009> 
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8610 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 
9009 


SW=8400:RETURN < 032 > 

IF PE (2) =5200 AND ZNO5200 AND ZN<610 
0 THEN 9050 <075> 


9010 

9011 


9015 

9016 

9017 

9018 

9019 

9020 


9050 

9051 


9052 

9055 


9060 

9070 

9075 


9076 

9080 


9090 

9095 

9097 


9098 

9499 

9500 

9503 

9504 

9505 


9510 


9512 

9513 


9514 

9517 


9519 

9520 
9999 


REM T H O R I N 

IF ZN>4900 AND ZN<6300 THEN 9050 
IC=0:IF PE(2)<>ZN THEN R*="IDOWNJTHOR 
IN KOMMT HERBEI.“sPE(2)=ZN:IC=1 
IF IC=1 AND PE(3)< >ZN AND PE<3><>0 TH 
EN PE (3)=ZN:PE(2)=ZN:R*="BEIDE" 

IF R*=""THEN 9009 

IF R*="BEIDE"THEN R*="{DOWN>THORIN UN 
D GANDALF KOMMEN HERBEI." 

PRINT R* 

IF GE(1>=2 AND ZN=3000 THEN PRINT"IDO 
WNJTHORIN GIBT IHNEN DIE KARTE.":GE(1 
1-1 

IF I NT (10*RND <1))>4 THEN RETURN 
IF PE(31=3100 AND ZN=3000 THEN PRINT" 
{DOWNJTHORIN SAGT 'BEEIL DICH !'":GOT 
O 9016 

IF INT(10*RND(1>>=5 THEN PRINT"{DOWNJ 
THORIN SAGT 'BEEIL DICH !'":GOTO 9020 <028> 
IF INT(20*RND(1>)=5 THEN PRINT"{DOWNJ 
THORIN BEGINNT VON GOLD ZU SINGEN.":G 
OTO 9020 

IF INT(20*RND <1)> «5 THEN PRINT"{DOWN> 

THORIN SETZT SICH UND WARTET." 

IF INT <20*RND (1 > >05 OR PE<3><>0 THEN 
9020 

PRINT"{DOWN>THORIN SAGT'WAERE GANDALF 
NUR BEI UNS.'. 

IF ZN>—4900 AND ZN<6000 AND INT(20*RN 
D C1) ) +1 >3 AND PE (2)05200 THEN PE<2) = 

4800 

IF PE (3X3700 THEN 9055 
PRINT"{DOWNJGANDALF SAGT 'WICHTIGE AU 
FGABEN WARTEN{2SPACEJAUF MICH{SHIFT-S 
PACE>! ' UND GEHT FORT." 

PE(3)=0 

IF ZN=5200 AND PE(2)05200 THEN PRINT 
"{DOWN>THORIN KOMMT HEREIN.":PE(2)=52 
00 

IF GE(6)=1 THEN PRINT"{DOWNJTHORIN NI 
MMT DEN GOLDSCHLUESSEL.":GE(6)=2 <091 > 

IF SAO0 OR ZNO8500 OR FA(1><>0 THEN 
9499 <250> 

PRINT"{DOWN>EIN ROTER SONNENSTRAHL TR 
IFFT AUF DIE{3SPACE >GLATTE FELSWAND I 
N DER"; <236> 

PRINT" HOEHLE !":FOR 1=1 TO 2000:NEXT <151> 

PRINT"{DOWNJEIN FLACHES STUECK GESTEI 
N SPLITTERT VOMFELS UND FAELLT HERUNT 
ER. " 

PRINT"{DOWN>EIN KLEINES LOCH ERSCHEIN 
T ETWA DREI{4SPACEJFUSS UEBER DER ERD 
E ! " 

PRINT"{DOWN>THORIN STECKT DEN GOLDSCH 
LUESSEL IN DAS LOCH.“ 

PRINT"{DOWNJEINE TUER TUT SICH AUF - 
EIN STEILER WEGFUEHRT VON IHR HINAB I 
N "; <229> 

PRINT"DIE DUNKELHEIT.":FA(1>=1:R=B600 <191> 

RETURN <159> 

REM GANDALF <068> 

IF UN(0)=3 THEN UN(0>=0:PRINT"(DOWNJG 
ANDALF SAGT WAS SOLL DER QUATSCH ?'“ <042> 
IF INT(10*RND(1)> >4 THEN RETURN 
IF ZN=3000 AND TU(0)=1 THEN PRINT"{DO 
WNJGANDALF GEHT NACH OSTEN.":PE(3)=31 
00 

IF ZN-3000 AND TU(0)=0 THEN PRINT"{DO 
WNJGANDALF OEFFNET DIE TUER.":TU(0)=1 
:0=3100 

IF ZNO3100 OR GA (0) = 1 THEN 9514 
PRINT"{DOWNJGANDALF SAGT 'EIN GROSSES 
ABENTEUER STE-HT DIR BEVOR !'":GA(0) 

= 1 


<066> 

<127> 

< 170> 

<201 > 
<081 > 

<034> 

<175> 


<116> 
< 171 > 


<211 > 


<154> 


<097 > 


< 122 > 
< 190> 


<213> 

<123> 


<189> 

< 200 > 


< 199> 


<0B7> 


< 102 > 


<223> 


<1B8> 


<231 > 


<006> 
< 147> 


IF INT(20*RND(1)>=1 AND GE(1)=1 THEN 
GE(1)=3:PRINT"{DOWNJGANDALF NIMMT DIE 
KARTE." 

IF INT(20*RND(1))=1 AND GE(1)=3 THEN 
BE(1)=1:PRINT"{DOWNJGANDALF GIBT DIR 
DIE KARTE. 

IF INT(30*RND(1))=1 THEN PRINT"{DOWNJ 
GANDALF SAGT 'WAS NUN ?'." 

RETURN 


<232> 

<092> 


< 166> 


<092> 

<223> 
< 151 > 


";LEFT*( 


10000 REM MOEGLICHE RICHTUNGEN 

10010 R$=“":IF N THEN R*=R$+"N," 

10011 IF S THEN R*=R$+"S," 

10012 IF O THEN R*=R*+"0," 

10013 IF W THEN R*=R*+"W," 

10014 IF NW THEN R*=R*+"NW," 

10015 IF NE THEN R*=R*+"NO," 

10016 IF SW THEN R*=R*+"SW," 

10017 IF SO THEN R*=R$+"SO," 

10018 IF H THEN R*=R*+"RAUF,“ 

10019 IF R THEN R*=R*+"RUNTER," 

10020 IF R*=""THEN 10100 
10030 PRINT"MOEGLICHE RICHTUNGEN 

R*,LEN(R*)-1):PRINT:R*="" 

10100 REM SIE SEHEN ... 

10105 IC=0:S*="{12RIGHTJ" 

10110 PRINT"SIE SEHEN :{SPACE,UPJ" 

10120 FOR 1 = 1 TO 10: IF PE(I)OZN THEN 1012 
5 

10121 IC=1:I*=PE*(I):IF LEFT*(I*,3)="DER"T 
HEN I*=MID*(I$,4,LEN(I*>):I*="EINEN" 
+ 1* 

10123 PRINT S*;I* 

10125 IF GE(I)=ZN THEN PRINT S$;GE*(I>:IC= 
1 

10130 NEXT 

10190 IF ZN=3000 THEN IC=1:PRINT S*"DIE TR 
UHE 

10200 IF ZN=3000 THEN IC=1:PRINT S*"DIE TU 
ER 

10201 IF ZN=6300 THEN IC=1:PRINT S*"DEN CA 
RROCK 

10202 IF ZN=3300 THEN IC=1:PRINT S*"DIE TU 
ER ZUR TROLLHOEHLE 

10210 IF ZN=4100 AND TU(5)=1 THEN IC=1:PRI 
NT S*"EINEN SPALT IN DER NORDWAND." 
10220 IF ZN=5200 THEN IC=1:PRINT S*"EIN FE 
NSTER IM WESTEN. 

10222 IF ZN=5200 THEN IC=1:PRINT S*"DIE GE 
FAENGNISTUER. 

10223 IF ZN=5200 THEN IC=1:PRINT S*"DEN SA 

DBODEN 

10224 IF TU(7)=1 AND ZN=5200 THEN PRINT SS 
"DIE FALLTUER” 

10225 IF ZN=7300 THEN PRINT SS"DIE FALLTUE 
R" 

10226 IF SA=0 AND ZN=MS THEN PRINT SS "DEN 
TOTEN SMAUG.“ 

10227 IF ZN=7300 THEN PRINT"{DOWNJUNTER DE 
R FALLTUER RAUSCHT EIN STARKER{2SPAC 
EJFLUSS." 

10228 IF ZN=8500 AND FA(1>=1 THEN PRINT SS 
"EINE OEFFENE TUER“ 

10229 IF TU(9)=2 AND ZN=6900 THEN PRINT SS 
"EIN BOOT" 

10230 IF ZN=7100 THEN PRINT S*"TUER NACH O 
STEN" 

10290 IF IC=0 THEN PRINT"{11SPACE,11LEFT,U 
PJ"; 

10300 FOR 1=1 TO 10 

10310 IF GE(I> =0 OR GE(I)>=3000 THEN 10350 
10320 :FOR 11=2 TO 10 

10325 ::IF GE(I>=II AND PE(II)=ZN THEN PRI 
NT"{DOWNJ";PES(II);" HAT ";BE*(I );". 

10330 :NEXT II 
10350 NEXT I 

10500 REM IFIC=1THENPRINT 
10600 RETURN 

11000 REM ROUTINEN FUER VERBEN 
11010 OB=0:FOR 11=0 TO LC:E*=L*(I1) 

11020 IF E*="TUER"THEN 0B=1 

11030 IF E*="TRUHE"THEN 0B=2 

11031 IF E*="FENSTER"THEN 0B=3 

11032 IF E*="FALLTUER"THEN 0B=4 
11040 NEXT II:RETURN 

11100 REM OEFFNE ******** 

11110 GOSUB 11000 

11114 IF 0B< >2 THEN 11125 

11115 IF 0B=2 AND ZN<>3000 THEN A*="HIER I 
ST KEINE TRUHE.":GOSUB 500:RETURN 

11117 IF TU(2)=0 THEN PRINT"SIE OEFFNEN DI 
E TRUHE. {DOWN J." : TU ( 2) = 1: RETURN 

11118 IF TU(2)=1 THEN A*="DIE TRUHE IST BE 
REITS OFFEN.GOSUB 500:RETURN 

11125 IF OBOl OR ZNO3000 THEN 11128 


< 171 > 
<037> 
<238> 
<142> 
<080> 
<078> 
<044> 
<251 > 

< 151 > 

< 144> 
<226> 

< 190> 

<208> 

< 111 > 

<047> 

<084> 

<156> 


<179> 

<230> 

< 000 > 

<234> 

< 180> 

< 159> 
<055> 
<06B> 

< 197> 
<054> 
<239> 
<068> 
<221 > 

< 175> 
<037> 

<18B> 

< 186> 

< 163> 

<1B7> 

<205> 

<030> 

<09B> 

< 220 > 


< 118> 
<099> 
<01B> 
<025> 
<244> 

< 114> 
<239> 

< 186> 

< 117> 
<007> 
<125> 
<082> 

< 128> 

< 184> 

< 166> 

<072> 

< 179> 

<024> 

<035> 


114 


SONDERHEFT 4/86 









C64 


ABENTEUERSPIELE 


Listing: »Der kleine Hobbit« (Fortsetzung) 


11509 

IF ES="WALDELBE"AND PE<5)=ZN THEN PS 






="DIE WALDELBE" 

<014> 

11126 

IF TU(0)=1 THEN AS="DIE TUER IST BER 


11510 

IF ES=“GOLLUM"AND PE<7)=ZN THEN PS=" 



EITS OFFEN.":GOSUB 500:RETURN 

<205> 


GOLLUM" 

<10B> 

11127 

IF TU(0)=0 THEN PRINT"SIE OEFFNEN DI 


11511 

IF ES="ORK"AND PE<9)=ZN THEN P*="ORK 



E TUER.TU(0)=1:0=3100:RETURN 

<239> 


•» 

< 130> 

11128 

IF ZNO3300 THEN 11140 

< 140> 

11512 

IF ES="TROLL"AND PE<10)=ZN THEN P*=“ 


11130 

IF TU(3)=0 AND GE(2>=1 THEN PRINT"SI 



TROLL" 

< 060 > 


E OEFFNEN DIE TUER.":TU(3)=1:N=3400: 


11513 

IF ES="BUTLER"AND PE<8)=ZN THEN PS=" 

• 


RETURN 

< 149> 


DER BUTLER" 

<045> 

11131 

IF TU (3) =0 AND GE <2)01 THEN A*="SIE 


11519 

NEXT I 

< 171 > 


HABEN KEINEN SCHLUESSEL.":GOSUB 500 


11520 

IF p*=""THEN A*="ICH SEH DAS HIER NI 



:RETURN 

< 163> 


CHT":GOSUB 500:RETURN 

< 130 > 

11132 

IF TU<3)=1 THEN AS="DIE TUER IST BER 


11540 

PRINT"(DOWNJSIE GREIFEN "PS" AN !" 

<00B> 


EITS OFFEN.":GOSUB 500:RETURN 

< 147> 

11550 

IF PS="DER BUTLER "THEN 11570 

<081 > 

11140 

IF 0B=3 AND ZN=5200 THEN AS="SIE SIN 


11552 

PRINT:PRINT PS" VERTEIDIGT SICH ZU S 



D ZU KLEIN DAZU.”:GOSUB 500:RETURN 

<137> 


EHR ! “ 

<020> 

11145 

IF ZNO7300 OR 0B< >4 THEN 11160 

<205> 

11554 

FOR 1=1 TO 2000:NEXT 

< 168> 

11147 

IF FA<0>=0 THEN FA<0)“1:PRINT"SIE OE 


11556 

PRINT:PRINT PS" HAT SIE GETOETET.":V 



FFNEN DIE FALLTUER.":RETURN 

< 106> 


L=1.4:RETURN 

<053> 

1114B 

IF FA<0)=1 THEN AS="DIE FALLTUER IST 


11570 

IF GE(3)Ol THEN PRINT"<DOWN>DER BUT 



BEREITS OFFEN.":GOSUB 500:RETURN 

<087 > 


LER HAT SIE GETOETET.":VL=1.4:RETURN 

/\ 

V 

11160 

A*="SIE KOENNEN DAS NICHT OEFFNEN.": 


11572 

PRINT"CD0WN1SIE HABEN DEN BUTLER MIT 



GOSUB 500:RETURN 

<204> 


EINEM SCHLAG<3SPACE>ENTHAUPTET.“:BT 


11200 


<227> 


=0 

<212> 

11210 

GOSUB 11000 

<028> 

11574 

PES(8)="DEN TOTEN BUTLER":RETURN 

<044> 

11214 

IF 0B< >2 THEN 11225 

<01B> 

20000 

REM SPRECHEN 

<222> 

11215 

IF 0B=2 AND ZNO3000 THEN AS="HIER I 


20005 

IC=0:FOR 1=2 TO 7 

< 141 > 


ST KEINE TRUHE.":GOSUB 500:RETURN 

< 172> 

20010 

IF PES(I)=LS(1>THEN IC=1 

< 195> 

11217 

IF TU(2)=1 THEN PRINT"SIE SCHLIESSEN 


20011 

IF PE <I)=ZN AND IC=1 THEN PS=PES<I): 



DIE TRUHE.":TU(2)=0:RETURN 

<0B0> 


P=I:IC=2 

<067> 

11218 

IF TU(21=0 THEN A*="DIE TRUHE IST BE 


20015 

NEXT I 

<031 > 


REITS ZU.":GOSUB 500:RETURN 

<013> 

20020 

IF IC=1 THEN AS=”"+LS<1)+" IST NICHT 


11225 

IF OBOl OR ZNO3000 THEN 11230 

< 181 > 


ANWESEND.":GOSUB 500:RETURN 

<099> 

11226 

IF TU<0>=0 THEN AS="DIE TUER IST BER 


20022 

IF IC=0 THEN AS="DAS GEHT NICHT.":GO 



EITS ZU.":GOSUB 500:RETURN 

<123> 


SUB 500:RETURN 

<"160> 

11227 

IF TU<0)=1 THEN PRINT"SIE SCHLIESSEN 


20030 

PRINT"SIE SAGEN ETWAS ZU ";PS;"." 

<040> 


DIE TUER.TU(0)=0:UN<0>=UN<01+1:0= 


20040 

11=0:12=0:FOR 1=1 TO LEN(LS) 

<054> 


0:RETURN 

< 118> 

20042 

IF MIDS(LS,I,l)OCHRS<34>THEN 20045 

<184> 

11230 

IF ZN=3300 AND TU<3>=1 THEN PRINT"SI 


20043 

IF 11=0 THEN 11=1+1:GOTO 20045 

<206> 


E SCHLIESSEN DIE TUER.":TU<3>=0:N=0: 


20044 

IF 12=0 THEN 12=1 

< 121 > 


RETURN 

<074> 

20045 

NEXT I 

<061 > 

11231 

IF ZN=3300 AND TU<3)=0 THEN A*=”DIE 

pr 

200oC 

LS=MIDS(LS,I1,12-11) 

<1B5> 


TUER IST BEREITS ZU.":GOSUB 500:RETU 


20060 

REM SATZ IN LS(0)-LS(10) GLIEDERN 

<05S> 


RN 

<255> 

20062 

FOR 1=0 TO 10:LS <I> = "":NEXT 

<226> 

11232 

IF ZNO7300 THEN RETURN 

<015> 

20064 

LC=0:FOR 1 = 1 TO LEN <LS) 

<236> 

11233 

IF 0B=4 AND FA<0) = 1 THEN FA<0)=0:PRI 


20066 

IF MIDS<LS,I,1)=" "THEN LC=LC+1:G0T0 



NT"SIE SCHLIESSEN DIE FALLTUER.":RET 



20070 

< 187> 


URN 

< 148> 

20068 

LS(LC)=LS <LC)+MIDS <LS,1,1) 

<202> 

11235 

IF 0B=4 AND FA <0> =0 THEN AS="DIE FAL 


20070 

NEXT I 

< 086 > 


LTUER IST BEREITS ZU.":GOSUB 500:RET 


20100 

REM ANALYSIEREN 

<220> 


URN 

< 171 > 

20105 

EG=0:VE=0:GG=0:FOR 1=0 TO LC:ES=LS(I 


11260 

AS="DAS GEHT NICHT.":GOSUB 500:RETUR 



) 

<003> 


N 

<033> 

20110 

IF ES="LIES"OR ES="UNTERSUCHE"THEN V 


11300 

REM NIMM / VERLIERE ********** 

<203> 


E= 1 

<233> 

11310 

IM=0:S*="":G1=0:FOR 1=0 TO LC:E*=LS< 


20120 

IF ES="GIB"THEN VE=2 

< 179> 


LC) 

< 119> 

20121 

IF ES= "SMAUG"THEN EG=3 

<214> 

11320 

FOR 11=1 TO 10 

< 120> 

20130 

IF LEFTS(ES,4)="TRAG"THEN VE=3 

<099> 

11330 

IF ES=MIDS(GE*(I1>,5,LEN(GE*(I1)> —4) 


20140 

IF LEFTS<ES,3)="GEH"THEN VE=4 

<228> 


THEN IM=I1:11=11:I=LC+1 

<165> 

20145 

IF ES="NIMM"THEN VE=5 

<056> 

11340 

NEXT 11:NEXT I 

< 150> 

20150 

IF ES=" VERLIER "THEN VE=6 

< 173> 

11350 

SS=GES(IM):G1=GE <IM) 

< 174> 

20160 

IF ES= "HILF“THEN VE=7 

<040> 

11360 

IF VE=1 AND Gl = l THEN AS="SIE HABEN 


20170 

IF ES="MIR"OR ES="MICH“THEN EG=1 

<095> 


DAS BEREITS.":GOSUB 500:RETURN 

<210> 

20171 

IF ES="OEFFNE"THEN VE=B 

<024> 

11365 

IF VE=1 AND G1=ZN THEN PRINT"SIE NEH 


20172 

IF ES="FENSTER"THEN EG=2 

<250> 


MEN ";SS;".":GE(IM)=1:RETURN 

<251 > 

20173 

IF ES="TOETE"THEN VE=8 

<206> 

11366 

IF VE=1 THEN AS="SIE KOENNEN DAS NIC 


20174 

IF VL=2 AND ES="ZEIT"THEN VL=0:GL=2 

<255> 


HT NEHMEN.GOSUB 500:RETURN 

<211 > 

20175 

FOR 11=1 TO 10 

<0B3> 

11370 

IF VE=2 AND Gl=l THEN GE<IM)=ZN:PRIN 


20176 

IF ES=MIDS(GES<I1),5,LEN(GES<I1))-4) 



T"SIE VERLIEREN ";SS;".":RETURN 

< 184> 


THEN GG=1 

<017> 

11375 

A*="SIE HABEN DAS NICHT.":GOSUB 500: 


20180 

NEXT 11 

<215> 


RETURN 

<253> 

20190 

NEXT I 

<206> 

11400 

REM INVENTUR ************ 

<148> 

20200 

REM 

<194> 

11410 

PRINT"SIE HABEN :<UP>" 

<221 > 

20210 

IF VEOl OR P< >4 OR GGOl THEN 20280 

<204> 

11420 

IC=0:FOR 1=1 TO 10:IF GE<I)=1 THEN P 


20212 

IF GE (1)01 THEN 20500 

<006> 


RINT,"I2RIGHT >"GE*<I):IC=1 

< 104> 

20215 

PRINT"<DOWN)ELROND BETRACHTET DIE KA 


11430 

NEXT I 

<0B2> 


RTE.":PRINT"<DOWN1ELR0ND SAGT "; 

< 119> 

11440 

IF IC=0 THEN PRINT,"<2RIGHT>NICHTS" 

<037> 

20220 

IF IK=0 THEN IK=(INT(5*RND(1))+l)*10 


11450 

RETURN 

<076> 


+20220 

<230> 

11500 

REM TOETE ********* 

< 158> 

20221 

GOTO IK 

<1B9> 

11505 

PS=""-p=0;FOR 1=1 TO LC:E*=LS(LC) 

< 159> 

20230 

PRINT"-NORDOESTLICH VON BE0RNS<4SPAC 


11506 

IF ES="THORIN"AND PE<2)=ZN THEN PS=" 



E>HAUS LIEGT DAS TOR ZU MIRKWALD.'." 

<094> 


THORIN" 

<076> 

20231 

RETURN 

<223> 

11507 

IF ES="GANDALF"AND PE<3)=ZN THEN PS= 


20240 

PRINT"-NOERDLICH VOM CARROCK LIEGTDA 



"GANDALF" 

<057> 


S HAUS VON BEORN.RETURN 

< 149> 

11508 

IF ES="ELROND"AND PE<4)=ZN THEN PS=" 


20250 

PRINT"’OESTLICH VOM GROSSEN SEE<3SPA 



ELROND" 

<019> 


CEILIEGT DIE STADT ESGAROTH.'.“:RETU 
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20271 

20280 


20281 


RN <006> 
20260 PRINT"'OESTLICH VOM SCHNELLEN{5SPACE 

>FLUSS IST EIN WASSERFALL.RETURN <161> 
20270 PRINT"AUF DER NÜRDWESTSEITE DES EINS 
AMEN BERGES IST DER RABENHUEGEL.*.» 

RETURN 

IF VE=2 AND P=3 AND GE<GG>=3 THEN PR 
INT:PRINT PE*C3>" GIBT IHNEN ";GE*<G 
B) 

IF VE=2 AND P=3 AND BE<GG)=3 THEN GE 
(GB > = 1 

20290 IF VE=3 AND EG=1 AND P=2 AND ZN=5200 
THEN PRINT"{DOWNJTHORIN TRAEBT SIE. 

":TR=1:RETURN 

20292 IF VEOB DR P< >2 OR EG< >2 OR TU (6)0 
0 THEN 20295 

20293 PRINT"{DOWNJTHORIN OEFFNET DAS FENST 
ER.":TU( 6 )-1:RETURN 

20295 IF P=2 AND VE=4 AND TR=1 THEN TR=0:Z 
M—5300SPRINT:R*="{6LEFT,SPACE >DURCH 
DAS FENSTER":RETURN 

20300 IF P =6 AND VE=7 THEN PRINT"{DOWNJBAR 
D SAGT 'ICH WERDE SMAUG TOETEN 
BA=1:RETURN 

20310 IF EG<>3 OR P <>6 OR VE <>8 OR SMOZN 
THEN 20320 

20311 PRINT"{DOWNJBARD NIMMT SEINEN SCHWÄR 
ZEN PFEIL.“:PRINT"{DOWNJEINE ALTE DR 
OSSEL "5 

20312 PRINT"KOMMT ANGEFLOGEN UND{2SPACE JSE 
TZT SICH AUF BARDS SCHULTER. 

20313 PRINT"{DOWN>BARD SAGT 'SCHWARZER PFE 
IL,DU HAST NIE{2SPACEJGEFEHLT,GLUECK 

SEI MIT DIR. 

20314 FOR 1=1 TO 2000:NEXT:PRINT"{DOWNJBAR 
D SCHIESST AUF SMAUG." 

20315 FOR 1=1 TO 3000:NEXT:IF INT(100*RND( 

1))<95 THEN 20317 

20316 PRINT"{DOWN>DER SCHWARZE PFEIL VERFE 

HLT SMAUG VL= 6 :RETURN 

20317 PRINT"{DOWNJDER SCHWARZE PFEIL BOHRT 

SICH TIEF IN{3SPACE>SMAUGS BRUST !“ _ 

20318 PRINT“{DOWN>SMAUG STUERZT UND STIRBT 

":SA=0:MS=ZN:VL=0 <063> 1 


<226> 
<007 > 


< 171 > 
< 111 > 


<031 > 
<194> 


< 002 > 


< 122 > 


< 107> 
<229> 


<249> 
< 153> 


< 117> 
<172> 
<196> 
<059> 


<226> 


20320 RETURN 

20499 IF P=7 THEN 20600 

20500 PRINT"{DQWNJ"PS" SAGT 'NEIN.'. 

20600 RETURN 

30000 REM E L R O N D 

30005 TU(4) =TU(4) +1' 

30010 IF TU(4)=1 THEN PRINT"{DOWNJELROND S 
AGT 'HALLO 

30015 IF TU(4)=2 THEN PRINT"{DOWNJELROND B 
IETET IHNEN ETWAS ZU ESSEN AN.":GE(7 
> =3600 

30020 RETURN 

31000 REM G O L L U M 

31005 IF GL>1 THEN 31100 

31010 PRINT"{DOWNJGOLLUM FRAGT 'ETWAS,DAS 
ALLES UND JEDEN VERSCHLINGT:BAUM DER 
RAU"; 

31012 PRINT"SCHT,VOGEL DER{2SPACE>SINGT,FR 
ISST EISEN,ZERMALMT DEN HAERTES-TEN 
STEIN,"; 

31014 PRINT"ZERBEISST JEDES SCHWERT,ZERB¬ 
RICHT JEDEN SCHREIN,SCHLAEGT "; 

31015 PRINT“KOENIGE{4SPACEJNIEDER,SCHLEIFT 

IHREN PALAST,TRAEGT{5SPACEJMAECHTIG 
EN FELS"; 

31017 PRINT" FORT ALS LEICHTE LAST?'.":VL= 
2:GL=2:RETURN 

31100 IF GL=2 THEN PRINT"{DOWNJGOLLUM SAGT 
'ER WEISS ES MEIN SCHATZZZ.'.":GL=3: 
RETURN 

31110 GL=GL+1:IF GL>5 AND BE(5)=1 THEN GE< 
5)=7:PRINT"{DOWNJGOLLUM NIMMT DEN RI 
NG.":RETURN 

31120 IF GE(5)=1 THEN PRINT"{DOWNJGOLLUM S 
AGT ' WAS HAT ER IN DER TASCHE{2SPAC 
EJMEIN SCHATZ?'. 

31130 IF GE(5)=7 THEN VL=2 

31140 RETURN 

32000 REM W A R G 

32010 PRINT"{DOWNJDER FUERCHTERLICHE WARG 
GREIFT SIE AN !“ 

32020 IF GE(3)+GE(4)+ 6 E(5)<>3 OR GL=0 THEN 
32100 


<056> 

<083> 

< 195> 
<0B2> 
<206> 
<055> 

< 159> 


<056> 

< 104> 
<009> 

< 109> 


<041 > 


<231 > 
<073> 


<204> 

<077> 


< 139> 


<189> 


<255> 
<068> 
<20B> 
<033> 

<062> 

< 119> 


32030 PRINT"{DOWNJSIE VERTEIDIGEN SICH MIT 
GANZER KRAFT... 

32032 FOR 1 = 1 TO 3000: NEXT 

32034 PRINT"EIN RIESIGER ADLER STUERZT AUS 
DER LUFT AUF SIE HERUNTER,PACKT SIE 

32036 PRINT"MIT SEINEN{3SPACEJKLAUEN UND F 
LIEBT DAVON ! 

32038 FOR 1=1 TO 2000:NEXT:PE(2)=6300 
32040 PRINT"{DOWNJNACH EINEM LANGEN FLUG L 
ANDET DER ADLER IN DER NAEHE EINES " 
; 

32042 PRINT"FELSPLATEAUS,LAESST{2SPACEJSIE 
FREI UND FLIEGT DAVON...":ZM=6300:G 
OTO 2105 

32100 VL=3:GOTO 39000 
33000 REM B A R D 

33010 IF PE< 6 )<>ZN THEN PE( 6 )=ZN:PRINT"{DO 
WNJBARD FOLGT IHNEN." 

33050 RETURN 
34000 REM SMAUG 

34010 IF SM=ZN THEN PRINT"{DOWNJSMAUG ERSC 
HEINT !" 

34040 IF INT(20*RND(1))<5 THEN PRINT"{DOWN 
JSMAUG SAGT 'ICH KRIEG DICH,DIEB 

RETURN 

REM VERLOREN 
PRINT 

IF VL=1 THEN PRINT"DER TROLL HAT SIE 
GEFRESSEN." 

IF VL=2 THEN PRINT"JEMAND HAT SIE VO 
N HINTEN ERWUERBT. 

IF VL=3 THEN PRINT"DER WARG HAT SIE 
GETOETET. 

IF VL=4 THEN PR INT "ETWAS SCHWERES FA 
ELLT HERUNTER UND ER—{2SPACE JSCHLAEG 
T SIE." 

IF VL=5 THEN PRINT"ALS SIE DAS WASSE 
R BERÜHREN FALLEN SIE{2SPACE JIN SCHL 
AF." 

IF VL =6 THEN PR INT "SMAUG HAT SIE GEF 
RESSEN. 

END 

REM GRAFIK 
REM HOBBIT—HOEHLE 

PRINT, " {BROWN,7SPACE J gE t ftjba? " , , , " {4S 
PACE J-Fpfi{RVSON, ORANGE Jfi {2SPACE >2(2SP 
ACEJJKRVOFF,BROWNJfp" ,,," Tpg<ORANGE 
,RVSONJfl{2SPACEJHfl 2 hü Ä<RVOFF,BROW 
NJi.? 

PRINT,"ff{ORANGE Jff{RVSON,2SPACE Jfifi{2S 
PACE J fl {BROWN Jffffff{ORANGE JM ÜH {SPACE , R 
VOFFJ^ROWNJ," , , , "ff{SPACE,ORANGE Jff { 

J&{SPACE,RVOFF J^{SPACE,BROWN Jff 
PRINT, "ff{2SPACE,RVSON J k ' e'r ’ e ' r ' c ' r ' e ' r { 
RVOFF , 2SPACE Jff" , , , " ff{2SPACE, RVSON JFif 
ERE R FrV RtW {RVOFF , 2SPACE J G 
PRINT, "ff{2SPACE,RVSON Jffff{BLUE Jfi£(BRO 
WNJffff {RVOFF, ORANGE Jff{RVSON J@e5{RV0FF 
J£{BR 0 WN,RVS 0 NJFif{RVaFF, 2 SPACEJS" , , , 
"ff {2SPACE , RVSON Jfff {BLUE Jffff{BROWN JFr < 
RIGHT,ORANGE Jff {LEFTJ ££5 {RIGHT,BROWN J 
ffff {RVOFF,2SPACE Jff 

PRINT,"ff{2SPACE,RVSON Jffff{GREEN J {BR 
OWN JWF{RIGHT,BREY 1Jff {ORANGE JÜZKRI GH 
T,BROWNJffTf{RVOFF,2SPACEJff" , , , "ff{2SPA 
CE , RVSON J fe"R"ETR'E'R"{R I GHT , ORANGE JfiäS {RIG 
HT ,BR0WNJ'RT{RV0FF,2SPACEJff 
PRINT ," ff {2SPACE, RVSON J IFrirrfr {ORANGE J 
£TTTff{BROWNJffff{RVOFF,2SPACEJff" , , , "ff{ 
SPACE,ORANGE,RVSON J4TTTTTT{5SPACEJ TT 
ff {RVOFF,BROWN,SPACE Jff 
PRINT,"ff{ORANGE,RVSON J£{15SPACE Jff{RV 
OFF, BROWN JE"’: GOTO 63000 
REM WUESTENLAND 

PRINT"{BROWNJ","W YVYYYVYYV V V Y YV VyYyY 
TR 

FOR 1=1 TO 13:PRINT,"ff",," ff":NEXT 
PRINT"{14UPJ","{DOWN,2RIGHT,DOWN,WHI 
TEJ.{UP,2RIGHT J.{2RIGHT,2D0WNJ.{2UP, 
RIGHTJ.{2RIGHTJ.{DOWNJ.{2RIGHTJ.{UP, 
RIGHTJ. 

PRINT, " {RIGHT,5D0WN,GREY 1 JU{UPJ&{UP 
J&ojp JütKDOWN jaüflHOJP JMniDOWNj nwriNm 


34100 

39000 

39010 

39015 

39017 

39019 

39020 

39021 

39023 

3950. 

60000 

60005 

60015 


60020 


60025 


60030 


60035 


60040 


60045 

60050 

60055 

60060 

60065 


60070 


<230> 

<081 > 


<058> 

<057> 
<251 > 


<0B7> 


< 188> 
<229> 
<168> 

< 156> 
<087> 

< 165> 

< 197> 


<041 > 

< 121 > 
<230> 
<249> 

<071 > 

<080> 

<018> 


< 022 > 


<194> 

< 220 > 

< 131 > 

<187> 

< 133> 


<228> 

<204> 

<156> 

<175> 

<230> 

<041 > 

<214> 

<226> 

<0B5> 

< 156> 

< 157> 
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Listing: »Der kleine Hobbit« (Fortsetzung) 

2SPACE>JÜT,,"<d.RIGHT>a H<3SPACE>J4 
2SPACEJÖÜ 

60075 PRINT,"{5RIGHT>a M<3SPACETa M<3SPACE 
>11" , , , , " {2SPACE , BROWN >flü" , , , " {4RIGHT 
}PH{2SPACE>nX<2SPACE>MK" , , , '• {4RIGHTT 
flRC2SPACE>HHC2SPACE>R 
60080 PRINT,“{4RIGHT >WC3SPACE>WI2SPACE}R{Q 
RANGE T¥{RVSON,8SPACE,RVOFF >"t FÜR 1 = 1 
TO 2:PRINT,"<RIGHT,RVSON,20SPACE,RV 
OFF»" 

60085 NEXT:GOTO 63000 


60090 REM ORK-GRILLPLATZ 
60095 PRIhlT , " {BROWN , 

353":F0R 1 = 1 TO 14-.PRINT, "W" , ,"5":NE 
XT 

60100 PRINT," TTTTTTTTTTTTTTTTTTT" 

60105 PRINT" {15UPT" , " {D0WN.2RIBHT,WHITE>. < 
3SPACE,DOWN >.<UP,2RIBHTT.{2RIGHT,2D0 
WN>.{2UPT.{DOWN,2RIGHT >■{2D0WNT. 

60110 PRINT,,"{2UP,4LEFT,BROWN ÜHCDOWN, 

5LEFT IPüßPKBJißH" , ,, " MRIGHTiaaßH ÜHH 
WWaßH 

60115 print, "Hfla nawaanawaaHflHaaHH",, "wara 
wawaaawawwawa aww 

60120 print," wwaaaKaw am awwa wan”,," crig 

HT>Wa WaW<2SPACE>W<GREY 1 >FT5<BROWN} 
W flRaflTTH 

60125 PRINT,"KflEüflHaH«SPACE,GREY 1JVCBROWN 
>a<YELLOW}a{BROWNJa<GREY 1>W<BROWN,S 

pace iwa was”,, •• tthh wac3SPACE, grey i > 
H W<BR0WN,2SPACE>aR aww 
60130 PRINTHW {2SPACE >W<11SPACE >H<2SPACE > 
HW", , "Wt6SPACE,ORANGE)¥*Wi¥fT?<BROM 
N,3SPACE>H 

3000 

60140 REM DAS WALDTOR 

60145 PRINT,"{LIG.BLUE,RVSON,16SPACE,RVOFF 
}",,,"<RVS0N,6SPACE>aaaa<6SPACE,RV0F 
F> 

60150 PRINT,"<RVS0N>a<2SPACE>aaa a<2SPACE> 
aaaaarsPACE, rvoff > ~,,, ■■ crvson,space> 
aa a a<RvoFF,YELLowiaa{RvsoN,LiG .blu 
E,SPACE> a aC2SPACETßCRVOFF} 

60155 PRINT,"{RVSON,SPACETa ü a<RVOFF,YELL 

ow >aaaa{ rvson,lig . blue,space >a<4SPAc 

E, RVOFF {RVSON >a{4SPACE , RVOFF , Y 

ELLOW >aa{2SPACE >Ba{RVSON,LIG.BLUE,5S 
PACE,RVOFF > 

60160 PRINT," {YELLOW TT’l'l'fifiY\VY£TTTTT" , , , " 
{BROWN , RVSON 5-RnTER {YELLOW , RVOFF JflfiW 
££ {BROWN , RVSON J-rTÜT? 

60165 PRINT,“ {RVSON JlTfHST {YELLOW , RVOFF >HH{ 
RVSON,2SPACE,RVOFF >WW{BROWN,RVSON> WS 
rsw , , , " {RVSONITWSTS{YELLOW,RVOFF>HH 
{RVSO N,2SPACE,RVOFF >WW{BROWN,RVSONTW 
FSTil 

60170 PRINT," {RVSON IFSTÜTrYELLOW, RVOFF >KH { 
RVSON , 2SPACE , RVOFF >WW{BROWN, RVSON TW* 

wirr",,, •• {rvson , orange , 1 öspace , rvoff > 

":GOTO 63000 
60175 REM GEBIRGSPFAD 

530”,1"W{4SPACE,WHITE >. {ORANGE,RVSON 
>HRH H H{2SPACE }R{2SPACE TJKSPACE , RVO 
FF,BROWNTH 

60185 PRINT,"W{SPACE,WHITE>.{ORANGE,3SPACE 
,RVSON>HHH H H{2SPACE>R{2SPACE>5{SPA 
CE,RVOFF,BROWNTH",,"W{2SPACE,WHITE >. 
{ORANGE,2SPACE,RVS0NTTHK H H{2SPACE> 
R{2SPACE }£{SPACE,RVOFF,BROWN TH 
60190 PRINT,"H{WHITE>.{3SPACE>.{ORANGE,RVS 
ONJTTHH H H{2SPACE>R{2SPACE>Ü{SPACE,R 
VOFF,BROWN TH",,“W{SPACE,ORANGE,RVSON 
TiW{RVOFF, 2SPACE , RVSON TlfHH H H{2SPAC 
E >R{2SPACE >2{SPACE,RVOFF,BROWN >G 
60195 PRINT,"H{ORANGE,RVSONTiaBW^BROWN>77 
£. {ORANGE,RVOFF}»{RVSON>H HI2SPACE>K{ 
2SPACET1{SPACE,RVOFF,BROWNTH",,"W{OR 
ANGE,RVSON >a<2SPACE >ßa{BROWN,2SPACE> 
WH{ORANGE,RVOFF,SPACE T ¥{RVSON TK<2SPA 
CE >H{2SPACE >£{SPACE,RVOFF,BROWN>H 
60200 PRINT,"H{ORANGE,RVSDN,SPACE>aa a{BRO 
WN,2SPACE>WW {SPACE,RVSON >5{RVOFF,SPA 
CE,ORANGE>¥{RVSON,SPACETHT2SPACETJKS 


< 199> 


< 136> 


< 166> 
<055> 
<156> 


<08B> 
<201 > 


<045> 


<239> 


< 177> 


< 169> 


<231 > 


<054> 


<040> 

<216> 


< 010 > 


<249> 


< 170> 


<071 > 


<008> 


<0B5> 
< 113> 


<177> 


<245> 


<144> 


<013> 


< 159> 


PACE,RVOFF,BROWNTH”,,"W{ORANGE,RVSON 
>a<2SPACE >aa<BROWN,2SPACE>WW WW<RVSO 
N,CYAN,RVOFF,SPACE,ORANGE,SPACE >¥{RV 
SQN,2SPACE >£{SPACE,RVOFF,BROWNTH 
60205 PRINT,"H{ORANGE,RVSON,3SPACE>a{SPACE 
,BROWN,2SPACE}WW WW<SPACE,RVOFF,2SPA 
CE,ORANGE {RVSON,SPACETJKSPACE,RVOF 
F,BROWNTH“,,"W{GREY 1,RVSON,5SPACE,B 
ROWN,2SPACE>WW WW<SPACE,RVOFF,3SPACE 
,ORANGE TW{RVSON >2{SPACE,RVOFF,BROWN > 

5 

60210 PRINT,"H<GREY 1,RVSON,9SPACE,BROWN,S 
PACE >WW(SPACE,RVOFF,4SPACE,ORANGE >¥{ 

RVSON,SPACE,RVOFF,BROWN > H",,"H<GREY 
1 , RVSON , 13SPACE , RVOFF , 5SPACE, ORANGE > 

¥<BROWNTH _ 

60215 PRINT, " {SPACE,BROWN TTTTTTtTTTTTTTTTT 
TTT":GOTO 63000 
60220 REM FORRESTRIVER 

60225 FOR 1=1 TO 6sPRINT,"{RVSON,LIG.BLUE, 

19SPACE,RVOFF >"s NEXT 

60230 PRINT,"{RVSON,LIG.BLUE>5555555555555 
055555":FOR 1=1 TO 7:PRINT,"{RVSON,L 
IG.GREEN,19SPACE>":NE XT 
60235 PRINT,"{9UP,RVSON,LIG.BLUE>aflJP>a<UP 
>aß{DOWN>a<LEFT,3UP> jj£<4D0WN,2LEFT>a 
{UP>ä{UP}a{3UP}JÜ{DaWN Tüi{3D0WN , 2LEF 
t >a<up >aa<DowN ,left >a{up>a{up >aa{Dow 
N>aaaa 

60240 PRINT,,“{3LEFT,2UP,LIG.BLUET£W{DOWN, 

2LEFT, RVSON , GREY 1 TÜI (DOWN, 2LEFT T£K.{ 

DOWN , 2LEFT , 2SP ACE, RVOFF , 3SPACE , LIG . B 
LUE TW{DOWN,6LEFT,RVSON,GREY 1,2SPACE 
,GREY 2>WFTF{D0WN,6LEFT,GREY 1,2SPAC 
E,GREY 2>HVW 

60245 PRINT,,"{UP,6LEFT,LIG.GREENTiW{RVSON 
,GREY 1,DOWN,2LEFT,GREY 1>H<SPACE,RI 
GHT,GREY 1 ,RVOFF>TT{RVSON>’ir{GREY 2>H{ 

3SPACE,2RIGHT,UP,LIG.GREEN,RVOFF Ti¥{ 

RVSON,DOWN,2LEFT,GREY 1>S ",,,"{RIGH 
T , RVOFF , LIG. GREEN IST" ."{RIGHT TiW” 

60250 PRINT,"{RIGHT,GREY 2,RVSDNTH<SPACE,R 
VOFF,LIG.GREENTi W{RIGHTTi ¥ {RIGHT, R 
VSON,GREY 1,SPACE>W<RVOFF,RIGHT,LIG. 

GREENTi ¥”,,,"{3RIGHT,GREY 1,RVSONTH 
STSPACE,RIGHT,GREY 2,SPACE >S<SPACE,4 
RI GHT, SP ACE TW " 

60255 PRINT,“{LIG.GREEN,RVSON,SPACE }5pHT IR 
VOFF TIiYtY {RVSON >TH5{7SPACE, RVOFF > 

60260 PRINT," HWÖT{RVSDN>WyTU{RVOFFTTW{ORA 
NGE,RVSON >i{RVOFF Ti{LIG.GREEN T YU{RVS 
ON TT5W <SPACE, RVOFF T 

60265 PRINT," {RVSON, 12SPACETTiJ{RV0FF>TBW5" <119> 

60266 PRINT,,"{11UP,SRIGHT,LIG.BLUE,RVSON> 
a{RIGHT>a{D0WN,4LEFT>a{3UP,3RIGHT,12 
DOWNT":GOTO 63000 

60270 REM WEINKELLER _ 

60275 PRINT,"{SPACE,GREY 2}555555555555555 
55 

60280 FOR 1=1 TO 2:PRINT,"H<4SPACE,RVSON>W 

60285 PRINT, « WUSPACE^BROWN,RVSON>4{GREY 2 
TWSWÄW{ORANGE>ail£{GREY 2>W{0RANGE>afi 
£{GREY 2>W{RVOFFTH"SPRINT,“W<2SPACE, 

BROWN,RVSONTia(GREY 2 TrWrW*'{ORANGE> 2 
SB{GREY 2TW<ORANGE>ÄS£{GREY 2>1f<RV0F 
FTH" 

60290 PRINT,"H{SPACE,BROWN,RVSONTiHa{RVOFF 
>5555{SPACE,ORANGE,RVSON>äJ£(RIGHT>ß 
{RVOFF,GREY 2, SPACE TH“:PRINT,"W<SP 
ACE,BROWN,RVSON >aa{RVOFF,BROWN >ikp-pji 
{9SPACE,GREY 2TH 

60295 PRINT,"H{SPACE,BROWN,RVSON>a{RVOFF,B 
ROWNTi(LIG.BLUE,RVSON >i<2SPACE,RVOFF 
>i<9SPACE,GREY 2,SPACETH 
60300 PRINT,"Wa{BROWNTi{LIG.BLUE,RVS0N>i{2 
SPACE,RVOFF T£{10SPACE,BREY 2,SPACE TH 
"SPRINT,"HCSPACE,BROWN TfTTT{5SPACE,0 
RANGE,RVSON Taäe {RVOFF,4SPACE,GREY 2 T 
5 

60305 PRINT,"W<6SPACE,ORANGE,RVSON>a££<RIG 
HTTSS2{RVOFF,GREY 2,4SPACETH"SPRINT, 

" TTTTtTTTTTTTtTTTT" 5 GOTO 63000 
60310 REM DUNKLER PFAD 

60315 PRINT:FOR 1=1 TO 3sPRINT,“{GREEN,RVS 
ON,14SPACET"s NEXT 


<007> 


< 167> 

< 146> 
<038> 

< 147> 


< 193> 


< 15B> 


<218> 


< 126> 


<014> 


<055> 


<143> 


<227> 

<079> 


< 105> 


<065> 


< 127> 


< 113> 


<077> 


<217> 


<244> 

<219> 

<034> 


33a? 
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60320 


PRINT, "F(BROWN)’iT{GREEN ITH?(BROWN )F(SP 
ACE , GREEN )TJ (BROWN)T (GREEN )F(RVSON , 2S 
PACE>W “ 

60325 FOR 1 = 1 TO 3: PR INT, {BROWN, SPACE >TT<2 
SPACE >1TI2SPACE >T(2SPACE >f I2SPACE >Tf" : 

NEXT 

60330 PRINT," «ORANGE,RVSON,SPACEJ5FBTP FFF 
B BP" 

60335 PRINT, "BBPSTpBPBpBBBP 
60340 PRINT, "ÜDtfUUlAjWkAAjVU": GOTO 63000 
60345 REM BEORNS HAUS 

60350 PRINT,"(LIG.BLUE,RVSON,16SPACE,RVOFF 

60355 PRINT,"(RVSON,3SPACE,SHIFT-SPACE,6SP 
ACE >aa(4SPACE,RVOFF > 

60360 PRINT,"(RVSON,SPACE )£fl(2SPACE)£fl(RVO 
FF )£F(RVSON )J4(2SPACE)fl(2SPACE)£{RVOF 
F> 

60365 PRINT,"<RVS0N>£{2SPACE > UH (SPACE,RVOF 
F )£(2SPACE,RVSON,ORANGE,SPACE,LIG.BL 
UE,3SPACE> Wt (SPACE,RVOFF) 

60370 PRINT,"(RVSON,3SPACE>M(SPACE,RVOFF>4 
(3SPACE,RVSON,ORANGE,SPACE,LIG.BLUE, 

RVOFF )¥(RVSON,2SPACE)£(2SPACE,RVOFF > 

60375 PRINT,"(RVSON,2SPACE)£(SPACE,RVOFF)£ 
(6SPACE iS (RVSON,4SPACE,RVOFF > 

60380 PRINT,"(RVSON,5SPACE,BROWNJFSFSTP(LI 
G.BLUE,5SPACE,RVOFF > 

60385 PRINT,"(RVSON,5SPACE,BROWN>rT(RIGHT> 

F(WHITE,SPACE,BROWN)R(LIG.BLUE,5SPAC 
E,RVOFF) 

60390 PRINT, “ (RVSON) 1TRTPP(BROWN>Fif(RVOFF,O 
RANGE )V(RVSON , BROWN JTfTif (LIG. BLUE >imf 
■STF(RVOFF) 

60395 PRINT, " (RVSON,GREEN>TTT T I ' t ' t ' i TTTTTTTT 
(RVOFF) 

60400 PRINT,”(RVSON,16SPACE.RV0FF)“:GOTO 6 
3000 

60405 REM WASSERFALL 

60410 PRINT,"(SPACE, . . 

60415 PRINT, "H ü ü iRHCLIG. BLUE)^(BROWN)^G 

J 2 B 

60420 PRINT,"R £ £ £ RILIG.BLUE,RVSON,SPAC 
E,RVOFF,BROWN,SPACE)Rü £ H 

60425 PRINT,"R ü ä gn(LIG.BLUE)R(RVSON,SPA 
CE,RVOFF,BROWN)EXR ü H 
60430 PRINT,"R ü £ GÜ(LIG.BLUE)R(RVSON,SPA 
CE,RVOFF)R(BROWN)£R R R 
60435 PRINT,"R £ £ E2(LIG.BLUE)r(RVSON,SPA 
CE,RVOFF)7(BROWN)£ R RR 
60440 PRINT,"R(GREEN 1RIBROWN )JS (GREEN)R(BRO 
WN)RR Ü(LIG.BLUE,RVSON)T(SPACE,RVOFF 
) Tf (BROWN )£ £ ER 

60445 PRINT,"R(GREEN,RVSON)T(RVOFF)R(RVSON 
>TC (RVOFF,BROWNR(LIG.BLUE,RVSON)T 
T(RVOFF,BROWN)£ £ RR 

60450 PRINT,"RIGREEN,RVSONIRFRRIRVOFF,BROW 
N)ü Ü(LIG.BLUE,RVSON,3SPACE,RVOFF,BR 
OWN)R £R R 

60455 PRINT,"RIGREEN,RVSON,SPACE)R(2SPACE, 

RVOFF,BROWN)£(BLUE)R(RVSON)TTTTT(RVO 
FF)R(BR0WN)2R R 

60460 PRINT, "RT TT (BLUE )R(RVSON , 9SPACE , RVOF 

F )R(BROWN )HR <044> 

60465 PRINT," TTTTTTTTTTTTTTT":GOTO 63000 <107> 

60470 REM DAL <012> 

60475 PRINT, " (BROWN,SPACE><169> 
60480 PRINT,"RISPACE,WHITE).(6SPACE).(4SPA 

CE,BROWN,3SPACE)R <061> 

60485 PRINT,"RISPACE,WHITE,4SPACE).(5SPACE 

). .(BROWN,2SPACE)R <096> 

60490 PRINT,"R(SPACE,GREY 1,6SPACE)Hfl(BROW 

N,7SPACE)R <218> 

60495 PRINT,"RIGREY 1,2SPACE)Mfl(2SPACE)H(2 
SPACE ) I1HÜ (BROWN, 2SPACE, SH I FT-SPACE , S 
PACE)R <240> 

60500 PRINT, "RIGREY 1 ,SPACE)H(2SPACE)ÜJi(3S 

PACE)£(2SPACE)fl(2 SPACE)£(BROWN)g <112> 

60505 PRINT,"RIGREY 1)£{3SPACE)£(YELLOW,SP 
ACE)S(GREY 1,SPACE)M(4SPACE}flü(BROWN 
,SPACE)R <1 55> 

60510 PRINT,"R(YELLOW,3SPACE)B(SPACE,RVSON 
)U(SPACE,RVOFF,SPACE>«TS(SPACE,GREY 
1,SPACE)£(BR0WN,2SPACE)R <198> 

60515 PRINT,"RIYELLOW,3SPACE,RVSON,SPACE,R 
VOFF )TifTr(SPACE , RVSON, SPACE, RVOFF )kW 
(SPACE,BROWN,3SPACE TR <062> 


<086> 


<055> 

< 146> 
<253> 

< 119> 

< 159> 

<158> 

<070> 


<046> 

<104> 

<024> 

<025> 

< 169> 

<24B> 

<043> 

< 181 > 

< 122 > 

< 193> 
< 210 > 

< 149> 
<077 > 
<142> 

< 163> 
<241> 

< 153> 

<070> 

<219> 

<240> 


60520 

60525 

60530 

62000 

62001 

62002 

62003 

62004 

62005 

62006 
62007 
6200B 

62009 

62010 
62011 

62012 

62013 

62020 


PRINT,"R(YELLOW,2SPACE,RVSON)V(4SPAC 
E,RVOFF)R(RVSON,4SPACE,RVOFF)T(SHIFT 
-SPACE,BROWN,2SPACE)g 
PRINT, "RIORANGE,RVSON)T Tl TT TT T I t ' tVtY 
rr (RVOFF,BROWN)G 

PRINT,"R(ORANGE,RVSON,16SPACE,RVOFF, 
BROWN TB 1 “ s GOTO 63000 

PRINT"(CLR)":PRINT,"(YELLOW,5SPACE)fl 
OH ü 

(2SPACE)Ü ü(2SPACE)fl£(2SPACE) 


PRINT, 

U & 

PRINT, 

CE)H 

PRINT, 

PRINT, 


fl(2SPACE)fl fl(2SPACE)K £(2SPA 


’ S ÜB ® S SM S 

-, nnnn rniu mn nhwn 

PRINT, "flaflflR(RVSON)ggggßP(RVOFF) tWHH 
H 

PRINT," fiaa(RED,RVS0N)£(6SPACE)5(RV0 
FF.YELLOW)NNW 

PRINT," ÜÖIRED,RVSON)£(BSPACE)¥(RVOF 
F, YELLOW )m 

PRINT,"(2SPACE)fl(RVSON)RR fl(2SPACE)M 
RR(RVOFF)£ 

PRINT, " (2SPACE)ö(RVS0N)RR(2SPACE)fl£{ 
2SPACE)HR(RVOFF)£ 

PRINT,"(3SPACE,RVSON)RR(2SPACE)RR(2S 
PACE )RR (RVOFF) 

PRINT,"(ORANGE.RVSON,3SPACE,YELLOW)R 
R(2SPACE)£S(2SPACE)RR(0RANGE,3SPACE, 
RVOFF) 

PRINT,"(RVSON,3SPACE,YELLOW)Wff £(2SP 
ACE)fl FR(ORANGE,3SPACE,RVOFF) 

PRINT,"(RVSON,3SPACE)EKIM—REPUS(3SPA 
CE,RVOFF) 

PRINT,"(4LEFT,DOWN,WHITE)HERZLICHEN 
GLUECKWUNSCH ,",,“(4LEFT)SIE HABEN E 
S GESCHAFFT ! 

62025 X$="(40SPACE)*** J.R.R TOLKIEN" 

62030 X*=X*+" *** DER KLEINE HOBBIT »** EI 
N ABENTEUERSPIEL VON " 

62040 X*=X*+"MICHAEL NICKLES - BERGSTR.3 - 
8763 KLINGENBERG 2 •***" 

620^“ X*=XS+"(41SPACE)" 

621i,2 FOR .1 = 1 TO LEN<X*>-39 

62110 POKE 211,1:POKE 214,20:SYS 58732 

62120 PRINT MID*(X*,I,39) 

62130 FOR 11=1 TO 150:NEXT II 
62140 NEXT I:END 

62500 POKE 53280,0:POKE 532B1,0:PRINT"(CLR 
i; RED,4D0WN)","(2SPACE)J.R.R. TOLKIEN 

62501 PRINT"(3D0WN)":PRINT,“IYELLOW,2SPACE 
)DER KLEINE 

62502 PRINT 

62503 PRINT,"(2SPACE)FH ££££££. KEY 

62504 PRINT, "(2SPACE)£ß FH ,iß FR 

62505 PRINT, "(2SPACE)H5J FR HW FF S'S 

62506 PRINT, "(2SPACE)HR ÜS L 6 SH 
62510 PRINT"(4DOWN,SPACE)EIN ABENTEUERSPIE 

L VON MICHAEL NICKLES 
62520 PRINT,"(2D0WN,RED,2SPACE)BITTE WARTE 
N !" 

62600 RETURN 

63000 POKE 19B,0:WAIT 198,1:PRINT“(WHITE)" 

:RETURN 

63100 PRINT," (SPACE , ORANGE ) bDbtjtjtSDEbbttjb'tS 

63102 PRINT,"F(WHITE).(5SPACE).(4SPACE).(S 
PACE,ORANGE,SPACE)R 

63103 PRINT,"H(WHITE,3SPACE).(5SPACE). (3SP 

ACE).(ORANGE)R > 

63104 PRINT,"F(14SPACE)R 

63105 PRINT,"F( 6 SPACE,WHITE,RVSON)(RVOFF 
,ORANGE, 6 SPACE)R 

63106 PRINT,"RISSPACE.WHITE,RVSON)£(2SPACE 
)R(RVOFF,ORANGE,5SPACE)g 

63107 PRINT,"H(4SPACE,GREY 1,RVS0N)£(4SPAC 
EIS(RVOFF,ORANGE,4SPACE>g 

63108 PRINT,"H(3SPACE,GREY 1,RVS0N)£(6SPAC 
E )1F (RVOFF , ORANGE , 3SPACE )g 

63109 PRINT,"F(2SPACE,GREY 1,RVSON)i(BSPAC 
E)¥(RVOFF,ORANGE,2 SPACE)g 

63110 PRINT, " H (RVSON ) TT TTTT tTTYtYtY (RVOFF) 

G 

63111 PRINT,"H(RVSON,14SPACE,RVOFFIF":GOTO 

63000 


<059> 

<215> 

<063> 

<035> 

< 183> 

< 184> 

< 171 > 
<150> 

< 196> 
< 222 > 
<044> 

< 139> 

< 152> 
<049> 

< 154> 
<00B> 
<090> 


<241> 
<007> 

<254> 

<13B> 

<215> 

<067> 

<229> 

< 189> 
<062> 

< 16B> 


< 135> 

<244> 

< 117> 

< 127> 
<025> 
<225> 

< 196> 

< 222 > 

<062> 

< 171 > 

< 124> 

< 15B> 

<093> 

<094> 

< 179> 

< 173> 

< 174> 
<0B3> 
<084> 
<085> 
<043> 
<088> 
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Cohan's Land 


Ergründen Sie das Geheimnis der Nachricht aus 
der Flaschenpost. Ist der Schatz wirklich vorhan¬ 
den oder handelt es sich nur um einen Scherz? 

C ohan’s Land ist ein deutsches Textadventure, das ich vor 
etwa einem Jahr geschrieben habe. Die Entstehungs¬ 
geschichte ist ziemlich interessant: Als ich das Manu¬ 
skript zu meinem ersten Adventure-Programmierkurs 
schrieb, stellte ich im Rahmen dieses Kurses vor, wie man ein 
Adventure schreibt. Also wie man eine Idee aufgreift und 
diese dann ausarbeitet. Dabei kam mir die Idee zu Cohan’s 
Land. Cohan’s Land ist ein Adventure, das im Scott Adams-Stil 
programmiert ist. Scott Adams, ein Pionier der Abenteuer¬ 
spielprogrammierung, hat Spiele wie »Adventureland«, 
»Pirate Adventure«, »the Count«, »Voodoo Castle« sowie die 
Questprobe-Serie »the Hulk«, »Spiderman« etc. entworfen. 
Erstaunlich ist die Tatsache, daß Scott Adams sein absolut 
miserables Zwei-Wort-Parsersystem auch heute noch ver¬ 
wendet. Seine Adventures verstehen nur Befehle, die sich 
maximal aus zwei Worten zusammensetzen (TAKE SWORD). 
Auf großen Textumfang legt er auch keinen Wert - die Texte 
beschreiben nur das Wesentlichste und sind so knapp wie 
möglich gehalten. Fast der gesamte zur Verfügung stehende 
Speicherplatz wird bei Adams für die Grafik verbraten, die 
sich komplett auf einmal im Speicher befindet - es wird nie 
nachgeladen. 

Trotz des schlechten Programmierkonzeptes haben diese 
Adventures jedoch etwas Einzigartiges an sich: Der Spieler 
wird knallhart mit Problemen und Denknüssen konfrontiert. 
Man muß nicht lange herumlaufen und schöne Raumbe¬ 
schreibungen lesen wie bei INFOCOM - es geht sofort rich¬ 
tig rund. So auch bei Cohan’s Land. Die Texte sind knapp 
gehalten, die Probleme hingegen äußerst knifflig. Der Parser 
ist jedoch wesentlich besser ausgefallen. Der Wortschatz 
umfaßt etwa 140 Wörter und der Parser versteht ganze Sätze. 
Trotzdem ist das Programm nur knapp 30 KByte lang. 

Die Story ist äußerst interessant: Im Spiel tauchen sowohl 
Fantasy-, Science-Fiction- und auch Nostalgie-Elemente auf. 



Der Spieler muß einen gefährlichen Dschungel überleben, 
Roboter bekämpfen und letztendlich die geheimnisvolle 
Quelle der Macht zerstören. Es fängt ganz harmlos mit einer 
Seereise an. Ein Forscher hat in einer Flaschenpost eine 
uralte Seekarte entdeckt, auf der eine bisher unbekannte 
Insel eingezeichnet ist. Die Expeditionsflotte geht bei einem 
gewaltigen Seesturm unter. Natürlich überlebt der Forscher 
und wird als Schiffbrüchiger auf die geheimnisvolle Insel ver¬ 
schlagen. Auf dieser Insel entdeckt er ein unvorstellbares 
Geheimnis... (Michael Nickles/dm) 


! ewuetlieh eingerichtete Mohnstube. 

n einen offenen Kanin knistert ein be¬ 
hagliches Teuer. 

Alter Schrank aus E i chenhoiz. 

Haustuer. Kanin. Flasche. 

Moegliche Richtungen : keine 

U«i«. soll > 11) nun nachen ? 

IIII II . 

soll ich nun nachen ? 


Listing »Cohan’s Land« 

0 REM ********************************* <131> 

2 REM * COHAN'S LAND * <174> 

4 REM * COPYRIGHT 1984 BY * <246> 

5 REM * SUPERMIKE'S FANTASY PRODUCTS * <023> 

7 REM ********************************* <13B> 

B POKE 53280,0:POKE 532B1,0:PRINT CHR*(14) 

:SYS 65499:PRINT"£CLR,YELLOW> <20B> 

9 ZN=1:RO=10000+ZN*100 <137> 

11 DATA 76,24,1,177,251,145,251,200,20B,24 

9,230,252,202,208,244,96,120,160 <235> 

12 DATA 0,169,160,132,251,133,252,162,32,3 

2,11,1,169,224,132,251,133,252 <065> 

13 DATA 162,32,32,11,1,169,53,133,1,B8,96: 

FOR 1=264 TO 310:READ AsPOKE I,A:NEXT <141> 

15 SYS 264:A=710:FOR I=A TO A+20:READ X:PO 

KE I,X:NEXT <130> 

16 DATA 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <142> 

18 POKE 40996,197:POKE 40997,2:POKE 1,54:A 
=43168:FOR I=A TO A+2:READ X:P0KE I,X:N 
EXT <047> 

20 A=704:FOR I=A TO A+5:READ X:POKE I,X:NE 

XT:DATA 32,192,2,32,138,173,76,247,183 <074> 

25 GQSUB 51000 <053> 

30 PRINT *CCLR,6DQWN > ";CHRS1142) <205> 

36 PRINT," <YELLOW>ÜT itEHTB ü£Wfl "Sä MT <010> 

37 PRINT, "i.pn-pgN W S£W flG(2SPACE>yP <133> 

3B PRINT, •‘tl7SPACE>TT <107> 

39 PRINT,“<4SPACE>H<2SPACE>KEWfl KfiQ <050> 

40 PRINT, " <4SPACE>i,'F QP.N nWiü <034> 

42 PRINT,"C3DOWN,LIG.RED,LEFTJEIN ABENTEUE 

RSPIEL VON <049> 

43 PRINT,”TDOWN,LIS.RED,2SPACE>MICHAEL NIC 
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1831 


1832 


1835 

1840 


1850 


KLES“:PQKE 198,0:WAIT 198,1 <225> 

50 PRINT"<CLR>";CHR*(14) <122> 

55 REM GE*(14)="SRAHTGITTER":GE(15)=-l:MA= 

0:GE(10)=—1:GE(16)=—1:GE(6)=—1 <134> 

56 REM GE <1)=—1:ZB=10 <025> 

57 REM F0RI = 1T0GZ sGE(I)=— 1 :NEXT <192> 

60 GOTO 1040 <128> 

1000 REM ACT IONMODUL- <024> 

1001 IF RI THEN 1015 <054> 

1002 GOSUB 50000 <252> 

1010 IF RI=0 THEN 2000 <084> 

1015 IF RI (RI) =0 THEN PRINT"S£IN HEG IN DI 

ESE SICHTUNG !“:RI=0:GOTO 2000 <205> 

1016 VE=0:OM=0:OB=0:PE=0:PM=0:REM GE=0 <171> 

1020 RO=10000+100*RI(RI) : ZN=RI(RI):RI=0 <1B8> 

1040 RESTORE RO:FOR 1=1 TO 10:READ RI<I>:N 

EXT <152> 

1041 IF PA(7)AND ZN=37 THEN RI<2)=3B <232> 

1050 PRINT"<CLR,YELLOW!";:GOSUB ROOM <127> 

1100 REM ***** SIE SEHEN <210> 

1700 SE*="":IC=0:FOR 1=1 TO PZ:IF PE(I)=ZN 

THEN PRINT PE*<I>”. ";:IC=1 <245> 

1710 NEXT:IF IC THEN PRINT <178> 

1820 FOR 1 = 1 TO OZ: IF 00(I>=ZN THEN SE*=SE 

*+0*(I)+". ”:IC=1 <218> 

1822 NEXT <054> 

1830 FOR 1=1 TO GZ:IF GE(I)=ZN THEN SE*=SE 

*+GE$(I)+". ":IC=1 <070> 

IF GE(I)=—2 AND ZN=1 AND TU(1>=0 THEN 
SE*=SE*+GE*(I>+". ":IC=1 <015> 

IF GE<I)=—3 AND ZN=5 AND TU(3)=0 THEN 
SES=SE*+GE*(I>+". ":IC=1 <054> 

1833 IF GE(I)=-4 AND ZN=43 AND TU(4>=0 THE 

N SE*=SE*+GE*(I)+". ”:IC=1 <110> 

1834 NEXT I <140> 

IF SE*=""THEN 1900 <157> 

IF LEN(SE*X41 THEN PRINT SE*:GOTO 19 
00 <209> 

I*=LEFT$(SE*,39> <019> 

1860 IM=0:FOR 1=1 TO LEN<I*) <197> 

1865 :IF MID*(IS,I,1)=" "THEN IM=I <191> 

1868 NEXT I <174> 

1870 I*=LEFT*<1*,IM):PRINT I* 

1880 SE*=RIGHT«(SE*,LEN(SE*)-IM> 

1890 GOTO 1840 <052> 

1900 PRINT"BDEGLICHE SICHTUNGEN : <147> 

1910 IC=0:FOR 1=1 TO 10:IF RI(I)THEN PRINT 

RI*(I>“,“;:IC=1 <212> 

1920 NEXT:IF IC=0 THEN PRINT“KEINE "; <179> 

1930 PRINT"<LEFT,SPACE,DOWN}" <146> 

2000 REM REAGIEREN AUF BEFEHLE- <090> 

2005 REM FEHLERMELDUNGEN ************** <073> 

2010 IF OB AND QM=0 THEN PRINT"3AS GEHT HI 

ER NICHT-NOCH NICHT !" <205> 

2015 IF PE AND PM=0 THEN PRINT"SCH SEHE DI 

ESE .PERSON HIER NICHT ! " <135> 

2019 IF VE=16 THEN 2100 <053> 

2020 IF VE<>5 AND VE<>B AND Gl AND GM=0 AN 
D G1012 THEN PRINT"SCH HABE DAS NICH 

T !" <153> 

2100 REM EINWORT-BEFEHLE ************** <040> 

2105 IF VE=3 AND OB=0 AND GM-0 THEN VE=0:G 

OTO 1050:REM LOOK <192> 

2110 IF VE<>12 THEN 2130:REM INVENTUR <176> 

2111 SE*="SCH HABE: ":IC=0:FOR 1=1 TO GZ: I 
F GE<I> =—1 THEN SE*=SE*+GE*(I>+", ":I 
C=1 

2112 NEXT I:IF IC-0 THEN SES=SE*+" NICHTS. 

2113 SE*=LEFT*(SE*,LEN(SE*>-1> 

2116 IF LEN(SE*)<41 THEN PRINT SE*:GOTO 21 
30 

2117 I*=LEFT*(SE*,39> 

2118 IM=0:FOR 1=1 TO LEN(I *) 

2119 :IF MID*tI*,I,1)=" "THEN IM=I 

2120 NEXT I 

2121 I*=LEFT* CI*,IM):PRINT I* 

2122 SE*=RIGHT*(SE*,LEN(SE*)-IM) 

2123 GOTO 2116 

2130 IF VE=19 THEN PRINT"SEIT VERGEHT. 




2200 REM NIMM/VERLIER ROUT. *********** 
2205 IF VE< >5 AND VE<>8 OR G1=0 OR OB THEN 
2237 

2220 IF VE=5 AND GE(G1)=-1 THEN PRINT"SCH 
HABE DAS BEREITS !":GOTO 2300 
2222 IF VE=8 AND GE<G1X>-1 THEN PRINT"SCH 


<205> 

<046> 
< 106> 

<207> 
<032> 
<201 > 

< 191 > 

< 172> 

< 163> 
<219> 
<216> 

< 130> 

<044> 

<232> 

< 137> 


HABE DAS NICHT !" <230> 

2229 IF ZN=27 AND VE=5 AND GE(5)=-4 THEN G 

E(5)=-l:PRINT"flK.":GOTO 2300 <255> 

2230 IF VE=5 AND GE<G1)=ZN THEN PRINT"flK." 

:GE(Gl)=—1:GOTO 2250 <175> 

2231 IF VE =8 AND BE(G 1>=-1 THEN PRINT"fix." 

:GE(G1)=ZN <227> 

2232 IF VE=5 AND GE(Gl>=-2 AND TU(1)=0 THE 

N PRINT"fiK.":GE(Gl> =—1:GOTO 2250 <018> 

2233 IF VE=5 AND GE(Gl)=-3 AND TU<3)=0 THE 

N PRINT"SK.":GE(G1)=-1:G0T0 2250 <0B4> 

2234 IF VE=5 AND GE(Gl)=-4 AND TU<4)=0 THE 

N PRINT"SK.“:GE(Gl)=—1:GOTO 2250 <118> 

2237 IF Gl AND VE=5 AND GEIG1IOZN THEN PR 

INT"ICH SEHE DAS HIER NICHT !" <017> 

223B IF VE=5 AND G1=0 AND 0B<>0 THEN PRINT 

"SAZU BIN ICH NICHT STARK GENUB !“ <211> 

2250 IF Gl=15 AND FS“1 THEN FS=0 <001> 

2252 IF Gl=14 AND FA+FS=2 THEN 2625 <002> 

2254 IF VE=5 AND Gl-16 THEN PRINT"SCH ZIEH 
E DEN SCHUTZANZUG AM BESTEN SO- FORT 
AN !" <144> 

2300 REM TOETE ************************ <054> 

2310 IF VEO20 THEN 2400 <056> 

2315 IF G1=0 THEN PRINT"HIE 7 SDCH NICHT M 
IT MEINEN BLOSSENT5SPACE!SÄENDEN !":G 
OTO 2400 <1B5> 

2320 IF GM=3 THEN PRINT"SCH GREIFE MIT DEM 

5AEBEL AN !" <242> 

2322 IF GM=10 THEN PRINT"SCH GREIFE MIT DE 

R flXT AN !" <179> 

2324 IF GM =6 AND MU=0 THEN PRINT"SCH HABE 
KEINE SUNITION MEHR !":GE<7>=0:GOTO 2 
400 <090> 

2326 IF GM =6 AND MU THEN PR INT "SCH SCHIESS 

E MIT DER SISTOLE !":MU=MU-1 <006> 

2330 IF PA(3X6 THEN 2340 <104> 

2332 IF ZN<>71 OR GM <>6 THEN 2340 <098> 

2334 PR INT "SER ißEWE BRICHT TOT ZUSAMMEN. ■' 

:PE*<3)=”I0TER iOEWE":PA(3>=-l <214> 

2335 PE(3)=10:SC=SC+7.5 <178> 

2340 IF GM <>6 AND GM<>3 AND GMO10 OR PA <4 

XI THEN 2350 <239> 

2342 PRINT"SAS KROKODIL STUERZT BLUTEND IN 

S HASSER.":PA(4)=-l:SC=SC+3.5 <255> 

2350 IF ZN<>61 OR OM<>39 OR GM< >6 THEN 236 

0 <133> 

2352 I=INT(100*RND<1))+1 <128> 

2354 IF I>50 OR BR=2 THEN PRINT"SIE KUGEL 

VERFEHLT DEN SRUCKKNOPF KNAPP.":BR=-1 <09B> 
2356 IF I<=50 AND BR<>2 THEN PRINT"SIE KUG 
EL TRIFFT DEN SRUCKKNOPF EXAKT !":BR= 

1 <174> 

2360 : <050> 

2400 REM BAUE FLOSS ****************** <166> 

2410 IF VE<>25 OR Gl<>12 THEN 2500 <032> 

2420 IF GE(11X>-1 THEN PRINT"SCH HABE KEI 

N ÜDLZ !":GOTO 2500 <011> 

2430 PRINT"flK.":BE(11)=0:GE(12)=—1 <130> 

2500 IF VE<>31 AND VE<>42 THEN 2600: REM V 

ERBINDE ****************** <029> 

2505 IF G1+G2029 THEN 2600 <209> 

2510 IF GE(14X >—1 THEN PRINT"SCH HABE DAS 

SRAHTGITTER NICHT !":GOTO 2600 <247> 

2520 IF GE(15X >—1 THEN 2600 <130> 

2530 IF FA=1 THEN PRINT"SAS HABE ICH BEREI 

TS.":GOTO 2600‘ <151> 

2535 PRINT"SK.":FA=1:REM IFFS=1THEN2625 <121> 
2600 IF VE< >44 AND VE<>42 THEN 2700:REM ST 

ECKE ************** <247> 

2610 IF 0M<>26 THEN 2700 <204> 

2620 IF FS=0 THEN PRINT"SK-":GE(15)=ZN:FS= 

1 <073> 

2622 IF FAOl OR GE(14)0-1 THEN 2630 <102> 

2625 PRINT"SAS SRAHTGITTER GLUEHT AUF UND 
VERABREI-CHT MIR EINEN ELEKTROSCHOCK" 

5 <123> 

2626 PRINT" VON MEHRERENTAUSEND HOLT.":GOT 

0 8000 < 151 > 

2630 IF FS=0 AND GE(15>=-1 THEN PRJNT"SK-" 

:GE(15)=ZN:FS=1 <116> 

2700 REM SPEZJAL ACTION SCENARIO <118> 

2710 IF ZN=43 OR ZN=51 THEN IF MAO0 THEN 

6145 <199> 

2715 IF GE(18)=—1 AND ZB=11 THEN PRINT"SIE 
SEITBOMBE BEGINNT RLOETZLICH ZU(5SPA 
CEJTICKEN !'• <041 > 


120 
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2716 IF ZB<11 AND GE(1B)=-1 THEN PRINT"SIE 

ZEITBOMBE TICKT IMMER SCHNELLER !" <190> 

2720 IF ZB THEN ZB=ZB-1:IF ZB=0 THEN PRINT 

"SIE ZEITBOMBE EXPLODIERT.":GOTO 8000 <162> 
2730 I=PA<9): REM STRAHLENVERSEUCHUNG <010> 

2735 IF 1=1 THEN PRINT"flIR WIRD GANZ KOMIS 

CH VON DEM VIOLETTEN A.ICHT !" <050> 

2740 IF I THEN PA(9)=PA(9)+1:I=PA(9) <092> 

2745 IF 1=5 THEN PRINT"ICH WERDE PLOETZLIC 

H GANZ SCHWACH !" <226> 

2746 IF 1=8 THEN PRINT“ICH WERDE IMMER SCH 

WAECHER !“ <206> 

2747 IF 1=10 THEN PR INT "BE INE JSRAEFTE VERL 

ASSEN MICH." s GOTO 8000 <098> 

2800 IF VE=28 AND GM=1 THEN PRINT"ICH BIN 

KEIN SCHIFFSNAVIGATOR !" <225> 

2810 IF VE<>37 OR GM <>8 OR GE*( 8 )="£LASSCH 

ERBEN“THEN 2820 <182> 

2815 PRINT"SIE £LASCHE ZERSPRINGT IN BLASS 

CHERBEN. £1 NE SEEKARTE FAELLT AUF "5 <161> 

2816 PRINT"DEN SODEN.":GE* <B)="GLASSCHERBE 

N":GE( 8 )=ZN:GE <1)=ZN:SC=SC+2.5 <037> 

2B20 IF VE< >49 THEN 2830 <148> 

2822 IF GE (2) 0-1 AND GE <4)0-1 THEN PRINT 

"ICH HABE KEINEN BUNGER.":GOTO 2830 <056> 

2824 PRINT"AK.":GE(2)=0:GE(4)=0:SC=SC+2.5 <132> 

2830 : <012> 

4000 REM HILFE *********************** <112> 

4010 IF VEO30 THEN 5000 <084> 

4999 REM GOSUB61020 <229> 

5000 REM UNTERSUCHE - <160> 

5001 IF VE<>3 OR OM=0 AND GM=0 THEN 5999 <070> 

5010 IC=0:IF DM=7 THEN PRINT"SIE BAUER IST 

UNUEBERWINDBAR H0CH.":IC=1 <077> 

5015 IF 0M=14 AND 00(16)022 THEN SC=SC+ 6 . 

5 <252> 

5020 IF 0M=14 THEN PRINT"ZINE SCHRIFT IST 

IN DIE HAND GERITZT.00(16)=22:IC=1 <011> 

5030 IF 0MO17 THEN 5035 <11B> 

5031 PRINT"SIE RECHTE HAND DES SKELETTS UM 
KLAMMERT EINEN SPITZEN KREIDESTEIN." <097> 

5032 IC=1: 00 (15) =22 <044 >Qp 

5035 IF OMO20 THEN 5037 <053> 

5036 PRINT"IN EINEM TROPFSTEIN IST EINGERI 

TZT : MSP ACE >üflÄZZEZIZZtSHIFT—SPACEJ-W 
AR HIER !”:IC=1 <119> 

5037 IF 0M=24 OR 0M=1 THEN VE=0:GOTO 1050 <101> 

5040 IF GM=7 THEN PRINT"ICH HABE NOCH";MU; 

"SCHUSS iIC=1 <242> 

5050 IF GM<>15 THEN 5055 <104> 

5051 PRINT"SAS SABEL IST CA 50M LANG. BM E 

INEN ZNDEHAT ES EINEN STECKER, AM "; <0B9> 

5052 PRINT“ANDEREN ZNDE<3SPACE>IST ES BLAN 

K.” <13B> 

5053 IC=1 <115> 

5055 IF 0MO37 OR GE (17)00 THEN 5060 <213> 

5056 PRINT,"SER IDTE HAT EINEN SCHLUESSEL U 
ND EINEC2SPACEJAKTIVIERTE ZZI-TaO-BBZ " 

; <206> 

5057 PRINT"BEI SICH !“:GE(17)=ZN:GE(18)=ZN 

:IC=1:ZB=50 <0B3> 

5060 IF GMOIB THEN 5065 <133> 

5062 PRINT"HUF DER ZEITBOMBE IST EIN ZAEHL 

ER ANGE- BRACHT DER MOMENTAN DEN "; <092> 

5063 PRINT"HERT";ZB;"HAT !":IC=1 <050> 

5065 IF 0MO43 THEN 5070 <183> 

5066 PRINT"BM SODEN DES SRUNNENS STRAHLT E 

IN HELLESZICHT-SIE fiUZZLZ<SHIFT-SPACE 
>SZ&<SHIFT-SPACE >flß£BI !“ <229> 

5067 IC=1 <129> 

5070 IF GM=B THEN PRINT"IN DER Q.ASCHE IST 

EINE SCHRIFTROLLE.":IC=1 <115> 

5075 IF GM=16 THEN PRINT"SER ANZUG SCHUEZT 
VOR RADIOAKTIVER C 6 SPACE >STRAHLUNG.»: 

IC=1 <192> 

5500 IF IC=0 THEN PRINT"ICH ENTDECKE NICHT 

S BESONDERES.“ <157> 

5999 : <133> 

6000 REM NICHTSPIELERPERSONEN- <126> 

6010 REM ********** LOEWE <181> 

6015 IF ZN=71 AND PA(3)0-1 THEN 6035 <015> 

6020 IF ZN <6 OR ZN>13 OR PA(3)=-1 OR INT <1 

0*RND(1))+1<6 OR PA(4)THEN 6100 
6035 PA (3) =PA (3) +1: IF PA (3) <6 THEN PRINT"!. 

M SEBUESCH RASCHELT ETWAS !":REM 610 


<089> 


10 <059> 

6050 IF PA(3 )=6 THEN PRINT"ZIN RIESSIGER Z 

OEWE SPRINGT AUS DEM SE~ BUESCH HERVO 
R ! " <134> 

6051 IF PA(3 )=6 THEN PE(3)=ZN <144> 

6055 IF PA(3)=7 AND ZN=71 THEN PRINT"SER Z 

OEWE SPRINGT AM SAUMSTAMM HOCH !" <049> 

6060 IF PA(3 )=8 THEN PRINT"SER ZOEWE FAELL 

T MICH AN !":GOTO 8000 <051> 

6100 REM ********** ROBOTER <012> 

6105 IF ZN<38 OR MA=0 THEN 6200 <090> 

6110 MW=MW+1:MA=MA(MW>:IF MA=-1 THEN MW=0: 

GOTO 6110 <221> 

6130 IC=0:FOR 1=1 TO 10:IF RI(I)=MA THEN I 

C=1 <120> 

6135 NEXT:IF IC THEN PRINT"ICH HOERE SCHRI 

TTE IN DER BAEHE !" <251> 

6136 IF MA< >GE < 14) OR FA+FS02 THEN 6140 <008> 

6137 MA=0:PE <4> =GE(14):SC=SC+7 <231> 

6138 IF PE<4> < >ZN THEN PRINT"ICH HOERE EIN 

LAUTES JSRACHEN !":GOTO 6140 <195> 

6139 PR INT "SER .ROBOTER LAUEFT UEBER DAS SR 

AHTGITTERUND VERSCHMORT !" <18B> 

6140 IF MAOZN THEN 6150 <060> 

6145 PRINT"ZIN RIESSIGER ROBOTER ERSCHEINT 

!" <149> 

6146 PRINT"BUS DEN BUGEN DES ROBOTERS SCHI 

ESST EIN ZICHTSTRAHL AUF MICH." <216> 

6147 PR INT "ICH WERDE MUEDE.SEHR MUED 

E." <075> 

6148 RI<1)=39:RI=1:PA( 8 )=1:POKE 19B,0:WAIT 

198,1 <060> 

6150 : <030> 

6200 GOSUB ROOM+20:GOTO 1000 <184> 

7000 REM VERLOREN <235> 

8000 PRINT"ICH BIN TOT." <110> 

8010 PRINT" <WHITE>SIE HABEN" 5 SC; "7. DIESES 

BDVENTURES GELOEST." <085> 

8020 FOR 1=1 TO 3000:NEXT:POKE 19B,0:WAIT 

198,1:RUN <134> 

10000 REM DIE LANDKARTE- <17B> 

10100 DATA,PRINT"fiEMUETLICH EIN 

GERICHTETE HDHNSTUBE.“ <094> 

1P1IU2 PRINT"IN EINEM OFFENEN JSAMIN KNISTER 

T EIN BE- HAGLICHES ££UER.“ <01B> 

10109 IF TU(2)=0 THEN RI(1)=2 <230> 

10120 IF VE=1 AND 0M=1 THEN PRINT"SK.":TU( 

1)=0 < 186> 

10125 IF VE=2 AND 0M=1 THEN PRINT”fiK.":TU( 

1) =1 <003> 

10127 IF VE=1 AND 0M=2 OR 0M=5 THEN PRINT" 

SK.":TU <2)=0:RI<1> =2 <047> 

1012B IF VE=2 AND DM=2 OR 0M=5 THEN PRINT" 

SK-”:TU <2)=1:RI<1)=0 <239> 

10129 IF VEOB OR OMOl THEN 10140 <214> 

10130 IF TU(1> THEN PRINT"SER SCHRANK IST G 

ESCHLDSSEN !":GOTO 10140 <009> 

10131 IF GE(Gl> =—1 THEN PRINT"SK.“:GE(Gl) = 

-2:REM GOTO <131> 

10140 IF VE =8 AND OM=10 AND GM=1 THEN PRIN 

T"SIE SEEKARTE VERBRENNT.":GE(1)=0 <232> 

10150 RETURN <046> 

10200 DATA 3,,,,,,,,,,,:PRINT"SREITE STRAS 

SE DIE ZUM BAFEN FUEHRT." <062> 

10203 PRINT"BR SOLINGS BAUS. <101> 

10205 IF TU(2)=0 THEN RI(2)=1 <132> 

10220 IF VE=1 AND 0M=5 THEN PRINT"flK.":TU( 

2 ) = 0 :RI( 2)=1 <083> 

10221 IF VE=2 AND DM=5 THEN PRINT"SK.TU( 

2 )= 1 :RI( 2)=0 <148> 

10230 RETURN <126> 

10300 DATA,2,,,,,,,,:PRINT"BM GROSSEN BAFE 
N. ZIN GROSSES BÄNDELS-<2SPACE>SCHIF 
F, <127> 

10305 PRINT"DIE 'fiUEEN BARY* WIRD GERADE<4 

SPACE >BELADEN." <191> 

10320 IF VE=13 AND 0B=3 THEN RI(1)=4:RI=1: 

TI$="000000" <179> 

10330 RETURN <228> 

10400 DATA,,,,,,,,,,:PRINT"flUF DER SUEEN fl 

ARY." <161> 

10410 IF PA(0)THEN 10419 <007> 

10411 PRINT"SAEPTAN GRAUBART SAGT : ’BALLO 
, WILLKOM-MEN AN SORD flR SOLINGS ! " 

; <139> 

10412 PRINT"BAVIGATOR ANI3SPACE>SECK, HIEV 

T DIE SEGEL, HOLT DEN BNKER<3SPACE>E 
IN!<DOWN>" <168> 
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10413 PA<0>=1 

10419 RETURN 

10420 IF VE=13 AND GB=3 THEN RI(1)=3:RI=1 

10424 PA(0)=PA<0>+1:IF PA<0>>3 THEN PA<0>= 
3 

10425 IF PA<0>=3 THEN PRINT"(YELLOW>2AS SC 
HIFF BEFINDET SICH AUF HOHER SEE." 

10426 IF TI$>"000300"THEN 10440 

10427 IF GE<1)0-1 THEN 10430 

10428 IF VE+PE+G1=1B THEN PRINT"<D0WN>2ER 
NAVIGATOR NIMMT DIE HARTE.“sPA<1)=1s 
GE <1)=0 

10429 IF VE+PE+Gl-18 THEN SC=SC+2.5 

10430 IF PA < 1) THEN PA < 1 ) =PA < 1)+1 

10431 IF PA<1)=4 THEN PRINT"£IN SCHIFFSJUN 
GE RUFT 'LAND IN SICHT i‘.":TI*="000 
300" 

10432 IF TI♦>"000030"AND PA<2)=0 THEN PRIN 
T"SIN SCHWERER STURM BRICHT AUS !":P 
A( 2 )=1 

10433 RETURN 

10440 PRINT“SIN STARKER HUCK ZUCKT PLOETZL 
ICH DURCH DAS SCHIFF !" 

10441 FÜR 1=1 TO 4000:NEXT 

10445 PRINT"SIN flATROSE RUFT 'HIR SIND AUF 

EIN ÄIFF AUFGEFAHREN UND HABEN EIN 

”f 

10446 PRINT“.L£CK.WIR SINKEN." 

10450 POKE 198,0:WAIT 198,1 

10460 IF PA <1)=0 THEN PRINT"iCH ERTRINKE.. 

..":GOTO 8000 
10470 RI<1)=5:RI=1:RETURN 
10500 DATA,,,,,, 6 ,,,:PRINT"SM INSELSTRAND. 

10502 PRINT"IM HASSER IN STRANDNAEHE TREIB 
EN EINIGE SCHIFFSWRACKTEILE."rRETURN 
10510 RETURN 

10520 IF VE<>19 OR 00<4)THEN IF PAC3)<>5 T 
HEN 10523 

10521 PRINT"SINE RIESSIGE ÜDLZTRUHE WIRD P 
LOETZLICH AN DEN STRAND GETRIEBEN. 

10522 00(4)=5:PA<3 )=6 

10523 PA<3)=PA(3)+1 

10530 IF VE=1 AND 0M=4 THEN PRINT"OK.":TU( 
31=0:0«(4)="SFFENE JRUHE" 

10531 IF VE=2 AND 0M=4 THEN PRINT"BK.“:TU< 
3)=1:0* < 4)="GROSSE SEEMANNSTRUHE" 

10535 IF VE =8 AND 0M=4 AND TU<3>=0 AND GE< 
Gl)=—1 THEN PRINT"£K-":GE(Bl)=—3 
10540 RETURN 

10600 DATA,13,,,,5,12,,,:PRINT"IN DICHTEM 
2SCHUNGEL.“ 

10620 RETURN 

10700 DATA, 10,,, 8 ,,9,,, : PR INT "IN DICHTEM 2 
SCHUNBEL." 

10720 RETURN 

10800 DATA,9,,,,,,7,,:PRINT"IN DICHTEM 2SC 
HUNGEL." 

10820 IF VE=23 AND 0M=7 THEN PRINT"21E HAU 
ER IST VIEL ZU HOCH DAZU !" 

10825 IF VE =8 AND GM=5 AND 0M=7 THEN PRINT 
"2AS SEIL IST LEIDER ZU KURZ !" 

10830 RETURN 

10900 DATA 8 , 8 ,,10,,7,,,,:PRINT"IN DICHTEM 
2SCHUNGEL." 

10920 RETURN 

11000 DATA, 11,9,,,,,11,,: PRINT ".OFFENE SICH 
TUNG IM 2SCHUNGEL.":RETURN 
11020 IF VE=23 AND 0M=6 THEN RI<1)=71:RI=1 
11030 RETURN 

11100 DATA 10,,,,,12,,,,:PRINT"IN DICHTEM 
2SCHUNGEL." 

11120 IF VE=26 THEN PRINT”21E KROKODILE LA 
SSEN DAS NICHT ZU !“ 

11122 IF VE<>27 THEN 11134 

11124 IF GE(12)0-1 THEN PRINT"HIE DENN ?" 

:GOTO 11150 

11130 IF PA(4)=0 AND GE<12>=-1 THEN PA<4)= 
1:PRINT"2K-ICH BEFINDE MICH AUF DEM 
SLUSS." 

11132 RETURN 

11134 IF PA <4)01 THEN 11138 

11135 PR INT" ZAHLREICHE KROKODILE KOMMEN HE 
RBEIGE-T3SPACE JSCHWOMMEN !“ 

11136 PRINT"SIN BESONDERS WILDES KROKODIL 
KLETTERT<2SPACE>AUF DAS KLEINE SLOSS 


< 164> 
<061 > 
<070> 

<089> 

<068> 

< 193> 
<0B2> 


< 179> 

< 173> 

< 190> 


<050> 


<207> 

<075> 

<21B> 

<070> 


< 012 > 

<187> 

<006> 

<039> 

< 118> 

<227> 

<084> 

< 154> 

<073> 

<247> 
<131 > 

< 129> 

S*CR 

< 171 > 
<133> 

<033> 

< 184> 

<052> 

<008> 

< 177> 

< 108> 

< 220 > 

< 159> 

< 193> 
< 220 > 

< 154> 
<054> 

<226> 

<060> 

< 166> 

<055> 

<055> 

<080> 

<243> 


<219> 

< 012 > 

< 171 > 

< 184> 


11137 PA<4)=2:RETURN 


< 160> 
< 173> 


11138 IF PA <4)=2 THEN PRINT"2AS KROKODIL K 
OMMT BEDROHLICH NAEHER !":PA(4)=3:RE 
TURN 

11140 IF PA<4)=3 THEN PRINT"S*S KROKODIL H 
AT MICH GEFRESSEN.":GOTO 8000 
11150 IF PA(4)=—1 THEN PRINT"2IE UEBRIGEN 
KROKODILE FRESSEN ES." 

11152 IF PA(4)=—1 THEN RI<1)=14:RI=1:PRINT 
"ICH HABE DAS ANDERE 2FER ERREICHT." 

11154 IF PA(4)=—1 THEN PRINT"2AS SLOSS TRE 
IBT AUF{SHIFT—SPACE>DEM SLUSS DAVON. 
":GE(12)=0 

11155 IF PA(4)=—1 THEN POKE 198,0:WAIT 198 
1 1 

11160 RETURN 

11200 DATA,,,13,10,6,11,,,:PRINT"KN DICHTE 
M 2SCHUNGEL." 

11205 PRINT"SN DER SAEHE RAUSCHT HASSER." 
11220 IF VE<>24 OR OMOll OR BE (10) 0-1 OR 
GE (11)00 THEN 11230 

11225 PRINT"SK.":0*(11>="£EFAELLTER 2AUM": 

GE(11)=ZN 
11230 RETURN 

11300 DATA 6 ,,12,,,,,,,:PRINT"IN DICHTEM 2 
SCHUNGEL." 

11320 RETURN 

11400 DATA,16,,17,,,,,,:PRINT"JN DICHTEM 2 
SCHUNGEL.” 

11420 RETURN 

11600 DATA 14,,,17,,,,,,:PRINT"ZN DICHTEM 
2SCHUNGEL“ 

11620 RETURN 

11700 DATA 14,,16,,,,,18,,:PRINT"KM DICHTE 
M 2SCHUNGEL AM BEBIRGSRAND.“ 

11720 RETURN 

11800 DATA,19,,,17,,,,,:PRINT"SEHR STEILER 
BEBIRGSPFAD.“ 

11820 RETURN 

11900 DATA 18,20,,,,,,,,:PRINT"SEHR STEILE 
R BEBIRGSPFAD." 

11920 RETURN 

12000 DATA 19,23,,21,,,,,,:PRINT"IM HOHEN 
SEBIRGE.“ 

12022 1 lETURN 

12100 DATA 0,24,20,,,,23,,,:PRINT"JM HOHEN 
BEBIRGE. “ 

12120 RETURN 

12200 DATA,25,,,,,,,,:PRINT"KM EINER TROCK 
ENEN ÖDEHLE." 

12220 IF VE<>28 OR 0MO16 THEN 12250 

12224 PRINT"21E SCHRIFT LAUTET :" 

12225 PRINT-ICH BIN DEM SEHEIMNIS DER HACH 

T AUF DER SPUR.•• 

12226 PRINT".. SODEWORT -<SHIFT-SPACE>H 

flüflfi. . . . 

12230 PRINT"SCHTUNG VOR DEN KDBO. 

12235 PRINT"_2R. GOKDOM _ 

12240 PRINT"HEHR KANN MAN LEIDER NICHT ENT 
ZIFFERN !" 

12250 RETURN 

12300 DATA 20,26,,,,21,25,,,:PRINT"KM HOHE 
N BEBIRGE." 

12320 RETURN 

12400 DATA 21,,,,,,26,,,:PRINT“JM HOHEN BE 
BIRGE." 

12420 RETURN 

12500 DATA,,,26,,23,27,,,:PRINT"JM HOHEN £ 
EBIRGE." 

12520 IF VE=13 AND 0B=13 THEN RI(1)=22:RI= 


<021 > 
<087> 
<072> 
< 002 > 


< 164> 

<253> 

<040> 

< 199> 
<099 > 

<218> 

< 104> 
< 110 > 

<205> 

< 202 > 

< 101 > 

<046> 

<061 > 
<248> 

<040> 

<092> 

<035> 

<194> 

< 202 > 

<038> 

< 157> 

< 138> 

<062> 

<240> 

<065> 

<028> 

<230> 

< 161 > 

<009> 
<051 > 
<234> 

<225> 

< 114> 

<032 > 
<077> 

<22B> 

<030> 

< 177> 


1 <036> 

12530 RETURN <140> 

12600 DATA 23,28,25,,,24,2B,30,,:PRINT"iM 

HOHEN BEBIRGE." <100> 

12620 RETURN <232> 

12700 DATA,,,,,25,,,,:PRINT"iM HOHEN SEBIR 

GE AUF EINEM SELSPLATEAU." <235> 

12710 PRINT"£A 10 BETER UNTER MIR IST EIN 

SPALT IN<2SPACE>DER BEBIRGSWAND." <136> 

12715 IF GE(5)=—4 THEN PRINT"£IN AM BING B 

EFESTIGTES SEIL HAENGT HIN-AB." <193> 

12720 IF 0M=18 AND GM=5 AND VE=31 THEN GEI 

5)=—4:PRINT"BK." <252> 

12725 IF VE=23 AND GE(5)0-4 THEN PRINT"2I 

E BAND IST ZU STEIL !“ <160> 

12730 IF VE=23 AND GE<5>=-4 THEN PRINT"SK- 

":RI(1)=31:RI=1:GE(5)=31:SC=SC+8 <077> 

12740 RETURN <096> 

12800 DATA,,,26,,26,,29,,:PRINT"ZM HOHEN £ 
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A(7)—3:RI(2)—38 

<093> 




13730 

IF VE—1 AND OM—24 THEN PRINT"SER SCH 






ALTKASTEN IST VERRIEGELT !" 

<027> 


EBIRGE.“ 

<125> 

13735 

IF VE<>37 OR 0MO24 THEN 13750 

<253> 

12820 

RETURN 

< 17B> 

13737 

IF GM—0 THEN PRINT"SOCH NICHT ETWA M 


12900 

DATA,,,,29,30,,,,:PRINT"IJ1 HOHEN ££B 



IT MEINEN BLOSSEN AAEN-DEN !" 

<029> 


IRGE." 

<214> 

13739 

IF GM—3 THEN PRINT"flIT DEM SAEBEL SC 


12920 

RETURN 

<022> 


HAFFE ICH DAS NICHT !" 

<222> 

13000 

DATA,,,,26,,29,,,:PRINT"iM HOHEN SEB 


13740 

IF GMO10 THEN 13750 

<205> 


IRGE." 

<252> 

13741 

PRINT"AIT LAUTEM SPACHEN FAELLT DIE 


13020 

RETURN 

< 122> 


SLECHAB-C2SPACE >DECKUNG DES SCHALTKA 


13100 

DATA,PRINT"BJJF EINEM SELSVO 



STENS": 

<036> 


RSPRUNG AN EINER STEILEN"; 

< 119> 

13742 

PRINT" AUF DEN SODEN.":GE(13)=37 

<213> 

13110 

PRINT"SEBIRGSWAND." 

< 121 > 

13743 

00 < 25)=37:0* < 24 >-"AUFGEBROCHENER SCH 


13120 

IF VE-13 AND 0M=19 THEN RI<1)=32:RI= 



ALTKASTEN" 

<017> 


1 

<143> 

13750 

IF VE—31 OR VE—42 THEN IF OM-25 THEN 


13130 

RETURN 

<234> 


PRINT"SK-":PA(7>—1 

<104> 

13200 

DATA 33,,31,,,,,,,:PRINT"iN EINER SP 


13751 

IF PA (7)01 THEN 13760 

<243> 


OTTE." 

< 132> 

13752 

PRINT"SIE ROTE IASTE LEUCHTET HELL A 


13220 

RETURN 

<06B> 


UF." 

<042> 

13300 

DATA,33,,34,,,,,,:PRINT"SCHMALER SAN 


13753 

0*(23)-"MELL LEUCHTENDE ROTE IASTE": 



G IN DER .GROTTE. " 

<240> 


PA(7)=2 

< 189> 

13320 

RETURN 

< 170> 

13754 

0$(25)—"IM SCHALTKASTEN SIND ZWEI MI 


13400 

DATA 36,,,35,,,,,,:PRINT"SNGER 3JRCH 



TEINANDER KURZGESCHLOSSENE ROTE SABE 



GANG." 

<206> 


L" 

< 164> 

13401 

IF PA (5) THEN PRINT"ÄJRCH STEINE VERS 


13760 

RETURN 

<100> 


CHUETTETER MUSGANG." 

<004> 

13800 

DATA,,42,,,,,,,:PRINT"SCHWACH BELEUC 


13405 

IF PA <5> < >0 THEN 13420 

<081 > 


HTETER SAUM.“ 

<000> 

13406 

PRINT"HINTER MIR BRICHT EINE STEINLA 


13820 

IF VE—1 AND OM—33 THEN PRINT"ICH KAN 



WINE AUS C2SPACETUND VERSCHUETTET DEN 



N DIE STAHLTUER NICHT OEFFNEN." 

< 197> 


AUS"; 

<251 > 

13825 

RETURN 

< 167> 

13407 

PRINT"GANG ZUM SPALT C2SPACEJGAENZLIC 


13900 

DATA.....:PRINT"SAUM MIT VERRIEG 



H !":PA(5)=1 

<200> 


ELTER STAHLTUER.":RETURN 

<065> 

13420 

RETURN 

<014> 

13920 

IF PA(8) THEN PRINT".LANGSAM VERSCHWIN 


13500 

DATA,,34,,,,,,,:PRINT"£EUCHTE GROTTE 



DET MEINE AUEDIGKEIT<3SPACE>WIEDER." 

< 113> 


. " 

<073> 

13921 

IF PA(8)THEN PRINT"ICH BIN GEFANGEN 


13520 

RETURN 

< 114> 


!":PA(8 > —0 

<0B6> 

13600 

DATA,34,,,,,,,,:PRINT"JR EINER SPOTT 


13925 

IF VE<>13 OR 0MO27 THEN 13940 

<057> 


E. " 

<206> 

13930 

IF GE(14)—0 THEN PRINT"£IN SPAHTGITT 


13601 

PRINT"ZN DER MAND IST EINE STAHLTUER 



ER VERSCHLIESST DEN ZUGANG ZUM SCHAC 



EINGELAS-SEN.":IF PA(6)00 THEN 136 



HT." 

< 119> 


20 

<201 > 

13932 

IF GE (14)00 THEN RI (1) =72: RI-1 

< 18B> 

13602 

PRINT"HINTER DEN SELSEN SCHNELLEN ST 


13940 

IF VE<>37 OR 0MO35 THEN 13950 

< 156> 


AHLGREIF— ARME HERVOR UND HALTEN MI" 


IF GM—0 THEN PRINT"HDMIT DENN ?”:GOT 



5 

<110> 


0 13950 

< 173> 

13603 

PRINT"CH FEST." 

<056> 

13943 

IF GMO10 THEN 13950 

< 186> 

13604 

PRINT"SIN KLEINER APPARAT SCHWEBT DI 


13944 

PRINT"SK. SAS SPAHTGITTER FAELLT HER 



REKT V0R<2SPACE>MEIN BESICHT.":PA(6) 



RUNTER UNDGIBT DEN SIN";:SC-SC+5 

<05B> 


= 1 

<211 > 

13945 

PRINT"GANG ZUM SCHACHT FREI." 

<231 > 

13605 

RETURN 

<201 > 

13946 

00(35)=0:GE(14)=39:GE*(14)—"SRAHTGIT 


13620 

IF PA (6) Ol THEN 13640 

<239> 


TER" 

< 157> 

13621 

PRINT"SINE SYNTHETISCHE STIMME AUS D 


13950 

RETURN 

<036> 


EM APPARATFRAGT : "; 

<043> 

14000 

DATA,41,51,,,,,,,:PRINT"MORDENDE EIN 


13622 

PRINT"'HIE LAUTET DAS SODEWORT 



ES KORRIDORS." 

<246> 


GOSUB 50000 

<084> 

14020 

RETURN 

< 106> 

13625 

IF VE=34 THEN PA(6>=-1 

<218> 

14100 

DATA 40,42,43,39,,,,,,:PRINT" SÄNGER 


13630 

IF PAC6>=1 THEN PRINT"SIN SASERSTRAH 



.KORRIDOR. " 

<019> 


L SCHIESST AUS DEM APPARAT.GOTO 80 


14120 

RETURN 

<20B> 


00 

<070> 

14200 

DATA 41,,44,38,,,,,,:PRINT"SUEDENDE 


13632 

PA(6)=—1:PRINT"SIE SYNTHETISCHE STIM 



EINES .KORRIDORS." 

< 134> 


ME SAGT : ”SQDEWORTBKZEPTIERT !'." 

<070> 

14220 

RETURN 

<052> 

13633 

PRINT"SIE £REIFARME LASSEN MICH WIED 


14243 

PRINT"SK. " : GE (GM) —4 

< 122> 


ER FREI,€2SPACE>DER APPARAT SCHWEBT 


14250 

NEXT 

<034> 


DAVON." 

<039> 

14300 

DATA,,,41,,,,,,:PRINT"flUSSRUESTUNGSR 


13634 

PRINT"SIE STAHLTUER OEFFNET SICH MIT 



AUM. " 

< 113> 


EINEMI4SPACE>LEISEN SURREN.”:00<22) 


14320 

IF VE—13 AND OM—29 THEN PRINT"SAZU B 



-36 

< 073 > 


IN ICH ZU GROSS.“ 

< 119> 

13635 

0*(21>="SFFENE STAHLTUER" 

<248> 

14322 

IF VE>2 OR 0MO29 THEN 14340 

< 16B> 

13640 

IF VE—13 AND OM—22 THEN RI(1>=37:RI- 


14325 

IF TU(4)02 THEN 14330 

< 119> 


1 

<011> 

14326 

IF GE(17)0-1 THEN PRINT"3ER SCHRANK 


13650 

RETURN 

<246> 


IST VERRIEGELT !" 

<230> 

13700 



14327 

IF GE(17)<>—1 THEN PRINT"SCH HABE AU 



G.":RETURN 

<159> 


CH KEINEN SCHLUESSEL !" 

<042> 

13720 

IF VE<>35 OR 0MO23 OR PA (7)-3 THEN 


14330 

IF VE—1 AND GE(17)——1 THEN PRINT"SK- 



13730 

< 190> 


":TU(4)—0 

< 196> 

13721 

PRINT"SIE STAHLTUER SCHLIESST SICH M 


14335 

IF VE—2 AND TU(4)—0 THEN PRINT"fiK.": 



IT EINEM<2SPACE>LEISEN SURREN. 

< 161 > 


TU(4)—2 

<227 > 

13722 

IF PA(7)—0 THEN PRINT"SIE ROTE IASTE 


14340 

IF VE<>8 OR 0MO29 OR GM-0 THEN 1435 



BLINKT KURZ HELL AUF." 

<095> 


0 

<212> 

13723 

IF PA(7)—0 THEN PRINT"SELTSAM - SIE 


14341 

IF TU(5)—0 THEN PRINT"SER SCHRANK IS 



STAHLTUER OEFFNET SICH{4SPACE >WIEDER 



T NICHT OFFEN.“:GOTO 14350 

<232> 


! " 

<046> 

14343 

PRINT “SK. " : GE (GM) —4 

<224> 

13724 

IF PA(7)—0 OR PA(7)=3 THEN 13730 

<060> 

14350 

RETURN 

< 1B4> 

13725 

PRINT"SER AUFZUG BEWEGT SICH LEISE N 


14400 

DATA,45,49,42,,,,,,:PRINT"SAUM." 

<102> 


ACH UNTEN.";:SC-SC+9.5 

<009> 

14420 

RETURN 

<254> 

13726 

PRINT"MACH CA 2 AINUTEN BLEIBT ER ST 


14500 

DATA 44,46,48, ,,, , ,,:PRINT“JUDRRIDOR. 



EHEN !" 

<243> 


« 

<160> 

13727 

PRINT"SIE STAHLTUER OEFFNET SICH.":P 


14520 

RETURN 

<098> 
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14600 DATA 45,,,,,,,,,:PRINT"ALEKTRIZITAET 
S-iABOR." 

14620 RETURN 

14700 DATA,,,,,,,,4B,:PRINT"BR0SSE HALLE." 
14710 IF YT THEN YT=l:SC=SC+5 
14720 RETURN 

14B00 DATA,,,45,,,,,,47:PRINT"GEKACHELTER 
SAUM." 

14820 RETURN 

14900 DATA 50,,,44,,,,,,:PRINT"SLEINER JSOR 
RIDOR." 

14920 RETURN 

15000 DATA,49,,,,,,,, = PRINT"GROSSES ANTIK 
EINGERICHTETES HDHNZIMMER.“; 

15020 IF VE<>47 QR DM<>38 THEN RETURN 

15021 IF YA THEN YA=l:SC=SC+5 

15022 PRINT"flK. ":PRINT"DAS SICHT IM SAUM G 


< 168> 
< 200 > 
<014> 
<066> 
<044> 

<083> 

< 144> 

< 134> 
<246> 

<229> 

< 172> 

< 192> 



EHT PLOETZLICH AUS(3SPACE>UND EIN " 5 

<000> 

16102 

15023 

PRINT"HELLER RECHTECKIGER ALECK ER-< 



3SPACEJSCHEINT AN DER SIMMERWAND." 

<215> 

16103 

15024 

PRINT"AIN VERSTECKTER PROJEKTOR BEGI 
NNT ZUI4SPACE >LAUFEN !" 

<06B> 

16104 

15025 

PRINT"AN DER HAND ERSCHEINT DAS DILD 




EINES{4SPACE1HESENS DAS HALB BENSCH 




5 

<189> 

16105 

15026 

PRINT"UND HALB SDBOTER IST UND EIN X 
ONBAND BEGINNT ZU LAUFEN." 

<046> 

16120 

15027 

POKE 198,0:WAIT 198,1 

<011> 

16130 

15030 

PR INT"AIER SPRICHT SROFESSOR £DHAN ! 
<105PACE>HEIN AXPERIMENT, EINE BES"; 

< 192> 

16131 

15031 

PRINT"SERE KUENSTLI- CHE HENSCHHEIT 
ZU SCHAFEN IST FEHLGE-I3SPACE>SCHLAG 
EN. " 

< 153> 

16132 

15032 

PRINT"flEINE SOBOTER HABEN SICH GEGEN 


16133 


MICH GE- WENDET." 

<072> 


15033 

PRINT"DEI EINEM DAMPF WURDE MEINE ME 
CHANISCHE SOERPERHAELFTE ZERSTOERT ! 


16135 


" 

< 164> 

16140 

15035 

PRINT"J£H HABE NUR NOCH KURZE ZEIT Z 
U LEBEN." 

<209> 

16141 

15036 

PRINT"XCH VERSUCHE NUN DIE VERBOTENE 




ZONE ZUC2SPACE>ERREICHEN UND DIE SJ 


16142 

15037 

ELLE 

PRINT"DER AACHT MITI2SPACEJEINER ZEI 
TBOMBE ZU ZERSTOEREN UM DIE BE-VORST 

<245 k 

intm*» 


16143 


EHENDE"; 

<217> 

16150 

15038 

PRINT" ROBOTERINVASION AUF DIE HEN-S 
CHHEIT ZU VERHINDERN." 

<082> 

16200 

15040 

PRINT"ADEGE SOTT MIR MEIN VERBRECHEN 


16210 


VERGEBEN." 

<214> 


15045 

POKE 198,0:WAIT 198,1 

<029> 

16220 

15050 

PRINT"DAS DILD AN DER HAND VERSCHWIN 
DET UND<3SPACE>DAS SICHT GEHT WIEDER 


16300 


AN. " 

< 1B6> 

16320 

15099 

RETURN 

< 169> 


15100 

DATA,,,40,,,,,,:PRINT"KLEINER WEISS 
GEKACHELTER SAUM.“ 

<050> 

16325 

15120 

IF VE< >45 AND VE<>35 OR 0M<>36 THEN 


16330 


15130 

< 160> 

16400 

15122 

PRINT"DIE SCHLEUSSE OEFFNET SICH.":0 
* (28> = “.OFFENE DOHLEUSSE": TU (5) =0 

< 145> 

16420 

15123 

IF YB THEN YB=1:SC=SC+2. 5 

<020> 

16500 

15124 

PRINT"AINE SYNTHETISCHE STIMME RUFT 
'AXJJSfl ! 42SPACE JSCHLEUSSE ZUR VERBOT 
ENEN"; 

< 108> 

16501 

15126 

PRINT"<SHIFT—SPACE>ZONE IST AKTI— VI 


16520 


ERT WORDEN ! • . " 

< 164> 

16600 

15130 

IF VE=13 AND 0M=28 AND TU(5)=0 THEN 
RI(1)=52:RI=1 

< 177> 

16620 

15140 

RETURN 

<212> 

16700 

15200 

DATA,51,,,53,,,,,:PRINT"ANGER SANG I 
M INNEREN DES SEÖIRGES." 

<211 > 

16720 

15205 

PR INT 11 DER DODEN STRAHLT IN EINEM SEL 
TSAMENC4SPACE>VIOLETTEN SICHT." 

< 188> 

16725 

15220 

IF GE (16) 0-1 THEN PA(9)=1 

< 102> 

16727 

15230 

RETURN 

<046> 

16730 

15300 

DATA 54,,,,,,56,52,,:PRINT"AOEHLENSY 
STEM." 

<090> 


15320 

RETURN 

< 136> 

16732 

15400 

DAT A,53,,,,,55,,,:PRINT"AOEHLENSYSTE 
M. " 

<238> 

16733 

15420 

RETURN 

<238> 

16740 

15500 

DATA 59,56,57,,,54,57,,,:PRINT”ADEHL 


16800 


ENSYSTEM." 

<092> 

16820 

15520 

RETURN 

<0B2> 

16900 

15600 

DATA 55,58,57,,59,53,,,,:PRINT"ADEHL 
ENSYSTEM." 

<120> 

16920 

15620 

RETURN 

<184> 



15700 DATA 55,,,56,,55,,,,:PRINT"ADEHLENSY 

STEM." <159> 

15720 RETURN <028> 

15800 DATA 56,,,,57,,,,,:PRINT"AOEHLENSYST 

EM." <092> 

15820 RETURN <12B> 

15900 DATA,,,55,,,,56,60,0:PRINT"ADEHLENSY 

STEM." <251> 

15920 RETURN <230> 

16000 DATA,,,,,,,,61,59:PRINT"AQEHLENSYSTE 

«■" <104> 

16020 RETURN <074> 

16100 DATA, ,,,,,,, ,60:PRINT"AM ANDE DES HE 

GES. <241> 

16101 PRINT"a3R MIR LIEGT EIN TIEFER, CA 1 

0 AETER C3SPACE >BREITER ABGRUND DER I 
N "5 <251> 

PRINT"DUNKELHEIT BE— <3SPACE>HUELLT I 
ST." <198> 

PRINT"AUF DER ANDEREN SEITE DES BBGR 
UNDS SETZTSICH DER HEG FORT." <211> 

PRINT"flN DER EELSWAND AUF DER ANDERE 
N SEITEI3SPACE>IST EIN ROT LEUCHTEND 
ER"! <11B> 

PRINT" DRUCKKNOPF ANGE-BRACHT." <0B0> 

IF VE=35 AND 0M=39 THEN PRINT"HEINE 
ARME SIND NICHT 10 BETER LANG !" <009> 

IF BR< >1 THEN 16135 <162> 

PRINT"SIN LAUTES SATTERN ERTOENT !": 
SC=SC+10 <132> 

PRINT"£INE 3RUECKE AUS STAHL WIRD UE 
BER DEN{3SPACE >ABGRUND HINWEG HERRUE 
SER"; <107> 

PRINT" GESCHOBEN.":BR=2:00 <40> =61:00 
(41)=63 <055> 

IF VE=13 AND OM=40 THEN RI(1)=62:RI= 

1 <221> 

IF VE<>8 OR GM<>6 OR 0M<>39 THEN 161 
50 <220> 

IF BRO-1 THEN PR INT "DIE £1 STOLE FAE 
LLT HINAB.GE(6 )=0:GOTO 16150 <130> 

PRINT"HK.":PRINT"DIE £1STOLE TRIFFT 
DEN DRUCKKNOPF MIT<3SPACE>V0LER HUCH 
‘ !“ <159> 

GE(6)=63:BR=1:GOTO 16130 <190> 

RETURN <206> 

DATA 63,61,,,,,,,,:PRINT"flUF EINER S 
TAHLBRUECKE DIE UEBER EINEN <150> 

PRINT" TIEFEN, DUNKLEN ABGRUND FUEHR 
T." <145> 

RETURN <020> 

DATA,,,64,0,0,0,0,0,0:PRINT"HOEHLENW 
EG AM SANDE EINES ABGRUNDS." <117> 

IF VE=13 AND 0M=41 THEN RI(1)=62:RI= 

1 <182> 

IF VE=35 AND 0M=42 THEN PRINT"OK.":P 
RINT"£S PASSIERT NICHTS." <250> 

RETURN <130> 

DATA,,63,,,,,65,,:PRINT"HDEHLENSYSTE 
M." <087> 

RETURN <222> 

DATA,,,,64,,,,66,:PRINT"BEUCHTE SROT 
TE." <235> 

PRINT"AINE BREITE UNREGELMAESSIGE ST 
EINTREPPE FUEHRT NACH OBEN." <019> 

RETURN <066> 

DATA,,,67,,,,,,65:PRINT"£IE5SIGER PR 
UNKVOLLER XEMPELRAUM." <073> 

RETURN <166> 

DATA,69,66,68,,,,,,:PRINT"GROSSER RU 
NDER SAUM." <245> 

IF VE<>8 OR 0M< >43 THEN 16740 <129> 

IF G1018 AND GE (Gl ) =—1 THEN PRINT"fl 
K.”:GE(Gl)=0 <023> 

IF GIOIB THEN 16740 <207> 

PRINT"AINE SYNTHETISCHE STIMME AUS D 
ER AEIT—I2SPACE>B0MBE SPRICHT :":GE( 

18)=—9 <048> 

PRINT" - AISSION BEENDET. DETONATION E 
RFOLGT IN ";ZB;"ZEITEINHEITEN !'" <1B2> 

SC=SC+10 <145> 

RETURN <032> 

DATA,,67,,,,,,,:PRINT"ALTARRAUM." <244> 

RETURN <112> 

DATA 67 PR INT "AUSSERHALB DE 

S IEMPELS." <062> 

IF VE=23 AND 0M=44 THEN PRINT"DIE HA 
UER IST VIEL ZU HOCH UND ZU STEIL." <195> 
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, 2 , LEN (GE* (I > ) — 1) THEN 50300 

< 162> 




502B0 

IC-lsIF G1=0 THEN 61=1:IF GE(G 1)=-1 


16925 

IF VE=13 OR VE=26 OR VE=4B THEN RI<1 



THEN GM=I 

< 210 > 


>=75:RI=l:SC=SC+5 

<060> 

50290 

G2=I:IF G2=G1 THEN G2=0 

< 002 > 

16930 

RETURN 

<224> 

50300 

NEXT I:IF IC THEN 50370 

<067> 

17100 

DATA.10:PRINT"ÜOCH OBEN AUF 


50310 

FOR 1=1 TO OZ:IF B*=OB$(I)THEN OB“I: 



EINEM HFFENBROTBAUM." 

< 118> 


IC=1:IF 00(1)=ZN THEN OM=I 

<007> 

17110 

IF PA (3) 0-1 THEN PA (3) =5 

< 176> 

50320 

NEXT I:IF IC THEN 50370 

<087> 

17120 

RETURN 

< 158> 

50329 

REM IFLEN(B*)< 3THEN50350 

<017> 

17200 

DATA 39,45, , , ,, , ,, :PRINT".IN EIN' 1 !-! BE 


50330 

FOR 1=1 Tü PZ 

< 111 > 


LUEFTUNGSSCHACHT." 

< 011 > 

50331 

IF MID*(B*,2,LEN <B*>—1)=MID*(PE*(I), 

17220 

RETURN 

<004> 


2,LEN(PE*(I))—1)THEN PE=I:IC=1 

< 144> 

17500 

DATA.: PRINT"J£H SCHWIMME UNT 


50332 

XF PF=I AND PF ( I ) — 7N THFN PM-PF- XT-"? 

<113> 


ER DER BAUER DURCH UNDI2SFACEJTREIBE 


50340 

NEXT I:IF IC THEN 50370 

<107> 


NUN"; 

<053> 

50350 

IF B*="UND"THEN UD=1:IC=1 

< 126> 

17501 

PRINT" AUF DEM O.USS." 

< 172> 

50360 

IF IC=0 AND RI=0 THEN PRINT"ZEH KENN 


17520 

POKE 198,0:WAIT 198,1 

< 220 > 


E ";B*;" NICHT !":GOTO 50000 

< 187> 

17525 

:PRINT"<CLR>ÜND SO ENDETE DAS HBENTE 


50370 

WZ=WZ+1:IF WZ>10 OR BE*(WZ)=""OR UD= 



UER DESI9SPACEJflR BOLINGS :" 

<205> 


1 THEN RETURN 

<046> 

17530 

PR INT "BIT LETZTER JSRAFT ERREICHTE ER 


50380 

IC=0:GOTO 50241 

<040> 


DENI 6 SPACE >ZNSELSTRAND, WO ER "; 

< 022 > 

51000 

REM ALLGEMEINE TABELLEN - 

< 148> 

17532 

PRINT"VON EINEM VORBEIFAH- RENDEN HA 


51005 

RESTORE 51000 

< 22 B> 


NDELSSCHIFF ENTDECKT UND IN 

<225> 

51010 

DATA N,S,W,0,NW,NO,SW,SO,RAUF,RUNTER 


17533 

PRINT"I3SPACEJSEINE HEIMAT ZURUECKGE 



:FOR 1=1 TO 10:READ RI*(I):NEXT 

<066> 


BRACHT WURDE." 

<225> 

51100 

TU(1)=1:REM SCHRANK 

<067> 

17540 

IF GE (18) 0-9 THEN 17550 

< 181 > 

51105 

TU(2)=1:REM HAUSTUER 

<159> 

17545 

PRINT"ALS DIE ZEITBOMBE EXPLODIERTE 


51110 

TU(3)=1:REM TRUHE 

< 195> 


VERSANKI3SPACEJDIE GESAMTE iNSEL SPU 


51115 

TU(4)=2:REM SCHRANK 

< 179> 


RLOS“; 

<087> 

51116 

TU(5)=1:REM SCHLEUSSE 

<226> 

17546 

PRINT" IM HEER." 

<0B8> 

51120 

MU=4 

<207> 

17550 

IF GE(18)=—9 THEN 17560 

<225> 

51130 

DIM BE*(20) 

<242> 

17552 

PRINT"MAS MIT DEN ROBOTERN GESCHAH B 


51200 

: 

< 121 > 


LIEB < 6 SPACEI.B.ISHE_R UNBEKANNT. 

<142> 

51210 

DATA 51,51,51,40,41,42,44,45,48,48,4 


17560 

PRINT" <WHITE>SIE HABEN" ; SC; "7. DIESES 



8,45,44,42,41,40,-1 

< 167> 


BDVENTURES GELOEST." 

<237> 

51220 

DIM MA(17):FOR 1=1 TO 17:READ MA(I>: 


«t 

o 

in 

N 

PRINT"{2D0WN,LIG.REDIflIT FREUNDLICHE 



NEXT:MA=1:REM ROBOT AKTIV 

<242> 


N SRUESSEN, 

<250> 

52000 

REM WORTSCHATZ- 

<069> 

17565 

PRINT"<2D0WN,14SPACE>BICHAEL HICKLES 

< 010 > 

52005 

RESTORE 52000 

<228> 

17566 

POKE 198,0:WAIT 198,1:RUN 

< 177> 

52010 

DATA OEFFNE,SCHLIESSE,SCHAUE,UNTERSU 


50000 

REM **************************** 

<206> 


CHE1,NIMM,NEHME1,H0LE2,VERLIERE,LEGE 


50050 

IF UD=1 THEN 50220 

< 139> 


1 

< 124> 

50055 

TT=0 

<050> 

52011 

DATA WIRF2.WERFE3,INVENTUR,GEHE 

<058> 

50060 

run x = i iu i*o: Dt* v 11 - sinfa i :ru*.fc iv 

52«j a . 

DATA BL1Ktltl,VERLASSE,GIB,GEBE1,ZEI 



8,0:BE*="" 

<090> 


GE2,WARTE,TOETE,ERLEGE1,SCHIESSE2 

< 130> 

50061 

PRINT"<GREEN>HAS SOLL ICH NUN MACHEN 


52013 

DATA KLETTERE,FAELLE,BAUE,SCHWIMME,U 



?":PRINT"IGREY 2,D0WN>5"; 

< 151 > 


EBERQUERE,LIES,LESE1,HILFE 

<251 > 

50080 

GET X*:TT=TT+1:IF TT>1500 THEN PRINT 


52014 

DATA BEFESTI GE , BINDE1 , VERKN0TE2, NAHO 



"IUP,GREEN>":GOTO 50140 

<223> 


C,DRUECKE,BETAETIGE1 

<149> 

50085 

IF X*=""THEN 50080 

<840> 

52015 

DATA BRECHE,BRICH1,ZERSCHLAGE2,ZERST 


50086 

TT=0 

<081 > 


0ERE3,VERNICHTE4 

< 110 > 

50090 

IF PEEK(203)=1 OR LEN(BE*>>75 THEN I 


52016 

DATA VERBINDE,KURZ 1,STECKE,ZIEHE,SCH 



F BE*<>""THEN PRINT"{LEFTJ. tGREENJ“: 



IEBE1,SETZE,SPRINGE,ESSE 

< 167> 


GOTO 50140 

<187> 

52040 

VZ=49:DIM VE*(VZ):FOR 1=1 TO VZ:READ 


50100 

I=ASC(X*):IF I<65 OR I>90 THEN IF I< 



VE*(I):NEXT 

< 156> 


>32 AND 1020 AND 1034 THEN 50080 

<038> 

52100 

DATA DER,DIE,DAS,DEN,IN,AUF,NACH,VOM 


50110 

IF 1=20 AND LEN(BE*)=0 THEN 50080 

<093> 


, ZUM, DEM , AUFS , SIE, MIT, UEBER , HOCH , WEG 

< 159> 

50120 

IF 1=20 THEN PRINT"C2LEFT,2SPACE,2LE 


52105 

DATA EIN,AM,AN,DICH 

< 001 > 


FT >B";:BE*=LEFT*(BE*,LEN(BE*)-1):GOT 


52120 

AZ=20:DIM AU*(AZ):FOR 1=1 TO AZ:READ 



O 50080 

< 127> 


AU*(I):NEXT 

< 113> 

50130 

BE*=BE*+CHR*(I):I = I +12B:PRINT"ILEFT > 


52200 

REM DIE OBJEKTE - 

< 195> 


"; CHR* (I >; " fä“;: GOTO 50080 

<067> 

52210 

DATA SCHRANK,"ALTER SCHRANK AUS SICH 


50140 

BE*=BE*+" ": FOR 1 = 1 TO 10: BE* (I) =" '•: 



ENHOLZ",1 

< 143> 


NEXT:WZ=1:FÜR 1=1 TO LEN(BE*) 

< 131 > 

52212 

DATA HAUSTUER,"AAUSTUER",1 

<219> 

50150 

:IF MID*(BE*,I,1)=" "THEN GOSUB 5019 


52214 

DATA SCHIFF,"SCHIFF",3 

<048> 


0:GOTO 50180 

<050> 

52216 

DATA TRUHE , ".GROSSE SEEMANNSTRUHE" , 0 

<246> 

50160 

:IF WZ>19 THEN PRINT"EINGABE IST ZU 


52217 

DATA TUER,"HAUSTUER",2 

<214> 


LANG ! " : I =LEN (BE*) +1: GOTO 50180 

<074> 

52218 

DATA BAUM,"HOHER SFFENBROTBAUM",10 

< 191 > 

50170 

:BE*(WZ > =BE*(WZ)+MID*(BE*,1,1) 

< 127> 

52219 

DATA MAUER,"SEHR HOHE, BREITE HAUER 


50180 

NEXT I:GOTO 50220 

< 112 > 


AUS HELSBROCKEN ",8 

<218> 

50190 

IC=0:FOR 11=1 TO AZ:IF BE*(WZ)=AU*(I 


52220 

DATA FLUSS,"AREITER REISSENDER HLUSS 



1> THEN IC=1 

< 118> 


'Ml 

<106> 

50200 

NEXT 11:IF IC=0 THEN WZ=WZ+1:RETURN 

<189> 

52221 

DATA KROKODIL,"älELE KROKODILE LAUER 


50210 

BE*(WZ)="":RETURN 

< 194> 


N IM fl_USS",ll 

<081 > 

50220 

IF UD=1 THEN UD=0:GOTO 50240 

< 001 > 

52222 

DATA KAMIN, "I!AMIN",1 

< 011 > 

50230 

WZ=1:VE=0:OB=0:OM=0:PE=0 

<231 > 

52223 

DATA BAUM, "SUENNE HQLZBAUME" ,12 

<077> 

50240 

IC=0:G1=0:G2=0:GM=0 

<164> 

52224 

DATA FLUSS,"SREITER REISSENDER HLUSS 


50241 

B*=BE* (WZ) :. IF B*=" “THEN RETURN 

< 171 > 


", 14 

< 136> 

50242 

IF B*="SUPERMIKE"THEN PRINT"09372106 


52225 

DATA HOEHLE,"EINGANG ZU EINER HOEHLE 



82":IC=1:G0T0 50370 

<137> 


“ ,25 

<157> 

50245 

FOR 1=1 TO 10:IF B*=RI*(I)THEN RI=I 

< 126> 

52226 

DATA HOEHLENWAND,"HOEHLENWAND",22 

< 137> 

50246 

NEXT I: IF RIO0 THEN RETURN 

<106> 

52227 

DATA STEIN,"SPITZER SREIDESTEIN",0 

<219> 

50260 

FOR 1=1 TO VZ:IF B*=LEFT*(VE*(I),LEN 


52228 

DATA SCHRIFT,"SCHWER LESBARE SCHRIFT 



(B*))THEN VE=I—VAL(RIGHT*(VE*(I),1)) 



",0 

< 131 > 


: IC=1 

< 001 > 

52229 

DATA SKELETT,"ZN EINER £CKE LIEGT EI 


50261 

NEXT I:IF IC THEN 50370 

<02B> 


N MENSCHLICHES SKELETT",22 

< 125> 

50270 

FOR 1=1 TO GZ 

< 174> 

52230 

DATA EISENRING,"HM SODEN IST EIN SIS 


50275 

IF MID*(B*,2,LEN(B*)—1)< >MID*(GE*(I) 



ENRING BEFESTIGT”,27 

< 174> 
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52231 DATA SPALT ,"Efi 1 flETER BREITER SPALT 

IN DER fiEBIRGSWAND",31 <164> 

52232 DATA TROPFSTEINE,"VON DER 2ECKE HAEN 

GEN GEBILDE AUS TROPFSTEINEN",35 <025> 

52233 DATA STAHLTUER,"STAHLTUER",36 <104> 

52234 DATA AUFZUG,"SIE STAHLTUER GIBT DEN 

ZUGANG ZU EINEM flJFZUG FREI",0 <141> 

52235 DATA TASTE,".BOTE TASTE",37 <150> 

52236 DATA SCHALTKASTEN,"SN DER HAND HAENG 

T EIN SCHALTKASTEN",37 <084> 

52237 DATA KABEL,"TM SCHALTKASTEN SIND ZWE 

I ROTE JABEL MIT BLANKEN SNDEN",0 <011> 

52238 DATA STECKDOSE,"TN DER HAND IST EINE 

STECKDOSE",41 <070> 

52239 DATA SCHACHT,"TN DER HAND IST EIN SE 

LUEFTUNGSSCHACHT", 39 <171> 

52240 DATA SCHLEUSSE,"SCHLEUSSE AUS STAHL" 

.51 <006> 

52241 DATA SCHRANK,"SCHRANK AUS STAHL",43 <096> 

52242 DATA SCHACHT,"TN DER HAND IST EIN SE 

LUEFTUNGSCHACHT", 45 <134 > 

52244 DATA TREPPE,"HENDELTREPPE DIE NACH U 

NTEN FUEHRT",48 <190> 

52245 DATA TREPPE,"HENDELTREPPE DIE NACH 0 

BEN FUEHRT",47 <012> 

52246 DATA STAHLTUER,"VERSCHLOSSENE STAHLT 

UER”,38 <220> 

52247 DATA KAMPFROBOTER,"SIESSIGES REGUNGS 

LOSES JAMPFROBOTERHEER",47 <103> 

52248 DATA DRAHTGITTER,"VOR DEM SCHACHT IS 

T EIN SRAHTGITTER",39 <0B2> 

52249 DATA SCHALTHEBEL,"HEBEN DER SCHLEUSS 

E IST EIN ROTER SCHALTHEBEL",51 <086> 

52250 DATA TOTEN,"SM SODEN LIEGT EIN JDTER 

- HALB BENSCH HALB SOBOTER",51 <202> 

52252 DATA SESSEL,"JN DER SITTE DES SAUMS 

STEHT EIN ANTIKER SESSEL",50 <161> 

52253 DATA DRUCKKNOPF, ".LEUCHTENDER SRUCKKN 

0PF",61 <116> 

52254 DATA BRUECKE,"SRUECKE AUS STAHL",0 <075> 

52255 DATA BRUECKE,"SRUECKE AUS STAHL”,0 <076> 

52256 DATA DRUCKKNOPF, “.LEUCHTENDER 3RUCKKN 

OPF IN DER EELSWAND",63 <070> 

52257 DATA BRUNNEN,"IN DER BITTE DES SAUMS 

IST EINE ART VON BRUNNEN",67 <239> 


52258 DATA MAUER,"SEHR HOHE, BREITE SAUER 

AUS SELSBRQCKEN",69 <030> 

52259 DATA FLUSS, "LEITER £LUSS, DER UNTER 

DER HAUER DURCHFLIESST“,69 <056> 

52260 OZ=45:DIM OB*«OZ):DIM 0*<0Z>:DIM 00< 

DZ) <151> 

52262 FOR 1=1 TO OZsREAD OB*«I):READ 0*<I) 

:READ 00 (I):NEXT <226> 

52300 DATA "SEEKARTE",0,"HUSCHELN",5 <0B3> 

52302 DATA"SAEBEL",-3,"SCHIFFSZWIEBACK",-3 

, "SEIL" 3, "JLISTOLE" ,—3 <067> 

52303 DATA"HUNITION",-3,"£LASCHE",-2,"SUCH 

",0,"HXT",-3,"HOLZ",0 <225> 

52305 DATA"FLOSS",0,"SLECHDECKEL",0,"SRAHT 

",0,"STROMKABEL",46 <079> 

52306 DATA"SCHUTZANZUG",-4,"SCHLUESSEL",0, 

"ZEITBOMBE",0 <00B> 

52330 GZ=18:DIM GE*(GZ):DIM GE(GZ):FOR 1=1 

TO GZ:READ GE*«I)-.READ GE(I>:NEXT <235> 
52400 DATA"HAVIGATOR",4,"JAEPTEN GRAUBARD" 

, 4, "JJ3EWE",0," VERBRANNTER SOBOTER",0 <030> 
52410 PZ=4:DIM PE*(PZ):DIM PE(PZ):FOR 1=1 

TO PZ:READ PE*«I):READ PE<I):NEXT <094> 
53000 RETURN <225> 


60000 REM MP <226> 

60004 FOR 1=49152 TO 49206:READ A:POKE I,A 

:NEXT:SYS 49152:SYS 49191:SP=49152 <091> 

60010 DATA 160,0,177,122,201,44,240,1,96,3 

2,115,0,32,49,192,165,20,32,23,192 <173> 

60020 DATA 76,0,192,41,63,141,1,221,9,64,1 

41,1,221,173,1,221,48,251,96,169,127 <009> 
60025 DATA 141,3,221,169,0,76,23,192,32,13 


8,173,76,247,183 <1B0> 

60045 RETURN:REM SYS49152,6,3,26,0,16,4,4, 

39,7,21,2,19,4 <147> 

61000 REM SPEAKEASY-SAETZE <200> 

61010 REM SYSSP,19,37,4,57,23,3,63,7,4,23, 

44,41,55,13:RETURN <252> 

61020 REM SYSSP,33,7,44,41,4,33,30,8,4,16, 

26,62,4,11,59,8,3,3,4:RETURN <097> 


6)030 REM SYSSP,27,26,62,45,53,4,4,4,19,37 

,4,27,6,55,55,7,4,4,16,19,55,17,52,4 <131> 
610..1 REM SYSSP,63,31,45, 19,11 ,4:RETURN <131> 

Listing »Cohan’s Land« (Schluß) 


Asterix und Obelix - 
die Odyssee 


Den Galliern ist ihr Zaubertrank ausgegangen. 
Versuchen Sie schnellstens, die Ingredenzen, die 
nötig sind, um ihn wieder zu brauen, aus dem fer¬ 
nen Afrika zu besorgen. 

D ie Handlung dieses Adventures basiert auf dem 
Asterix-Heft »Die Odyssee«. Miracuiix ist sein Vorrat an 
Steinöl ausgegangen, den er dringend benötigt, um 
seinen römerschlagenden Zaubertrank zu brauen. Der Spie¬ 
ler schlüpft nun in die Rolle von Asterix, der das Steinöl aus 
Mesopotamien holen muß. Zur Lösung des Spieles sind aber 
viele Gefahren und Rätsel zu bestehen. Starten Sie also als 
Asterix in dem kleinen gallischen Dorf, und suchen Sie den 
lebenswichtigen Zusatz des magischen Trankes. 

Das Spiel beinhaltet 48 Räume, wobei aber nicht alle 
Räume verschiedene Bilder liefern. Aus diesem Grund kann 
man sich auch in der Wüste von Mesopotamien leicht verlau¬ 
fen. Sie können ganze Sätze eingeben, aber auch Abkürzun¬ 
gen werden akzeptiert. 


Richtungsangaben wie »NORD« oder »SÜDWEST« müssen 
mit den üblichen Abkürzungen wie »N« oder »SW« eingege¬ 
ben werden. 

Folgende Verben werden verstanden: 

»NIMM, NEHME, WIRF, VERLIERE, WERFE, LEGE, 
BINDE, BEFESTIGE, VERKNOTE, KLOPFE, BERUEHRE, 
SCHLAGE, TOETE, VERPRUEGLE, WARTE, GIB, GEBE, 
REICHE, KAUFE, KLETTERE, GEHE, TRAGE, BENUTZE, 
TRINKE, SCHLUERFE, SPRINGE, SAGE, SCHAU, INVEN¬ 
TUR, LIST, SUCHE, ERKUNDE, LIES, OEFFNE, KITZEL, 
KITZLE, LOESE, ENTFERNE, FUELLE, SPEICHERE, SAVE, 
LADE, LOAD, RESTART«. 

Sie werden erkennen, daß das Programm nach den Tips 
aus dem 64’er Sonderheft »Abenteuerspiele 1« entstanden 
ist, zum Beispiel die GOTO X-Routine und der Wortzerlegung¬ 
ist, zum Beispiel die GOTO X-Routine und der Wortzerle¬ 
gungsteil. Aus produktionstechnischen Gründen war es lei¬ 
der nicht mehr möglich, das Listing im Heft zu drucken. Das 
Programm ist aber auf der Programm-Service-Diskette zu 
diesem Heft erhältlich. (Norbert Klein/dm) 
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Inka - 

Sdurtzsudie am Amazonas 

In den Tiefen des Amazonas-Urwaldes wartet der 
legendäre Inka-Schatz darauf, um von Ihnen ent¬ 
deckt und geborgen zu werden. 

B ei dem Programm Inka handelt es sich - von der Titel¬ 
grafik abgesehen - um ein reines Textadventure. Der 
Spieler schlüpft in die Rolle des Schatzsuchers 
Anthony Wolf, der von einem Museum beauftragt wird, den 
legendären Schatz der Inkas zu suchen. Außerdem soll er ein 
Zeichen eines verschollenen Forschers finden, der vor ihm 
sein Glück versuchte und seither als vermißt gilt. Sie fliegen 
mit einem Helikopter in das Zielgebiet und springen mit einem 
Fallschirm mitten in den Urwald. Hier beginnt das eigentliche 
Adventure. Inka verfügt über mehr als 50 Räume mit fast 40 
Rätseln. Das Vokabular beläuft sich auf etwa 100 Verben und 
Nomen. Wegen des großen Sprachschatzes wurde auf eine 
Wortliste verzichtet. Sämtliche Befehle können abgekürzt 
werden (»GE« für »GEHE« oder »U« für »UHR«). Der Klammer¬ 


affe (@) bewirkt eine Wiedergabe des zuletzt eingegebenen 
Befehls. 

Der Spielstand kann durch »SAVE« oder »LOAD« auf 
Kassette oder Diskette gespeichert und geladen werden. 

(T. Mahnig/W. Borucki/dm) 

Du stellst in undurchsichtigen Gestruepo 

« es lianenbewachsenen Dschungels. 

eruKllegende Gegenstaende: 

-falischirw 

Ausgacngeis nw no 


Mas nun ? nw< 


Du stehst in undurchsichtigen Gestruepp 
des lianenbewachsenen Dschungels. 

HeruNliegende Gegenstaende: 


keine 

Ausgaenge 


w o sw so 


Mas nun ? C 


Listing »Inka« 


10 REM" <7SPflCE>*»* IXKJ *«« <082> 

20 REM" {6SPACEJ (C) BY AC.S.P.C. <200> 

30 REM"II0SPACE >1985 | <079>C 

31 REM"SESIGNED BY £ILE fc ZOMBIE <117> 

32 REM"I2SPACE>£R0GRAMMED<2SPACE>BY ZOMBIE <078> 

33 REM" <112> 

34 REM"I6SPACEJZHIL0 HAHNIG <078> 

35 REM"I2SPACEIA.D. STEPHANSBERG 56 <213> 

36 REM“I4SPACE>5309 flECKENHEIM <070> 

37 REM"I3SPACE>ZEL.:I2SPACE>02225/4721 <147 > 

38 REM"- <059 > 

45 : <021> 

46 : <022> 

47 s <023> 

48 s <024> 

49 RESTOREs R=RND(—TI) <114> 

50 DATA 76,24,1,177,251,145,251,200,208,24 
9,230,252,202,208,244,96,120,160,0,169 ' <058> 

52 DATA 160,132,251,133,252,162,32,32,11,1 

,169,224,132,251,133,252,162,32,32,11 <097> 

54 DATA 1,169,53,133,1,88,96:FOR 1=264 TO 

310:READ X:POKE I,X:NEXT:SYS 264 <005> 

56 FOR 1=710 TO 730:READ X:POKE I,X:NEXT <176> 

58 DATA 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <1B4> 

60 POKE 40996,197:POKE 40997,2:POKE 1,54 <232> 

62 FOR 1=43168 TO 43170:READ X:POKE I,X:NE 

XT <077> 

64 FOR 1=704 TO 709:READ X:POKE I,X:NEXT <1B2> 

66 DATA 32,192,2,32,138,173,76,247,183 <045> 

70 : <046> 

71 : <047> 

72 : <04B> 

100 POKE 53280,7:POKE 53281,7 <014> 

110 PRINT"ICLR,BLACK,CTRL-H>"CHR*(142):REM 

H:CTRL+H <099> 

120 PRINT <222> 

130 GOTO 2000 <078> 

499 REM INPUT <234> 

500 PRINT:GOSUB 700 <015> 

510 Q=0:FOR 1=1 TO LEN(II*):IF MID*<II*,I, 

1>=“ "THEN Q=I:I=LEN(IIS) <235> 

520 NEXT:IF Q=0 THEN V*=II*:N*=.GOTO 540 <0B2> 

530 V*=LEFT*<II*,Q-l>:N*=MID*ai*,Q+l> <236> 

532 Q1=0:FOR 1=1 TO LEN(N*):IF MID*<N*,1,1 

)=" "THEN Q1=I <172> 

534 NEXT:IF Q1=0 THEN 0*="":0=0:GOTO 540 <021> 


536 0*=MID*(N*,Q1+1>:N*=LEFT*(N*,Q1-1) <060> 

540 L=LEN<V*>:V=0:FOR 1=1 TO 54:IF V*=LEFT 

*(V*(I),L>THEN V=I:I=54 <034> 

550 NEXT:IF V=0 THEN PRINT“ZEH VERSTEHE DE 

IN VERB NICHT!”:GOTO 500 <239> 

560 i- RIGHT*<V*<V>,1)="*"THEN V=V-l:GOTO 

560 <109> 

570 IF 0=0 THEN N=0: RETURN <165> 

580 L=LEN(N*):N=0:FOR 1=1 TO MX:IF N*=LEFT 

*<N*<I),L)THEN N=I:I=MX <168> 

590 NEXT:IF N=0 THEN PRINT"ZEH VERSTEHE DE 

IN ÜDMEN NICHT!“:GOTO 500 <071> 

600 IF 0*=“"THEN RETURN <249> 

610 L=LEN(O*):0=0:FOR 1=1 TO MX:IF 0*=LEFT 

*<N*<I),L)THEN 0=I:I=MX <170> 

620 NEXT:IF 0=0 THEN PRINT"ZEH VERSTEHE DE 

IN AJBJEKT NICHT!":GOTO 500 <021 > 

630 RETURN <180> 

700 PRINT:PRINT"HAS NUN ? ";:I1*=II*:II*=" 

” <090> 

710 PRINT"<ILEFT>"; <220> 

720 GET IN*:IF IN*=""THEN 710 <228> 

730 IF IN*=CHR*(20> AND II*>“"THEN 770 <136> 

740 IF IN*=CHR*<13)THEN 780 <124> 

750 IF(IN*<"@"OR IN*>"Z")AND IN*<>" "OR LE 

N <11*> >27 THEN 720 <189> 

755 IF IN*="@"THEN 795 <16B> 

760 II*=II*+IN*:PRINT IN*;:GOTO 710 <209> 

770 II*=LEFT*<11*,LEN(II*>—1):PRINT IN*;:G 

OTO 710 <029> 

780 : <250> 

785 IF II*=""THEN 720 <069> 

790 PRINT:RETURN <059> 

795 II*=I1*:PRINT CHR*<141)"<UP,10RIGHTJ"I 

I*;:GOTO 710 <176> 

999 REM SIEH . <019> 

1000 PRINT"HERUMLIEGENDE fiEGENSTAENDE:":F= 

0 <235> 

1010 FOR 1 = 1 TO 23: IF N(I)=P AND NFÜIOP 

THEN F=1:PRINT“-";N*<I) <064> 

1020 NEXT:IF F=0 THEN PRINT"KEINE" <177> 

1030 IF N(46)=P AND P<>14 THEN PRINT"SER fi 

FFE IST HIER." <000> 

1050 PR I NT: PR I NT “ flUSGAENGE: ";: RESTORE 4900 

+P*100:X=. <098> 

1060 READ X,E:PRINT V*(ABS<X>>" ";:E<ABS(X 

>)=E:IF X>0 THEN 1060 <004> 

1065 IF X=.THEN PRINT”KEINE"; <142> 

1070 PRINT:RETURN <085> 

1500 PRINT"I3DOWN}" <229> 
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1510 PRINT TAB<17)"<RVSON,RIGHT>+" <208> 

1520 PRINT TAB(17)"<RVS0N>.LLE" <0B7> 

1530 PRINT TAB<17>"<RVSON,RIGHT,SPACE>" <175> 

1540 PRINT TAB<17> “CRVSCIN.RIGHT,SPACE>" <187> 

1550 PRINT“<3D0WN>HILLST DU NOCHMAL SPIELE 

N ?“ <098> 

1560 GET IN*:IF IN*=""THEN 1560 <001> 

1570 IF IN*="J"THEN PRINT"£CLR>":RUN 3000 <04B> 

1580 IF IN*<>"N"THEN 1560 <1B9> 

1590 PRINT”CCLR>“:END <004> 

1999 END <223> 

2000 PRINT"tCLR>"j:POKE 53265,PEEK(53265)A 

ND 239 • <037> 

2002 PRINT"BLACK CROCO SOFTWARE PROGRAMMIN 
G CREWI5SPACE>PRESENTS:(SPACE,DOWN,4S 

PACE>INKA“ <177> 

2003 FOR 1-54272 TO 54296:POKE I,0:NEXT <201> 

2005 PRINT" <3SPACEJp"pTP fli P ppVp ' p <095> 

2010 PRINT" {3SPACE1A. 7 flrT gHHH 'p <15B> 

2020 PRINT" <3SPACE>RTmHfl<3SPACE>BWS , G <0B0> 

2030 PRINT” t3SPACE>WHBH SRflöEY E <205> 

2040 PRINT" HYW<2 SPACE>W ETJ fl Agg' <077> 

2050 PRINT"YYYYY£ß W<2SPACE>Y 7 <031 > 

2055 REM +++++++++-+++++++++-+++++++++_ <230> 

2060 PRINT"<3D0WN,4SPACE}fli":PRINT"C4SPACE 

>ÜS." <051 > 

2065 RESTORE 30000:FOR 1-0 TO 62:READ XlPO 

KE.832+1,X:NEXT:V=5324B:POKE V+39,0 <171> 

2066 POKE V+40,0:POKE V+41,0:POKE V+2,100: 

POKE V+3,80:POKE 2041,15:POKE 2042,14 <242> 

2067 POKE V+16,2 <216> 

2068 FOR 1=0 TO 62:READ X:POKE B96+I,X:NEX 
T:FOR 1=0 TO 62:READ X:POKE 960+I,X:N 

EXT <239> 

2070 POKE 2040,13:POKE V,200:POKE V+1,65:P 

OKE V+29,3:POKE V+21,3:POKE V+23,2 <004> 

2080 SI=54272:POKE SI+24,15:POKE SI+5,0:PO 

KE SI+6,240:POKE SI+1,10 <165> 

2100 PRINT TAB (10) " <75PACE>-gMWg <059> 

2110 PRINT TAB(10)"<6SPACETflfl flÜG' <1B7> 

2120 PRINT TAB (10) " <5SPACE>flfl NNKflg <251> 

2130 PRINT"pppppppppppp p~p KKAKN.H NML cpdpbbp 

pVp'p'p'p'p'p'" <110> 

2140 PRINT TAB(10)"<3SPACE> HQ7ZPH HNNH <122> 

2150 PRINT TAB<10>"(2SPACE>NN{4SPACF> HNNN 

ü <253> 

2160 PRINT TAB(10)"<2SPACE>fi{2SPACE>fi£t2SP 

ACE>£fl fl <115> 

2170 PRINT TAB< 10) " fl<2SPACE>A'BF'£<2SPACE}fl 

H <246> 

2180 PRINT TAB(10)" TTTTTTTTTT <113> 

2190 POKE 53265,PEEK<53265)OR 16 <222> 

2200 2=0:FOR 1=90 TO 0 STEP-l:POKE V+2,I:P 

OKE 975+Z,255:POKE 976-Z,0:Z=l-Z <099> 

2210 POKE SI+4,12B+Z:FOR N=1 TO 20:NEXT N, 

1 <249> 
2220 POKE V+4,255:POKE V+5,100:POKE V+21,7 <013> 
2230 FOR 1=100 TO 200:POKE 975+Z,255:POKE 

976-Z,0:Z=1-Z:POKE V+5,I:P0KE SI+4,12 
B+Z <100> 

2240 FOR N=1 TO 20:NEXT N,I <230> 

2250 FOR 1=80 TO 0 STEP-l:POKE 975+Z,255:P 

OKE 976-Z,0:POKE SI+4,128+Z:Z=l-Z <1B5> 

2260 POKE V+3,I:IF I<32 THEN POKE SI+24,1/ 

2 <053> 

2265 FOR N=1 TO 20:NEXT N,I <255> 

2270 POKE SI+4,0:PQKE V+21,0 <040> 

2280 PRINT"(CLR,CTRL—N,9D0WN>AON HENZEL SO 

RUCKI t. JHILO BAHN Iß" <159> 

2290 POKE 198,0:WAIT 198,1 <230> 

2300 PRINT"<CLR,CTRL-N,DOWN>,BAS SPIEL:":RE 

M N:CTRL+N <177> 

2310 PRINT" VYYYWYYW " <130> 

2320 PRINT"(DOWN>ÄJ BIST ANTHONY flDLF. <029> 

2330 PRINT"(DOWN>ÄJ WURDEST MIT DEM AALLSC 

HIRM UEBER DEM" <035> 

2340 PRINT"AEGENWALD DES AMAZONAS ABGEWORF 

EN." <209> 

2350 PRINT" IDQWN >F-1.K.H£<SHI FT—SPACE TUEN ISH1 
FT-SPACE > A£flflZ£(SH IFT-SPACEIBER(SHI FT 
—SPACE JlflÄfl (SHIFT—SPACE> ! " <009> 

2360 PRINT"(DOWNJS? INGE EIN REICHEN DES £0 

RSCHERS, DER" <255> 

2370 PRINT"SEINE STATION IRGENDWO DORT UNT 

EN HAT!“ <105> 

2380 PRINT"£DOWN>AAST DU BEIDE AUFGABEN ER 

FUELLT, SO“ <227> 


2390 PRINT"MACHE EIN WEITHIN SICHTBARES SI 

GNAL, UND“; <107> 

2400 PRINT"DER flUBSGHRAUBER WIRD DICH WIED 

ER ABHO- LEN!“ <211> 

2410 PRINT”CDOWNJARUECKE EINE IASTE." <148> 

2420 POKE 198,0:WAIT 19B,1:GET AS <058> 

3000 FL=22:DIM FLX(FL):RESTORE 3020 <137> 

3005 PRINT"(CLR,CTRL-N>" <204> 

3010 DIM V*(54):FOR 1=1 TO 54:READ V*(I):N 

EXT <055> 

3020 DATA N,S,0,W,NO,NW,SO,SW,NIMM.GIB,LEG 

E,SCHWIMME,STUELPE.WIRF,SPRINGE <177 > 

3030 DATA SCHLAGE,TOETE*,SCHAU,SIEH*,BETRA 

CHTE*,GUCKE*,HALTE,INVENTUR,LISTE* <197 > 

3040 DATA ZIEHE,DRUECKE*,GEHE,STELLE,KRIEC 

HE,KRABBLE*,GRABE,BUDDLE*,SCHLIESSE < 076> 

3050 DATA OEFFNE,BINDE,BEFESTIGE*,KLETTERE 

,HANGLE, WASCHE .SCHMIERE,KLEBE* <246> 

3060 DATA BESTREICHE*,BESCHMIERE*,SAVE,LOA 

D,DUIT,ENDE*,STOP*,MACHE,ENT ZUENDE* < 238 > 
3070 DATA WARTE,TRAGE,*ANZIEHE,JA <U6> 

3100 MX=51:DIM NS(MX),N(MX>,NF(MX):FOR 1=1 
TO MX:READ NS(I>,N(I):NF(I>=N(I):NEX 
T <045> 

3110 DATA MACHETE,0,UHR,43,STEIN,-1,EIMER, 

5,BANANEN,46,BRILLE,38,TOPF,8 <052> 

3120 DATA LIANE,-1,TASCHENTUCH,38,EIER,42, 

GOLD,-1,SCHLUESSEL,39,ALLES,-1 < 008> 

3130 DATA DECKEL,-1,TIERKADAVER,39,FIGUR,5 

0,SCHATZ,-1,SCHAUFEL,26 <236> 

3140 DATA FALLSCHIRM,0,STANGE,41,TRUHE,-1, . 

GELD,0,TELLER,30 <119> 

3200 DATA BAUM,,BIENEN, 11, INKA,,TOTER,,HEB 

EL , , MESTIZE , , WASSERFALL , < 219 > 

3210 DATA FLUSS,,STEINE,,INDIANER,,FEUER, <152> 
3220 DATA SKORPION, .HONIG, .EINSIEDLER, ,NES 

T,,AST,,TEMPELPORTAL,,SPALT, <024 > 

3230 DATA BRUNNEN,,HOEHLE,,FELS,,GEBUESCH, 

.AFFE,14,NISCHE,.BRUECKE, <064> 

3240 DATA ZELT,.STAUDE,,SEIL, <147> 

3300 RESTORE 3310:FOR 1=1 TO INT(RND(1)*8) 

+1:READ P:NEXT:N(19)=P <101> 

3310 " TA 26,29,7,3,12,24,17,40 <018> 

3320 KN*="J(ANN ICH NICHT. “: WDS="AAS DENN ? 

":HN*="flAB ICH NICHT." <234> 

3330 SN*="SEH ICH NICHT.":QKS="SK." <022> 

4000 IF FLX(18)=.OR P=P1 THEN 4050 <000> 

4010 PR INT ".SER AFFE KOMMT DIR NACH.":P1=P: 

N(46)=P:FL7.(18) = . <067> 

4050 FOR 1=1 TO 8:E(I)=.:NEXT:PRINT:GOTO 4 

900+P*100:PRINT <203 > 

4100 GOSUB 1000 <248> 

4110 GOSUB 4300:IF D THEN 1500 <006> 

4120 GOSUB 500:GOTO 19900+100*V <024> 

4300 D=0 <149> 

4310 IF NOT (P>9 AND P<23 AND POIB AND N(1 

2)=0 AND FLX(3)=0)THEN 4322 <037> 

4320 PRINT:PRINT"AINE DIEBISCHE ALSTER STI 

EHLT DIR DEINENSEHLUESSEL.”:N(12)=43 <192> 

4322 IF NOT (P>9 AND P<23 AND POIB AND N(2 

)=0 AND FLX(3)=0)THEN 4330 <126> 

4325 PRINT:PRINT"aiE ALSTER STIEHLT DIR DI 

E flHR.":N(2)=43 <126> 

4330 IF FLX(2)=.THEN 4340 <070> 

4332 FL7.(2)=FL7.(2>-1 <174> 

4335 IF FLX(2)=.AND P=9 AND N(3)THEN PRINT 

"AR SETZT SICH WIEDER HIN.":N(3)=-1 <12B> 

4340 IF FLX(4)=.THEN 4350 <145> 

4342 FLX(4)=FLX(4)—1:IF FLX(4)>1 THEN PRIN 
T"fiIR BLEIBT NICHT VIEL AEIT...“:GOTO 

4350 <117> 

4343 IF N(19)>—1 THEN 4348 <028> 

4344 PRINT"AU WIRST HINUNTERGEWORFEN.ÄJRCH 

DEN" <027> 

4345 PRINT"AALLSCHIRM WIRST DU GERETTET:DI 

E INDIA-" <254> 

4346 PRINT"NER KOENNEN NUR FASSUNGSLOS STA 
RREN...":P=41:FLX(4)=0:FLX(22)=1:RETU 

RN <039> 

4348 PRINT"JäIE INDIANER WERFEN DICH IN DEN 

ABGRUND. ■•: D= 1 <072> 

4350 IF(P<10 OR P>23)AND P<>43 THEN FLX(15 

)=0:GOTO 4380 <009> 

4355 IF FLX(15)=—1 THEN 4380 <130> 

4360 FLX(15)=FLX(15)—1:IF FLX(15)=1 THEN P 

RINT"3J HOERST EIN fiERAEUSCH..." <090> 

4370 IF FLX(15)THEN 4380 <170> 
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6300 

DATA 2,10,-5,20 

<080> 




6310 

IF N (46)014 THEN 5910 

<0B0> 

4375 

PRINT“SIN .INDIANER STUERZT HERBEI UND 


6320 

PRINT"SIN HFFE GAFFT DICH HUNGRIG AN. 



UEBER-C2SPACE >WAELTIGT DICH!“gD=1 

<010> 


..":GOTO 4100 

<104> 

4380 

IF FL7.<1B) = .QR FLX <19) =. THEN 4400 

<227> 

6400 

DATA 2,11,-5,21 

<006> 

4385 

FL7. < 18) =FL7.( 181-1 

< 137> 

6410 

GOTO 5910 

<208> 

4400 

IF P< >42 THEN 4420 

<012> 

6500 

DATA 1,21,-7,13 

<158> 

4405 

IF N(46)<>P AND N(46)<>-1 THEN PRINT" 


6503 

IF FLX(3)THEN 6520 

<038> 


SER ADLER T8ETET DICH.":D=1:RETURN 

<192> 

6505 

PRINTLINE ALSTER SITZT AUF EINEM HST 


4408 

IF FLX (20> THEN 4420 

< 155> 


EINES“ 

< 16B> 

4410 

PRINT"SER ADLER TOETET DEN AFFEN.":FL 


6508 

PRINT"SAUMES.ALS SIE DICH SIEHT, FLIE 



X(20)=1:N<46> — 1 

<081 > 


GT SIEt3SPACE>DAV0N." 

< 127> 

4420 

IF FLX(19)*.THEN N(5>=46 

< 140> 

6510 

GOTO 5910 

<052> 

4430 

IF FLX<211THEN FLX<21)-FLX<21)-1 

<253> 

6520 

PR INT "SIE ALSTER KLEBT MIT IHREN JSRAL 


4435 

RETURN 

< 175> 


LEN AM<3SPACE>SST FEST.":GOTO 5910 

< 150> 

5000 

DATA -1,3 

< 137> 

6600 

DATA 2,13,6,21,-5,23 

<164> 

5010 

PRINT"SU STEHST AM SLUSSUFER, NAHE BE 


6610 

GOTO 5910 

<152> 


I EINEMC2SPACE JTOSENDEN HASSERFALL." 

< 122> 

6700 

DATA 8,13,1,23,-5,24 

<071> 

5020 

PRINT"AIN SCHMALER AFERPFAD FUEHRT NO 


6710 

PRINT“SU HAST EIN KLEINES SQRF MIT iN 



RDWAERTS.";:GOTO 4100 

<001> 


KAHUETTENBETRETEN. " : GOTO 4100 

<220> 

5100 

DATA -4,1 

< 157> 

6800 

DATA 2,14,-3,20 

<069 > 

5110 

PRINT"SU BIST IN EINER AOEHLE HINTER 


6810 

GOTO 5910 

<098> 


DEM HAS- SERFALL." 

<017> 

6900 

DATA 4,19,8,14,-3,21 

<245> 

5120 

IF FLX<01=0 THEN PRINT"£IN INDIANER S 


6910 

GOTO 5910 

< 198> 


TARRT DICH BOESARTIG AN!" 

<0B6> 

7000 

DATA 4,20,3,22,8,15,-7,17 

<102> 

5130 

IF FLX(0)THEN PRINT"IWISCHEN DEN ££LS 


7010 

GOTO 5910 

<044> 


EN IST EIN HEBEL." 

<019> 

7100 

DATA 4,21,-3,23 

<018> 

5140 

GOTO 4100 

<040> 

7110 

GOTO 5910 

< 144> 

5200 

DATA 2,1,-5,4 

<253> 

7200 

DATA 2,18,8,17,-3,24 

<232> 

5210 

PRINT"SU STEHST AM SLUSSUFER. SER SFE 


7210 

GOTO 5910 

<246> 


RPFAD” 

<229> 

7300 

DATA 8,18,4,23,-7,25 

<106> 

5220 

PRINT"WEIST DEN HEG NACH HDRDOSTEN UN 


7310 

PRINT"SU STEHST AUF EINEM SEICHT BEWA 



D SUEDEN.";:GOTO 4100 

<032> 


LDETEN" 

< 165> 

5300 

DATA 8,3,-6,5 

<214> 

7320 

PRINT"HUEGEL.HESTLICH IST SSCHUNGEL,S 


5310 

PRINT“SU BIST AM SLUSSUFER. SER ALUSS 



UEDWEST—" 

<047> 


HAT" 

< 132> 

7330 

PRINT"LICH ERBLICKST DU EIN INKADORF, 


5320 

PRINT"EINIGE STEINE HERANGESPUELT.”:G 



SUEDOEST—"; 

<178> 


OTO 4100 

<211 > 

7340 

PRINT"LICH IST EINE WACKELIGE HAENGEB 


5400 

DATA 7,4,-1,6 

<083> 


RUECKE.":GOTO 4100 

<096> 

5410 

PRINT"HÖR DIR STEHT EIN SRUNNEN. SIN 


7400 

DATA 6,24,-7,26 

<073> 


BREIT" 

< 122> 

7410 

PRINT"SU STEHST AUF EINER SCHWANKENDE 


5420 

PRINT”GRINSENDER AESTIZE HAELT DIR EI 



N HAENGE—“: 

<204> 


N SCHILD VOR DIE HASE:" 

<066> 

7415 RINT"BRUECKE. UNTER DIR ZUENGELN DIE 


5430 

PRINT">£UER ABENTEURER *10.—C":GOTO 4 



ZISCHEN-"; 

<240> 


100 

< 187> 

7420 

PRINT-'DEN SLUTEN DES SLUSSES DAHIN, D 


5500 

DATA 2,5,-1,7 

< 179> 


ER FUER" 

< 105> 

5510 

PRINT“SU BIST IM TROCKENEN UNTERHOLZ. 


7430 

PRINT"SEINEN ADLDGEHALT BERUEHMT IST. 



:60TD 4100 

<079> 


":GOTO 4100 

<069> 

5600 

DATA 4,8,1,9,-2,6 

<017> 

7500 

DATA 6,25,1,27,-2,29 

<103> 

5610 

PRINT“SEIN HEG HAT DICH IN DIE JERGE 


7510 

PRINT"SU BIST AM HFER DES SLUSSES.HÖR 



GEFUEHRT."; 

<207> 


DWESTLICH"! 

<129> 

5620 

PRINT"HESTLICH IST EIN HOEHLENEINGANG 


7520 

PRINT"IST EINE SRUECKE. : IF N( 18)02 



.":GOTO 4100 

< 162> 


6 THEN PRINT:GOTO 4100 

< 158> 

5700 

DATA -3,7 

< 108> 

7530 

PRINT"iN DEN SAND IST NACH-","LAESSIG 


5710 

PRINT“SU HAST EINE ENGE HOEHLE BETRET 



EINE SCHAUFEL GESTECKT.":GOTO 4100 

<249> 


EN. " 

<238> 

7600 

DATA -2,26 

< 176> 

5720 

IF FLX(1)THEN PRINT"SER SIMER IST UEB 


7610 

PRINT"HIER, OBERHALB DER SRUECKE IST 



ER DEM SKORPION.GOTO 5750 

< 139> 


DAS HAS- SER SEICHT UND KLAR.":GOTO 4 


5730 

PRINT"HÖR DEINEN AUESSEN HOCKT EIN ET 



100 

< 155> 


WA FAUST-*'; 

<238> 

7700 

DATA 0,0 

<167> 

5740 

PRINT"GROSSER SKORPION,DER IM HALBDUN 


7710 

PRINT"SU STEHST BIS ZUR HUEFTE IM HAS 



KEL DER<2SPACE>HQEHLE BLAEULICH SCHIM 



SER.":GOTO 4100 

<00B> 


MERT." 

< 129> 

7800 

DATA 1,26,8,31,-4,30 

<248> 

5750 

PRINT"JN EINER HISCHE ENTDECKST DU EI 


7810 

PRINT"SU BIST AUF EINEM £FAD VOR EINE 



NEN IDPF HONIG." 

<060> 


M ZELT." 

<063> 

5760 

GOTO 4100 

< 152> 

7820 

PRINT“SAS MUSS DIE SEHAUSUNG DES SDRS 


5800 

DATA 2,7,-1,12 

< 154> 


CHERS<4SPACE>SEIN!":BOTO 4100 

<228> 

5810 

PRINT"HIER IST EIN £1NSIEDLER." 

<092> 

7900 

DATA -3,29 

< 111 > 

5820 

IF N<3>— 1 THEN PRINT"£R SITZT AUF EI 


7910 

PRINT"SU BIST IN DEM ZELT DES SORSCHE 



NEM STEIN." 

<224> 


RS.SS IST"! 

< 1B4> 

5830 

BOTO 4100 

<222> 

7920 

PRINT-NIEMAND HIER."i:IF N(23)030 TH 


5900 

DATA -3,11 

<077> 


EN PRINT:GOTO 4100 

<074> 

5910 

PRINT"SU STEHST IM UNDURCHSICHTIGEN £ 


7930 

PRINT"SIN IELLER MIT ESSEN STEHT AUF 



ESTRUEPP" 

<206> 


DEM SODEN.":GOTO 4100 

<060> 

5920 

PRINT"DES LIANENBEWACHSENEN SSCHUNGEL 


8000 

DATA -5,29 

<245> 


S.":GQTO 4100 

< 122> 

8010 

PRINT"SU STEHST AUF EINER FELSIGEN HD 


6000 

DATA 4,10,3,12,-1,15 

<155> 


EHE VOR" 

<038> 

6010 

IF N<25)011 THEN 5910 

<13B> 

8020 

PRINT"EINEM ABGRUND.IIEF UNTEN SIEHST 


6020 

PRINT"SIN SURRENDER SIENENSCHWARM UMS 



DU DEN" 

< 103> 


CHWAERMT DICH." 

<080> 

8030 

PRINT”IEMPEL.IN DER SELSWAND IST EIN 


6030 

IF N(36)=.THEN PRINT"SIE SIENEN STUER 



ADLER-I3SPACEJNEST.":GOTO 4100 

<0B7> 


ZEN SICH AUF DEN HONIG. ” 

< 160> 

8100 

DATA -7,34 

<055> 

6040 

GOTO 4100 

<17B> 

8110 

PRINT"SU STEHST AN EINER TIEFEN SGHLU 


6100 

DATA 2,9,4,11,-3,13 

< 112> 


CHT,AN" 

<010> 

6110 

GOTO 5910 

< 160> 

8120 

PRINT"DEREN SODEN DU DEN INKATEMPEL Z 


6200 

DATA 1,17,5,1B,6,16,-4,12 

<094> 


U ERKEN-" 

< 138> 

6210 

GOTO 5910 

<006> 

8130 

PRINT"NEN GLAUBST.":GOTO 4100 

<120> 
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8200 

DATA 6,29,-2,34 

<042> 

9300 DATA , 

<011> 

8210 

PRINT"£IN FAST UNSICHTBARER £FAD WIND 


9310 PR INT "SU STEHST IN DEM DRECKIGEN HASS 


ET SICH" 

< 174> 

ER DES{3SPACE JSRUNNENS.":GOTO 4100 

<177> 

8220 

PRINT"DURCH DAS SESTRUEPP.ICH BLAUBE 


9400 DATA , 

< 111 > 


NICHT," 

< 194> 

9410 PRINT"SU BIST AUF EINER KLEINEN INSEL 

8230 

PRINT"DASS ICH IHN WIEDERFINDEN WUERD 


. " 

<049> 


E.£R " 

<207> 

9420 PRINT"SIE SLAETTER EINER STAUDE SPEND 


8240 

PRINT"SETZT SICH NACH HORDEN UND SUED 


EN DIRT3SPACE>ANGENEHMEN SCHATTEN." 

< 124> 


EN FORT. " :GOTO 4100 

< 190> 

9425 IF N <5) —. THEN FL7.<19>=9 

<045> 

8300 

DATA 1,33,-6,32 

<189> 

9430 IF N < 21)< >45 THEN 4100 

< 137> 

8310 

PR INT "SU STEHST VOR EINEM TIEFEN flBGR 


9440 PRINT"SIE IRUHE STECKT HALB IM SAND." 


UND. " 

<025> 

:GOTO 4100 

<232> 

8320 

PRINT"UNTEN LIEGEN SKELETTE VON SPFER 


9500 DATA 0,0 

<189> 


N." 

<057> 

9510 PRINT"SU SITZT IN DER SPITZE DER STAU 


8325 

IF FLX <4) = .THEN PRINT"SEWAFFNETE iNKA 


DE." 

<211 > 

B340 

S STEHEN UM DICH HERUM." 

<006 > 

9520 IF N<5>=46 THEN PRINT"SIN SUSCH SANAN 

GOTO 4100 

<009 > 

EN HAENGT ZUM £REIFEN<4SPACE>NAHE." 

< 130> 

8400 

DATA -4,36 

<225> 

9530 GOTO 4100 

<112> 

8410 

PRINT"SU BIST AM £USS DES ABGRUNDS.HE 


9600 DATA —2,4B 

<018> 


STLICH C3SPACE >IST DER IEMPEL."sGOTO 4 


9610 PRINT"SU BIST IM SCHATZRAUM DES JEMPE 



100 

<095> 

LS!!!" 

<062 > 

8500 

DATA -3,35 

<011> 

9620 IF FLX <13)THEN PRINT"SURCH EINEN SPAL 


8510 

PRINT"HDR DIR IST DAS AORTAL DAS 3EMP 


T SCHEINT SICHT HEREIN.“ 

< 177> 


ELS." 

< 114> 

9625 IF FLX<13)THEN PRINT"HÖR DEM SPALT IS 


8520 

PRINT"SAVOR LIEGT DER TOTE FORSCHER,A 


T EINE HISCHE." 

< 157> 


UF SEINEM"; 

<218> 

9630 IF N<16)>—1 THEN 4100 

<231 > 

8530 

PRINT"£ESICHT EIN SCHMERZVERZERRTER fl 


9640 PRINT"SAS SICHT WIRD DURCH DIE SIGUR 



USDRUCK. “ : IF FL7. (14) =. THEN 4110 

< 114> 

GEBROCHEN"; 

< 109> 

8540 

PRINT"SER TEMPELPORTAL IST OFFEN.":GO 


9650 PRINT"UND STRAHLT AUF EINE BESTIMMTE 



TO 4110 

<211 > 

STELLE.":GOTO 4100 

<230> 

8600 

DATA -6,4 

<070> 

9700 DATA 1,54,-2,52 

<093> 

8610 

PRINT"SJ STEHST AUF EINEM STEIN IM £L 


9710 IF FLX<11)THEN PRINT"SIE SCHLANGEN ES 



USS. " 

<204> 

SEN NOCH.":GOTO 4100 

<036> 

8620 

IF FLX. <5> = . THEN PR INT "SER NAECHSTE ST 


9720 PRINT"SWEI SDENIGSKOBRAS VERWEHREN DI 



EIN IST EIN GUTES STUECK ENTFERNT." 

<136> 

R DENC4SPACEJHEG.":GOTO 4100 

<031 > 

8630 

GOTO 4100 

<228> 

9800 DATA 1,52,-3,53 

<084> 

8700 

DATA 5,40,-3,39 

<206> 

9810 IF FLX <12)THEN 9820 

<200> 

8710 

PRINT "SU BIST AM OESTLICHEN SLUSSUFER 


9815 PRINT"SIE HIER SCHLIESST SICH HINTER 



. " 

<219> 

DIR“:FLX <12)=1 

< 197> 

8720 

IF N<6)038 AND N<9)038 THEN 4100 

<213> 

9820 PRINT"SU HAST EINEN FINSTEREN 3EMPELR 


8730 

IF N<6>=38 THEN PRINT"EINE ZERSCHLAGE 


AUM BE—" 

< 171 > 


NE SRILLE ":IF N<9)=38 THEN PRINT"UND 


9830 PRINT"TRETEN.JER S3DEN DES NACH NORDE 



EIN“ 

<170> C 

•» FUEHR-" 

<071 > 

8740 

IF N <6)038 THEN PRINT"SIN "; 

<023> 

9835 PRINT"ENDEN SANGES IST HALB EINGESTUE 


8750 

IF N<9>=38 THEN PRINT"BLUTIGES HASCHE 


RZT UND" 

<0B2> 


NTUCH MIT INITIALEN" 

<138> 

9837 PRINT"WIRD NUR NOCH DURCH EIN PAAR LO 


8760 

PRINT"LIEGT AUF DEM JODEN.": 

<227> 

SE PLAN- KEN GEHALTEN." 

< 195> 

8770 

GOTO 4100 

<114> 

9840 PRINT"fiESTLICH IST EINE FEINES SEIL G 


8B00 

DATA 0,0 

<251 > 

ESPANNT.":GOTO 4100 

<249> 

8810 

PRINT"SU BIST IN EINE fALLGRUBE GERAT 


9900 DATA -4,53 

<029> 


EN * " 

< 151 > 

9910 PRINT"SU BIST IN EINEM DUNKLEN SAUM." 


8820 

PRINT"ÜIT DIR HIER IST EIN IIERKADAVE 


:IF N<16)<>50 THEN 4100 

< 198> 


R."; 

<249> 

9920 PRINTLINE GLAESERNE £IGUR SCHIMMERT 


8825 

IF N<12)=39 THEN PRINT"CLEFT,SPACE>UN 


GEHEIM-<2SPACE >NISVOLL.":GOTO 4100 

<224 > 


D","EIN SCHLUESSEL." 

<074> 

10000 DATA -7,38 

< 181 > 

8827 

IF N <12)039 THEN PRINT 

< 127> 

10010 GOTO 8610 

<228> 

8830 

PRINT"JOM OBEREN SAND STARREN DICH EI 


10100 PRINT"SER SANG STUERZT UNTER DIR ZUS 



NIGE HY— AENEN AN.":GOTO 4100 

<089> 

AMMEN.":GOTO 1500 

<0B7> 

8900 

DATA -8,38 

<111> 

10200 PRINT"SAS SEIL ZERREISST, EIN STEIN 


8910 

IF FL7.<6)=.THEN PRINT"SU BIST IN VOEL 


LOEST SICH"; 

<237> 


LIG UNDURCHDRINGLICHEM{3SPACE>£EBUESC 


10210 PRINT"AUS DEM SEWOELBE UND BEGRAEBT 



H. " 

< 192> 

DICH UNTERSICH.":GOTO 1500 

<239> 

B920 

IF FLX <6)THEN PRINT"3J STEHST IM BEST 


10300 IF N <10)=48 THEN P=47:G0T0 4000 

<0B5> 


RAEUCH.“ 

<050> 

10310 PRINT"SAS HAETTEST DU NICHT DU NICHT 


8930 

GOTO 4100 

<018> 

SOLLEN!" 

<054> 

9000 

DATA -8,40 

<018> 

10320 PRINT"SLITZSCHNELL stoesst EINE DER 


9010 

PRINT"SU BIST UNTER EINEM flBGRUND.SER 


SCHLANGEN" 

<122> 


IPPE“ 

< 165> 

10330 PRINT"VOR UND SCHLAEGT IHRE SIFTZAEH 


9020 

PRINT-LIEGEN HERUM. ":IF N<20)041 THE 


NE IN DEIN£LEISCH.":GOTO 1500 

<087> 


N 4100 

<224> 

20000 : 

< 194 > 

9030 

PRINTLINE HOLZSTANGE LIEGT ZWISCHEN 


20100 : 

<008> 


DEN KNO- CHEN.":GOTO 4100 

<025> 

20200 : 

< 10B> 

9100 

DATA 0,0 

<041 > 

20300 : 

<210> 

9110 

PRINT"SU HAENGST AM SEIL AN DER £ELSW 


20400 : 

<054> 


AND. " : IF N <10)042 THEN 4100 

<231 > 

20500 : 

< 156> 

9120 

PRINT"HM HORST SITZT EIN HDLER, EINIG 


20600 : 

<000> 


E £1ER{3SPACE >AUSBRUETEND.":GOTO 4100 

<076> 

20700 IF E <V)=0 THEN PRINT"SU KANNST NICHT 


9200 

DATA , 

< 165> 

IN DIESE SICHTUNG!":GOTO 4110 

<044> 

9210 

PRINT"SU SITZT AUF DEM SAUM.HEBEN DIR 


20701 IF N THEN PRINT KN*:GOTO 4110 

< 103> 


IST DAS" 

<100> 

20702 IF N<19)=-1 AND FLX<22>=.THEN PRINT 


9220 

PRINT"HEST DER ELSTER.":IF N<2>=43 TH 


KN*:GOTO 4110 

< 131 > 


EN PRINT"SARIN LIEGT EINE HHR." 

<069> 

20703 IF N <19)——1 AND FLX<21)>-1 THEN PRIN 


9230 

IF FLX<15>=-1 THEN GOTO 4100 

<066> 

T"ÖIT FALLSCHIRM ?" : E=E < V) : FLX. <21) =2 


9240 

PRINT"SIN INDIANER TAUCHT UNTER DIR A 


:GOTO 4110 

< 150> 


UF, SIEHT"; 

<101> 

20705 IF P<10 OR P>23 OR FLX<16)<>E<V)OR F 


9250 

PRINT"UM SICH UND VERSCHWINDET WIEDER 


LX <15)=—1 OR P=1B THEN 20710 

<010> 


.":FLX<15)=-l:GOTO 4100 

<065> 

20707 PRINT"ßIT EINEM MAL STEHT DIR EIN XN 
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20800 
20802 
20805 


20860 

20861 


20862 

20863 

20864 
20866 
20870 


Listing »Inka« (Fortsetzung) 

DIANER GE—"; 

20708 PRINT"GENUEBER. SR GREIFT DICH AN UN 
D UEBER— C2SPACE>WAELTIGT DICH.":GOTO 
1500 

20710 IF FLX< 15)<>—1 THEN FL7.(15)=3 
20715 FLX<16)=P:IF P<>18 THEN P=E(V):GOTO 

4000 

20720 PRINT"J40N ALLEN SEITEN KOMMEN INDIAN 
ER HERBEI."; 

20725 PR INT "SIE SCHLEPPEN DICH WEG. . . •• 
20730 FOR 1=1 TO 2000:NEXT:FLX(4 > =5:P=34:G 
OTO 4000 

IF N=0 THEN PRINT WD*:GOTO 4110 
IF NINIOP THEN PRINT SN*: GOTO 4110 
IF O THEN 20850 
20810 GOSUB 20860:IF D THEN 1500 
20815 GOTO 4110 

20850 PRINT"(3SPACE>"N*(N)" ODER "N*<0>" ? 
":GOTO 4110 

D=0:IF N>23 THEN PRINT KN*:RETURN 
IF N=7 AND P=B AND FLX<1)=.THEN PRIN 
T"SER SKORPION STICHT DICH!":D=1:RET 
URN 

IF N=4 AND FLX(1> = 1 THEN FLX<1>=. 

IF N=3 AND P=9 THEN PRINT"SNTER DEM 
STEIN LAG EIN DECKEL.":N(14)=9 
IF N=7 AND P=8 THEN N<36>=. 

IF N=3 AND P=37 THEN FLX<5>=. 

Z=.:FOR 1=1 TO 23:IF N(I)=.THEN Z=Z+ 
1 

20875 NEXT:IF Z>5 THEN PRINT"SU TRAEGST ZU 
VIEL!!”:RETURN 

20880 N<N)=.:PRINT OK*:RETURN 

20900 IF N=.THEN PRINT WD*:GOTO 4110 

20905 IF DO.THEN GOTO 20920 

20907 IF N>23 THEN PRINT KN*:GOTO 4110 

20910 GOTO 21000 

20915 IF N=22 AND P=5 AND 0=29 THEN 21012 
20920 IF NOT CN=11 AND P=34 AND 0=33 AND N< 
11) = . AND FLX <4)0. ) THEN 20930 
20925 PRINT"SIE LASSEN DICH IN SRIEDEN UND 
GEHEN.":N(11)=-l:FLX(4)=0:GOTO 4110 
20930 IF NOT(N=46 AND 0=5 AND N(46)=P)THEN 
20950 

20935 IF N<5)THEN PRINT HN*:GOTO 4110 
20937 PRINT"DER AFFE STUERZT SICH AUF DIE 
.BANANE. " : FLX < 18) =4: FLX (19) =FLX ( 19) -1 
20940 GOTO 4110 

20950 IF NOT <(N=33 OR N=46 OR N=37)AND 0<2 
4)THEN PRINT KN*:GOTO 4110 
20960 PRINT"SER ";N*(N){" SCHAUT DARAUF,": 

PRINT-UND WIRFT ES HIN.":N(O)=P:GOTO 
4110 

IF N=13 THEN 21050 
IF N=19 AND N(N)<.THEN N(N)=. 

IF N <N)< >.THEN PRINT HN*:GOTO 4110 
IF NOT(N=22 AND P=5 AND N(4)=5)THEN 
21013 

21012 PRINT"£R SAGT:<AALT DICH AM SIMER FE 
ST!>":FLX(7)=1:N(22)=—1:GOTO 4100 

21013 IF NOT(N=2 AND P=9)THEN 21015 

21014 PRINT"DER EINSIEDLER STUERZT SICH AU 
F DIE AHR.“:FLXT2>=3:N(2)=—1:N(3)=9: 
GOTO 4110 

21015 IF NOT(N=3 AND(P=37 OR P=51))THEN 21 
017 

21016 PRINT"SU KANNST JETZT UEBER DEN £LUS 
S.“:FLX(5)=1:N(3)=37:GOTO 4110 

P=34 AND N=11 THEN 0=33:GOTO 2092 


21000 

21007 

21010 

21011 


< 140> 


< 179> 
<058> 

<044 > 

< 113> 
<093 > 

<004> 

<218> 

<018> 

< 012 > 

< 222 > 

<253> 

<235> 
<051 > 


<16B> 

<243> 

<071> 
<047 > 

< 165> 

<056> 

< 108> 
<168> 
<253> 
<097> 
<128> 
<06B> 
<234> 

<033> 

<034> 

<058 > 
<219> 

< 173> 

< 122 > 

<013> 


Ol 


<157> 

<060> 

<216> 

<239> 

< 145> 

< 198> 
<046> 


21017 IF 
0 

21018 IF P=N(46)AND N=5 THEN 20935 

21020 IF NOT(N=16 AND 0=47 AND P=47 AND FL 
X(13)=1)THEN 21029 

21022 PRINT"BIE £IGUR PASST SICH IN DIE HI 
SCHE EIN.":N(16)=-1 

21023 PR INT "EIN .LICHTSTRAHL WEIST AUF EINE 

STELLE <3SPACE >DES SÜDENS.":GOTO 411 

0 

21029 IF O THEN 20B50 

21030 N(N)=P:PRINT OK*:GOTO 4110 

21050 FOR 1=1 TO 23:IF N(I)=.THEN N(I)=P:P 
RINT OK* 

21060 NEXT:GOTO 4110 

21100 IF N THEN PRINT KN*:GOTO 4110 

21105 IF P=28 THEN P=45:G0T0 4000 

21106 IF P< >38 THEN 21110 


<237> 

<065> 

< 199> 

< 182> 
<040> 

<07B> 

<085> 


<216> 

<23B> 

<125> 

<032> 
<245> 
<250> 
<206> 
< 144> 


21420 

iLin 


21107 FOR 1=1 TO 23:IF N(I)=.THEN N(I)=-2 

21108 NEXT:P=3:GOTO 4000 
21110 IF P< >45 THEN 21120 

21115 IF FLX(5)THEN PRINT"SU ZERSCHELLST A 
N EINEM STEIN IM ELUSS.“:GOTO 1500 
21118 P=3:GOTO 4000 

21120 IF P<>3 THEN PRINT KN*:GOTO 4110 
21125 PRINT"SU WIRST DEN HASSERFALL HINUNT 
ER GE—I4SPACEISCHWEMMT.":GOTO 1500 
21200 IF N=4 AND(Q=.OR 0=35)THEN 21220 
21210 PRINT KN*:GOTO 4110 
21220 IF N(4)THEN PRINT HN*:GOTO 4110 
21225 PRINT"SER SKORPION IST GEFANGEN." 
21230 N(4)=8:FLX(1)=1:GOTO 4110 
21300 IF O THEN 20850 
21305 IF N=.THEN PRINT WD*:GOTO 4110 
21310 IF N<>15 OR P<>39 OR N(15)OP THEN P 
RINT KN*:GOTO 4110 

21315 N(15)=—1 

21316 IF FLX(B)+FLX(9)=2 THEN 21320 

21317 PR INT "SER JSADAVER WIRD VON DEN ÜYAEN 
EN SOFORT" 

21318 PRINT"WEGGESCHLEPPT UND GEFRESSEN.": 
GOTO 4110 

21320 PRINT"SIE HYAENEN STUERZEN SICH GIER 
IG AUF DEN"; 

21330 PRINT"AADAVER UND ZERREN DICH DARAN 
AUS DER(3SPACEJfiRUBE.":P=38:GOTO 400 
0 

21400 IF(N=.OR N=31 AND 0=.)AND P=25 THEN 
P=2S:GOTO 4000 

21410 IF N THEN PRINT KN*:GOTO 4110 
21412 IF P=43 THEN P=16:G0T0 4000 
21415 IF P=46 THEN P=45:G0T0 4000 

21417 IF NOT(P=5 OR P=34 OR P=31 OR P=32)T 
HEN PRINT KN*:GOTO 4110 

21418 IF N(19)>—1 THEN PRINT"SU ZERSCHELLS 

T-":GOTO 1500 

21419 IF P=31 THEN PRINT"S£IN SALLSCHIRM B 
LEIBT HAENGEN UND ZER- REISST...":GO 
TO 1500 

IF P=34 THEN PRINT"£S GEHT ABWAERTS. 

..":P=41:FLX(22)=1:G0T0 4000 
21421 IF P=32 THEN PRINT”SD SCHWEBST SANFT 
HERAB!”:P=35:FLX(22)=1:GOTO 4000 
21425 PRINT"SU FAELLST IN DEN BRUNNEN...": 
GOTO 1500 

21500 IF N< >8 OR P<10 OR P>23 OR P=18 THEN 
21530 

21510 IF N(1)THEN PRINT KN*:GOTO 4110 
21520 N(8)=P:N=B:GOTO 20810 
21530 IF N< >45 OR PO40 THEN PRINT KN*: GOT 
0 4110 

21540 IF N(1)THEN PRINT KN*:GOTO 4110 
21550 PRINT"SU HAST DAS SEBUESCH WEGBAR GE 
MACHT.":FLX(6)=1:GOTO 4110 
21700 GOTO 4000 
22100 IF 0 THEN 20850 
22105 IF N=.THEN PRINT WD*:GOTO 4110 
22110 IF(N=4 AND(P=44 OR P=5)AND N(4)=5)0R 
(N=8 AND P=39 AND N(15)>.)THEN 22130 
22120 PRINT KN*:GOTO 4110 

22130 IF N=8 THEN FLX(B>=1:PRINT OK*:GOTO 
4110 

22140 IF FLX(7)=.THEN PRINV'SU MUSST IHN B 
EZAHLEN!":GOTO 4110 

22150 PRINT"SR KURBELT KRAEFTIG AN DER HIN 
DE.":P=49—P:GOTO 4000 
22200 Z=.:PRINT"SU HAST:":FOR 1=1 TO 23:IF 
N(I)=.THEN PRINT"—"N*(I):Z=1 
22210 NEXT:IF Z=.THEN PRINT"NICHTS" 

22220 GOTO 4110 

22400 IF N=.THEN PRINT WD*:GOTO 4110 
22410 IF NOT(N=28 AND P=2 AND FLX(.)=1)THE 
N PRINT KN*:GOTO 4110 
22420 PRINT"SU HOERST EIN SELTSAMES,SCHNAR 
RENDES £E—RAEUSCH.":FLX(13)=1 
22430 GOTO 4110 
22600 IF O THEN 20850 

22610 IF N=43 AND P=7 THEN P=8:GOTO 4000 
22615 IF N=30 AND P=1 THEN P=2:G0T0 4000 
22620 IF N=31 AND P=3 THEN PRINT"SU WIRST 
DEN HASSERFALL HINABGESPUELT...":GOT 
0 1500 

22625 IF NOT(N=32 AND(P=4 OR P=38 OR P=37 
OR P=51) ) THEN 22630 

22626 IF P=4 OR P=3B THEN P=-37*(P=4)-51*( 


<242> 

<108> 

<099> 

<227> 

<062> 

< 119> 

<106> 
<163> 
<211 > 
<218> 
<139> 
<0B8> 
<255> 

< 150> 

< 197> 
<204> 

< 108> 

< 155> 
<246> 
<20B> 


< 159> 

<233> 

<050> 

<253> 

< 197> 

<104> 

<249> 

< 133> 
<0BB> 
< 212 > 
<02B> 

<029> 

< 166 > 
<225> 

< 157> 

< 196> 

<070> 

<072> 

<037> 

< 1BB> 

<13B> 

< 105> 

<211 > 

< 127> 

< 172> 

< 124> 

< 178> 

< 132> 
<229> 

< 110 > 

< 138> 
<0BB> 
<029> 
<127> 
< 010 > 


<153> 

<045> 
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P=38)s GOTO 4000 

< 162> 

23610 

IF N=24 AND P=16 THEN P=43:G0T0 4000 

< 222 > 

22627 

IF FL7.(5)=.THEN PRINT "SU WIRST WEGBE 


23615 

IF N=50 AND P=45 THEN P=46:G0T0 4000 

<073> 


SPUELT...“:GOTQ 1500 

<032> 

23618 

IF N =8 AND (P=31 OR P=42)AND FL7.(17) = 


22628 

P= 88 —P:GOTO 4000 

<045> 


1 THEN P=73—Ps GOTO 4000 

<227> 

22630 

IF N=40 AND P=36 AND FL7.(14>=1 THEN 


23620 

PRINT KN*:GOTO 4110 

<081 > 


P=49:GOTO 4000 

<041 > 

23700 

IF N THEN PRINT KN*:GOTO 4110 

<054> 

22635 

IF N=41 AND P=47 AND FL7.(13)=1 THEN 


23710 

IF P=49 OR P=48 THEN 23605 

<22B> 


P—2 s GOTO 4000 

<236> 

23720 

PRINT KN*:GOTO 4110 

< 181 > 

22640 

IF N=48 AND(P=26 QR P=24>THEN P=25:G 


23800 

IF N<>11 OR P<>27 THEN PRINT KN*:GOT 



OTO 4000 

< 002 > 


0 4110 

< 136> 

22645 

IF N=49 AND P=29 THEN P=30:GOTD 4000 

<042> 

23802 

IF 0 THEN 20850 

<215> 

22650 

IF N=45 AND P=40 AND FL7.(6>=1 THEN P 


23805 

IF N(23)THEN PRINT"flIR FEHLT DIE BUS 



=41:GOTO 4000 

< 132> 


RUESTUNG.":GOTO 4110 

<230> 

22660 

PRINT KN*:GOTO 4110 

< 137> 

23810 

PRINT"BU KANNST TATSAECHLICH SOLD WA 


22700 

IF N=16 AND 0=47 AND P=47 AND FL7.(13 



SCHEN!":N <11)=27:GOTO 4110 

< 138> 


)=1 THEN 21022 

<052> 

23900 

IF <N=39 AND(0=.OR 0=36))OR(N=36 AND( 


22710 

PRINT KN*:GOTO 4110 

< 187> 


0=.OR 0=39))THEN 23930 

<099> 

22800 

IF 0 THEN 20850 

<231 > 

23920 

PRINT KN*:GOTO 4110 

<127> 

22820 

IFXP049 AND PO50IOR N<>51 THEN PRI 


23930 

IF N<36)THEN PRINT HN*:GOTO 4110 

< 162> 


NT KN*:GOTO 4110 

< 10 B> 

23935 

PRINT"BER BST WIRD KLEBRIG.BEUGIERIG 


22830 

P=99—P:GOTO 4000 

<041 > 


SETZT SI—"; 

<048> 

23000 

IF N THEN PRINT KN*:GOTO 4110 

< 116> 

23940 

PRINT"CH DIE SLSTER AUF IHN UND KLEB 


23010 

IF N<18)THEN PRINT"1CH HABE KEINE SC 



T FEST ! " : FL7. (3) = 1: GOTO 4110 

<026> 


HAUFEI_" : GOTO 4110 

< 164> 

24300 

INPUT "(DOWN>£ILENAME " 5 FI* 

< 154> 

23015 

IF P<>45 THEN 23030 

<242> 

24310 

PR I NT"(RVSON >B(RVOFF > I SK ODER(SPACE, 


23020 

PRINT"3J SIEHST EINE IRUHE, NOCH HAL 



RVSON>I<RVOFF>APE ?“ 

< 180> 


B IM SAND."::N(21>=45:GOTO 4110 

<027> 

24315 

GET IN*: IF IN*=""THEN 24315 

< 187> 

23030 

IF P< >47 THEN PRINT KN*:GOTO 4110 

<066> 

24320 

IF IN*="D"THEN OPEN 1,8,2,FI*+",S,W" 


23040 

IF N <16)< >—1 THEN PRINT"BD SOLL ICH 



•■GOTO 24330 

<071> 


DENN GRABEN ???":GOTO 4110 

<225> 

24325 

IF IN*="T"THEN OPEN 1,1,1,FI*:GOTO 2 


23050 

PRINT“aU GRAEBST DEN INKASCHATZ AUS! 



4330 

<099> 


": N (16)=—2:N(17)=47:GOTO 4110 

<13B> 

24328 

GOTO 24315 

< 012 > 

23200 

IF N=.THEN PRINT WD*:GOTO 4110 

< 011 > 

24330 

PRINT#1,P:FOR 1 = 1 TO MX t PRINT# 1 , N (I > 


23202 

IF 0 THEN 20850 

<123> 


: NEXT 

<168> 

23204 

IF NOT (P=l 1 AND N=7 AND FL7. (10) =. AND 


24340 

FOR 1=0 TO FL:PRINT41,FLX(I):NEXT 

< 20 B> 


N(36)=.)THEN 23210 

< 191 > 

24350 

CLOSE 1:PRINT OK*:GOTO 4110 

<217> 

23205 

IF N(14)THEN PRINT"SHNE BECKEL ?":G0 


24400 

INPUT "(DOWNJEILENAME ";FI* 

< 000 > 


TO 4110 

<213> 

24410 

PRINT"(RVSON>B(RVOFF>ISK ODER(SPACE, 


23206 

IF N(7)THEN PRINT HN*:GOTO 4110 

< 012 > 


RVSONJKRVOFFJAPE ?" 

<026> 

23207 

FLZ(10)=1:N(14>=—1:N(36)=—1:PRINT"SI 


24415 

GET IN*:IF IN*=”"THEN 24415 

<035> 


E SIENEN SIND GEFANGEN.”:GOTO 4110 

<039> 

24420 

IF IN*="D"THEN OPEN 1,8,2,FI*+",S,R" 


23210 

IF N=7 THEN PRINT"BAS KANN ICH JETZT 



:GOTO 24430 

<152> 


NICHT.":GOTO 4110 

<163> 

2442 c F IN*="T"THEN OPEN 1,1,0,FI*:GOTO 2 


23215 

IF N=40 AND P=36 THEN PRINT 0K*:FL7.( 



4430 

< 200 > 


14)=.:GOTO 4110 

<007> 

24428 

GOTO 24415 

< 144> 

23220 

PRINT KN*:GOTO 4110 

<189> 

24430 

INPUT#1,P:FOR 1=1 TO MX:INPUT#1,N(I) 


23300 

IF N=.THEN PRINT WD*:GOTO 4110 

< 113> 


: NEXT 

< 178> 

23310 

IF NOT (N=7 AND FL7.110) =1) OR 0 THEN 2 


24440 

FOR 1=0 TO FL:INPUT#1, FLX <I):NEXT 

<228> 


3330 

<073> 

24450 

CLOSE 1:PRINT OK*:GOTO 4000 

<013> 

23312 

IF N(7)THEN PRINT HN*:GOTO 4110 

< 120 > 

24500 

PRINT"(2D0WN>HIRKLICH ?" 

<053> 

23315 

N<14) = .:IF P <>2 THEN PRINT"aiE BIENE 


24510 

GET IN*:IF IN*=""THEN 24510 

<092> 


N FLIEGEN DAVON. ": FL7. (10) =.: GOTO 411 


24520 

IF IN*=“J"THEN PRINT"(CLRJGOTO4000:C 



0 

< 168> 


ZUM WEITERMACHEN ] " :POKE 631,141:END 

< 112> 

23320 

PRINT"2IE SIENEN VERJAGEN DEN INDIAN 


24530 

IF IN*="N"THEN POKE 19B,0:GOTO 4110 

<039> 


ER. “ : FLZ (. ) = 1: GOTO 4110 

<066> 

24540 

GOTO 24510 

< 158> 

23330 

IF NOT(N=40 AND P=36)THEN 23340 

<223> 

24800 

IF P< >6 OR N<>34 THEN PRINT KN*:GOTO 


23331 

IF N(20)THEN PRINT HN*:GOTO 4110 

< 166> 


4110 

<147> 

23332 

IF 0=20 THEN 23336 

<050> 

24810 

IF 0=.THEN PRINT"HDMIT DENN ?":GOTO 


23333 

PRINT"ALS DU DAS BORTAL AUFDRUECKST, 



4110 

<065> 


STICHT" 

<221 > 

24820 

IF 006 THEN PRINT KN*: GOTO 4110 

< 192> 

23334 

PRINT"DICH ETWAS IN DIE HAND.2IR WIR 


24825 

IF N( 6 )THEN PRINT HN*:GOTO 4110 

<075> 


D SCHWIN—" 

<205> 

24830 

PRINT"BIN HEUER KOMMT AUF. .JETZT HEIS 


23335 

PRINT”DELIG UND ßUGENBLICKE SPAETER 



ST ES WAR-"; 

< 121 > 


KIPPST DU TOT UM.":GOTO 1500 

<226> 

24840 

PRINT-TEN.":FOR 1=1 TO 2000:NEXT 

< 154> 

23336 

IF N<12)THEN PRINT"BIR FEHLT DER PAS 


24850 

PRINT"£IN HUBSCHRAUBER KOMMT UND LAE 



SENDE SCHLUESSEL.":GOTO 4110 

< 109> 


SST EINE" 

< 002 > 

23337 

PRINT"BAS GROSSE £DRTAL SCHWINGT SAN 


24855 

PRINT"STRICKLEITER HERUNTER, AN DER 



FT AUF... ":FL7.< 14) = 1: GOTO 4110 

<153> 


DU HQCHKL-"; 

<051 > 

23340 

IF N< >21 THEN PRINT KN*:GOTO 4110 

<232> 

24860 

PRINT"ETTERST." 

< 198> 

23350 

IF N<12)THEN PRINT"ICH HABE KEINEN S 


24870 

FOR 1=1 TO 2000:NEXT:GOTO 40000 

< 168> 


CHLUESSEI_"-.GOTO 4110 

<154> 

25000 

IF N THEN PRINT KN*:GOTO 4110 

<084> 

23360 

PRINT"BIE IRUHE IST LEER. "-.GOTO 4110 

<222> 

25010 

PRINT OK*:GOTO 4110 

< 185> 

23400 

IF 0=.THEN PRINT WD*:GOTO 4110 

<221 > 

25100 

IF N< >19 OR N <19)THEN PRINT KN*:GOTO 


23410 

IF NOT (N =8 AND P=39 AND 0=15 AND N(1 



4110 

<037> 


5)>.)THEN 23450 

< 182> 

25110 

N (19)—1: PRINT OK*: GOTO 4110 

< 182> 

23430 

IF N( 8 )THEN PRINT HN*:GOTO 4110 

<015> 

25300 

IF N THEN PRINT KN*:GOTO 4110 

<130> 

23440 

PRINT 0K*:FL7.(9)=1:N<8> — 1: GOTO 4110 

< 112> 

25310 

IF FL7.C2DTHEN PRINT"SKAY, WAR NUR ' 


23450 

IF NOT <N=B AND 0=44 AND P=31)THEN 23 



NE HRAGE...":P=E:FLX(21)1:GOTO 400 



470 

<010> 


0 

< 127> 

23455 

IF N( 8 )THEN PRINT HN*:GOTO 4110 

<040> 

25320 

PRINT"BAS SOLL DAS DENN ?“:GOTO 4110 

< 177> 

23460 

PRINT OKS:FLZ <17)=1:N (8) =31:GOTO 411 


30000 

DATA 0,0,0,0,0,0,0,0,2,0,0,15 

<0B6> 


0 

<000> 

30010 

DATA 2,217,255,15,255,190,31,255 

<006> 

23470 

PRINT KN*:GOTO 4110 

< 1B5> 

30020 

DATA 252,63,255,248,127,255,252 

<042> 

23600 

IF 0 THEN 20850 

<013> 

30030 

DATA 127,255,254,125,255,255,63 

< 133> 

23605 

IF N=.AND <P=49 OR P=48)THEN P=97-P:G 


30040 

DATA 127,199,15,188,224,3,206 

< 166> 


OTO 4000 

<227> 

30050 

DATA 112,0,0,0,0,0,0,0,0,0,0,0 

< 108> 

23608 

IF N=.THEN PRINT WD*:GOTO 4110 

< 167> 

30060 

DATA 0,0,0,0,0,0,0,0,0,0 

<253> 
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30100 

DATA 

0,255,0,7,255,224,31,255 

<211> 


EN SCHATZ GEFUNDEN !" 

<037> 

30101 

DATA 

24B,127,255,254,127,255,254 

<197> 

40030 

IF N(9)=.THEN PRINT"{DOWN>3U HAST EI 


30102 

DATA 

255,255,255,255,255,255,255 

<015> 


N ZEICHEN DES EORSCHERS GE— C3SPACE>B 


30103 

DATA 

129,255,240,129,15,200,66 

<188> 


RÄCHT !” 

< 113> 

30104 

DATA 

19,132,36,33,194,0,67,49 

<035> 

40035 

IF N(17)THEN PRINT"IDOWNlflBER WO IST 


30105 

DATA 

60,140,12,60,48,3,24,192 

<058> 


DER SCHATZ ?" 

<252> 

30106 

DATA 

0, 126,0,0,189,0,0,60,0,0 

< 160> 

40038 

IF N(9)THEN PRINT"tDOWN}UND WO IST E 


30107 

DATA 

60,0,0,36,0,0,102,0 

< 133> 


IN ZEICHEN DES EORSCHERS ?" 

< 17B> 

30110 

DATA 

0 ,0,0,0,0,0,0,0,0,0,0,0,0 

<015> 

40040 

IF N(17>OR N(9)THEN PRINT"t3D0WN,RVS 


30111 

DATA 

0,0,255,255,0,1,128,0,15 

<11B> 


ONTÜISSION NICHT ERFUELLT !!!":GOTO 


30112 

DATA 

240,0,51,248,0,71,248,3,143 

< 175> 


40100 

<087> 

30113 

DATA 

252,7,255,255,255,255,255 

<110> 

40050 

PRINT"C2D0WNJflISSI0N ERFUELLT !!!IDO 


30114 

DATA 

255,127,248,0,16,32,0,127 

< 135> 


WN>" 

<079> 

30115 

DATA 

248,0,0,0,0,0,0,0,0,0,0,0 

< 166> 

40060 

R=18:FOR 1=1 TO 500:PRINT CHRt(R)"lü 


30116 

DATA 

0 ,0,0,0,0 

< 197> 


&<SHIFT-SPACE>filULT_ULI_ELRE.M' ' <!IPV' ; R=1 


40000 

FOR 

=1 TG 1000:NEXT 

<036> 


64—R:NEXT 

<098> 

40010 

PRINT"<CLR>":PRINT"aj BIST WIEDER IM 


40100 

PRINT” I2DOWNJJ3UFHOEREN ?":GOTO 24510 

< 119> 


SICHEREN HUBSCHRAUBER!"; 

< 134> 




40020 

IF N(17)=■ THEN PRINT" {DOWN>ÄJ HAST D 


Listing 

»Inka« (Schluß) 



Wie im Eisen der Fudis... 


Mord! Der Gastgeber eines politischen Kongres¬ 
ses fiel einem Anschlag zu Opfer. Wer war der 
Täter? Klären Sie das Verbrechen auf. 

E in Wort am Anfang. In diesem Sonderheft ist zu diesem 
Adventure kein Listing abgedruckt. Das liegt ganz ein¬ 
fach daran, daß das Programm aus über 90 Einzelteilen 
besteht, die etwa 25 Seiten Listing ergeben würden. Diese 
Tipparbeit wollten wir Ihnen nicht zumuten. Deshalb ist das 
Programm nur auf der Leser-Service-Diskette zu diesem Heft 
erhältlich. 

Das Adventure veralbert auf leise Weise den charakteristi¬ 
schen Stil englischer Kriminalromane, den Agatha Christie 
bis zur Perfektion und viele Roman-Leser bis an den Rand 
der Verzweiflung getrieben hat. In den 20er Jahren des 
20. Jahrhunderts findet in Falmouth in der englischen Graf¬ 
schaft Cornwall eine politische Tagung statt. Die dabei teil¬ 
nehmende Gruppe strebt eine Verlängerung des Pacht¬ 
vertrages der Kronkolonie Hongkong an, der gegen Ende 
dieses Jahrtausends auslaufen soll. Es nehmen folgende 
Personen an der Konferenz teil: 

- Lawrence Templeton-Douglas, der Hausherr; 

- Kriegsveteran Dr. Simon Frank, Vertreter des Unterhauses; 
- Oliver Bell, Duke of Cheeseborough, Vertreter des 
Oberhauses; 

- Cathrine de Vidocq, Vertreterin Frankreichs; 

- Joseph »Santiago« Shulz, amerikanischer »Unternehmer«; 
- Viktor von Stein, Vertreter Deutschlands; 

- Sid Wallace, Agent des amerikanischen FBI; 

- Gerald C. Green, Gärtner; 

- Gung Ho, Koch des Hauses; 

- George Aston-Peacock, Butler. 

Im Laufe der Tagung fällt der Hausherr einem Anschlag 
einer nicht näher zu benennenden chinesischen Unter¬ 
grundgruppe zum Opfer. Um den Fall nicht an die Öffentlich¬ 
keit zu tragen, wurden Sie, Jonathan Edwards, Angehöriger 
des Secret Service, beauftragt, den Täter, der sich unter den 
Konferenzteilnehmern befinden muß, zu enttarnen. Nicht an 
der Konferenz teilnehmende Personen können ausgeschlos¬ 
sen werden, da das Gelände hermetisch abgeriegelt ist. 
Ihnen steht nur ein Handbuch zur Verfügung, das die Finger¬ 
abdrücke aller oben genannten Personen enthält. 

Die Bedienung des Programms wird durch die Belegung 

aatä? 



der Funktionstasten mit oft gebrauchten Befehlen erleich¬ 
tert. 

Fl und F3 dienen zu Diskettenoperationen. So speichert 
Fl einen Spielstand auf Diskette. Ein Spielstand gleichen 
Namens, der sich eventuell auf ihr befindet, wird vorher 
gelöscht. Die Länge des Filenamens darf maximal 10 Zeichen 
umfassen. 

F3 ist das genaue Gegenstück dazu. Hiermit wird ein Spiel¬ 
stand geladen. Dabei ist es zwingend erforderlich, daß sich 
dieser auf derselben Diskettenseite befindet, auf der die Bil¬ 
der und Texte der Räume enthalten sind. 

Taste F5 gibt eine Liste der gültigen Befehle und deren 
Synonyme aus. 

F7 entspricht dem in vielen Adventures verwendeten Be¬ 
fehl »Inventory«. Alle Gegenstände, die der Spieler bei sich 
trägt, werden angezeigt. 

Hier noch ein Tip zu den Gegenständen: es können nicht 
unbegrenzt viele getragen werden, und es ist nicht alles 
Gold, was glänzt. 

RUN/STOP startet das Spiel nach einer erfolgten Sicher¬ 
heitsabfrage neu. Dies ist beispielsweise nötig, wenn Sie in 
eine der wenigen, aber tückischen Fallen des Täters laufen. 
Wird RETURN ohne Eingabe eines Kommandos gedrückt, so 
werden noch einmal Bild und Text des aktuellen Raumes ein¬ 
geladen. 

Das Spiel umfaßt 81 Räume mit eigenem Text und Grafik, 
neun eigenständigen Charakteren und einen Sprachschatz 
von 156 verarbeitbaren Worten. (Olaf Barthel/dm) 
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die Jagd nadi der Bombe 


Versuchen Sie, das teuerste Projekt in der Ge¬ 
schichte der bemannten Raumfahrt vor Sabotage¬ 
akten eines gewinnsüchtigen Geschäftskon¬ 
zerns zu schützen. 

S oeben hebt in Florida das Space Shuttle mit dem euro¬ 
päischen Raumlabor Spacelab ab. Die Mission »D-2« 
beginnt. Alle Vorzeichen sprechen für einen heraus¬ 
ragenden Erfolg dieses Unternehmens. An Bord findet ein 
Experiment statt, das im Falle eines Erfolges die Herstellung 
von Insektenvertilgungsmitteln überflüssig machen würde. 
Dies könnte jedoch den Ruin des marktbeherrschenden 
Konzerns bedeuten. Der Bundesnachrichtendienst (BND) 
verfügt aber über Informationen, nach welchen das Unter¬ 
nehmen einen Sprengsatz an Bord geschmuggelt hat. Sie als 
Spezialagent bekommen nun die Aufgabe übertragen, in das 
Kontrollzentrum dieses Konzerns einzudringen und den 
Countdown bis zur Sprengung zu stoppen. 

Das Ladeprogramm (Listing 1): 

Hier wird der Basic-Start um 2 KByte nach oben verscho¬ 
ben, um später für die Grafikdaten Platz zu schaffen. Da hier¬ 
durch das Ladeprogramm gelöscht wird, muß man dieses vor 
dem ersten Start unbedingt speichern. Außerdem wird hier 
ein Musikprogramm eingelesen, das später interrupt-gesteu¬ 
ert ein Lied von J. S. Bach spielt. Das Unterprogramm, in rei¬ 
ner Maschinensprache geschrieben, arbeitet dreistimmig. 
Die Routine beginnt ab Adresse $C400. Die Daten für die 
drei Stimmen befinden sich in den Speicherbereichen ab 
$C600, SC900 und $CCOO. 

Das Hauptprogramm (Listing 2): 

Zuerst einmal wird das Titelbild ausgegeben, die Musik 
aktiviert und eine Interruptroutine eingelesen. Während man 
nun das Titelbild betrachtet, werden die Grafikdaten eingele¬ 
sen und die Strings initialisiert, durch die die Bilder dargestellt 
werden. Außerdem erhalten diese zu jedem Bild eine kurze 
Information. Ab Zeile 1000 folgen dann Unterprogramme, die 
später die Grafik ausdrucken. Nach 9000 werden noch ein¬ 


mal DATAs eingelesen. Diese dienen zur Erstellung eines 
Rasterzeilen-Interrupts und zur Realisierung des Eingabe- 
Scrollings. Jetzt werden noch die Eingabevokabeln definiert 
und die Hauptschleife ab 10000 gestartet, die die Befehls¬ 
eingabe in zwei Worte zerlegt (Verb und Objekt). Die hierbei 
verwendetet INPUT-Routine findet man ab Zeile 51 000. 

Danach folgt die Auswertung der eingegebenen Befehle. 
Diese nimmt in der Hauptschleife den meisten Raum ein. Ab 
der Zeile 20000 wird das Bild aufgebaut, indem die für die 
Bilder spezifischen Unterprogramme durch ON - GOTO auf¬ 
gerufen werden. 

Die neue INPUT-Routine besteht hauptsächlich aus einer 
Schleife, in der mittels GET-Anweisung die Zeichen von der 
Tastatur eingelesen werden. Der Vorteil der neuen Eingabe 
besteht in der Begrenzung der erlaubten CHR$-Codes. So 
kann man nun die Bildschirmmaske nicht mehr wegscrollen. 

Die Eingaben bestehen normalerweise (außer bei Rich¬ 
tungsangaben etc.) aus zwei Worten: einem Verb (oder son¬ 
stigem Befehlswort) und einem Objekt. Sollten mehr als zwei 
Worte eingegeben werden, so erfolgt eine entsprechende 
Fehlermeldung. 

Das Spiel versteht 26 Wörter. Diese lauten: 

N,0,S,W,H (hoch), R (runter) ZEIT, PUNKTE (die Zeit ergibt 
sich aus der Anzahl der eingegebenen gültigen Befehle) 

NIMM. VERLIERE (das Objekt »ALLES« funktioniert) 

INV (Lv.entur) 

STIRB (beendet das Spiel durch einen RUN/STOP - 
RESTORE 

BETRITT, VERLASSE (das Objekt ist unbedingt anzuge¬ 
ben) 

SAVE, LOAD, LIES, WERTE, GRABE, SCHALTE, ZÜNDE, 
ISS, SCHLIESSE, BETE, DRÜCKE, ÖFFNE sowie noch 
einige unwichtige, die nur einen Kommentar erzeugen. 

Zu beachten wäre noch, daß die Eingabe der Befehle im 
Groß-/Kleinschriftmodus erfolgen muß. Außerdem ist es 
zwingend erforderlich, das Hauptprogramm (Listing 2) unter 
dem Namen »D.2« zu speichern. 

(Steffen Goebbels/dm) 


Listing 1. Das Ladeprogramm zu »Spion 111« 

200 ROKE S32B0,0s POKE 532B1,0:PRINT"<CLR,W 

HITE>"5POKE 53272,23 <180> 

210 PRINT TAB(8>"SPION iUL (JI 2 ZUSSION)“ <195> 

220 PRINT TAB<9)"(DOWN,CYAN>VON STEFFEN £0 

EBBELS“ <043> 

230 PRINT TAB <15>"(DOWN,WHITE><C) 1985“ <237> 

240 PRINT TAB(7)“<BLUE,3D0WN>CA. Iil5 ßlN. 

LADEZEIT." <168> 

250 PRINT" <DOWN,YELLOW>aiTTE LASSEN AIE DI 

E fl-OPPY ANGESCHALTET (DOWN >“ <161> 

260 PRINT"<BLACK>POKE4096,0:POKE44,16sNEW" <19B> 
270 PRINT"T2D0WNJLOAD-CHR*(34)“D.2"CHR*(34 

>“,BC7UP>” <052> 

280 POKE 631,13:POKE 632,13:POKE 633,82:PO 
KE 634,85:POKE 635,78:POKE 636,13:POKE 
198,6 <222> 

900 REM *** SID INITIALISIEREN *** <230> 

910 S=54272:FOR I=S TO S+24:POKE I,0:NEXT <134> 
930 POKE 53245,1:POKE 53246,1:POKE S+5,96: 

POKE S+12,9:P0KE S+19,0 <203> 

940 POKE 53247,1:POKE S+2,0:POKE S+9,255:P 

OKE S+16,0:POKE S+13,140:POKE S+20,240 <0B5> 
950 POKE S+6,100 <0B7> 

999 REM ** MASCHINENPRG FUER MUSIK ** <122> 


1000 DATA 174,255,207,202,142,255,207,240, 
21,174,254,207,202,142,254,207,240,83 
1010 DATA 174,253,207,202,142,253,207,240, 
71,76,49,234,32,66,196,169,0,141,4,21 
2 

1020 DATA 173,250,207,174,251,207,172,252, 
207, 141,1 ,212,142,0,212, 140,255,207 
1030 DATA 234,234,169,33: REM4-WELLENF. S1 
1040 DATA 141,4,212,76,9,196,162,0,189,0,1 
98,157,250,207,232,224,3,208,245,24 
1050 DATA 173,69,196,105,3,141,69,196,144, 
7,174,70,196,232,142,70,196,96,76,167 
1060 DATA 196,32,135,196,169,0,141,11,212, 
173,250,207,174,251,207,172,252,207 
1070 DATA 141,8,212,142,7,212,140,254,207, 
169,65: REM«-WELLENF. S2 

1080 DATA 141,11,212,76,18,196,162,0,189,0 
,201,157,250,207,232,224,3,208,245,24 
1090 DATA 173,138,196,105,3,141,138,196,14 
4,7,174,139,196,232,142,139,196,96 
1100 DATA 32,204,196,169,0,234,141,18,212, 
173,250,207,174,251,207,172,252,207 
1110 DATA 141,15,212,142,14,212,140,253,20 
7,240,40,169,17:REM*-«ELLENF.S3 
1120 DATA 141,18,212,76,49,234,162,0,189,0 


<039> 

<219> 

< 170> 

< 135> 

<237> 

<023> 

<224> 

< 157> 
<067> 

< 129> 
<042> 
<240> 
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Listing 1. (Fortsetzung) 


,204,157,250,207,232,224,3,208',245,24 <012> 
1130 DATA 173,207,196,105,3,141,207,196,14 

4,7,174,208,196,232,142,208,196,96 <131> 

1140 DATA 169,0,141,69,196,141.13B,196,141 

,207,196, 169,198,141,70, 196,169,201 < 191 > 

1150 DATA 141,139,196,169,204,141,208,196, 
169,64,141,255,207,141,254,207,141,25 
3 <0BB> 

1160 FOR 1=50176 TO 50464:READ Q:POKE I,Q: 

NEXTiREM SYS50441 <121> 

1170 DATA 207,76,49,234,120,169,0,141,20,3 

,169,196,141,21,3,88,96 <079> 

1180 REM **** STIMME 1 **** <105> 

2000 DATA 7493,64,6676,64,7493,64,8411,32, 

8911.32.10002.64.8911.128.8411.64 <008> 
2010 DATA 8411,64,10002,64,10002,64,7493,6 

4.8411.64.6676.128.5947.64.5001.64 <063 > 
2020 DATA 6676,64,7493,64,8411,64,8411,64, 

7493,128,0,64,8411,64,6676,64,7493,64 <122> 
2030 DATA 8411,32,8911,32,10002,64,8911,12 

8.8411.64.8411.64.10002.64.10002.64 <212> 
2040 DATA 7493,64,8411,64,6676, 12B,6301,64 

,5001,64,6676,64,7493,64,8411,64 <136 > 

2050 DATA B911,64,8411 ,64,7493,64,6676,64, 

0,0 <171> 

2999 1=50688 <193> 

3000 FDR C=0 TO 91 STEP 2:READ Q:READ Q1:P 

OKE 1+2,Ql: HI = INT(0/256) <195> 

3001 LO=Q— <HI* *256>:POKE I,HI:POKE 1+1,L0:I 

=I+3:NEXT <0B0> 

3010 REM **** STIMME 2 : **** <105> 

3020 DATA 5001,64,5613,64,6301,64,6676,32, 

7493,32,8411,64,6676,64,7493,64,8411 <012> 

3030 DATA 64,6676,64,6301,64,6676,64,6301, 

64.6676.32.6301.32.5613.128.5001.64 <167> 
3040 DATA 6301,64,5001,64,5613,32,6301,32, 


6676,64,6676,64,6301,128,0,64,6301,64 <057> 
3050 DATA 6676,64,6301,32,5613,32,5001,64, 

8411.64.8411.64.7493.64.7072.64.6676 <105> 
3060 DATA 64,6301,64,6676,32,6301,32,5613, 

64,6301,64,6676,32,6301,32,5613,64 <232> 

3070 DATA 5001,64,5001,64,5001,32,5613,32, 

6301,64,6676,64,7072,64,6676,64,6301 <212> 

3080 DATA 64,6676,64,0,0 <109> 

3999 1=51456 <205> 

4000 FOR C=0 TO 107 STEP 2:READ Q:READ Ql: 

POKE 1+2,Q1:HI=INT(Q/256) <214> 

4001 LO=Q—(HI*256):POKE I,HI:POKE I+1,L0 <235> 

4002 I=I+3:NEXT <206> 

4010 REM **** STIMME 3 : **** <121> 

4020 DATA 3338,64,4455,64,4205,32,3764,32, 

3338.64.6676.64.5613.64.6301.64.6676 <129> 
4030 DATA 64,5613,64,4205,32,3746,32,4205, 

32.4455.32.5001.64.4205.64.5613.32 <016> 
4040 DATA 5001,32,4720,64,5001,64,4455,64, 

4205,64,3746,64,3338,32,3746,32,4205 < 228> 

4050 DATA 32,4455,32,5001,128,0,64,4205,64 

,5613,64,5001,32,4455,32,4205,64 <181> 

4060 DATA 3338,64,3746,32,4205,32,4455,32, 

5001,32,5613,64,5613,64,5001,32,4455 <033> 

4070 DATA 32,4205,64,4720,64,5298,64,5613, 

32.5001.32.4720.64.5001.64.5001.32 <149> 
4080 DATA 4455,32,4205,32,4455,32,4205,32, 

3746.32.3338.64.5613.64.5001.32 <153> 

4090 DATA 4455,32,5001,64,3338,64,0,0 <169> 

4999 1=52224 <217> 

5000 FOR C=0 TO 125 STEP 2:READ Q:READ Ql: 

POKE 1+2,Ql:HI=INT(Q/256) <196> 

5001 LO=Q—(HI*256):POKE I,HI:POKE I+l,LO:I 

=1+3:NEXT <04B> 

60000 NEW <191> 

60004 REM (C) 1985 STEFFEN 60EBBELS <0B2> 

60005 REM ALTE HEERSTR.25 <095> 

60006 REM 4179 WEEZE 1 <129> 


Listing 2. Das Hauptprogramm von »Spion III«. 

Bitte unbedingt unter dem Namen »D.2« speichern. 

0 POKE 808,225:POKE 657,128:IF FL=9 THEN 1 
1536 

1 PRINT"<CLR,WHITE>":POKE 53272,23:POKE 53 
280,0:POKE 53281,0:DIM NA*(55):P0KE 5000 
2,0:EN=10 

2 PRINT" {BLUE,UP,SPACE>SPION Jü ( 2 2 flIS 
SION ) VERSION 1.0":DIM XX*(35):DIM BE*( 
32) 

3 PRINT TAB(7) " {YELLOW,3D0WN>2ESI6NER: S.TE 
FFEN SDEBBELS":POKE 54272+24,10:POKE 565 
49,30 

4 PRINT TAB(7>"{DOWN,WHITE}(C) S. i .£.-SOFT 

HEEZE 1985":ZE=180:GOSUB 60000 

5 DATA 120,169,13,141,20,3,169,195,141,21, 
3,88,96,174,252,3,232,142,252,3,224 

6 DATA 40,20B,5,162,0,142,252,3,169,06,157 
,0,216,169,1,157,1,216,76,0,196 

7 FOR 1=49920 TO 49961:READ Q:POKE I,Q:NEX 
T:SYS 49920 

8 DIM B(55):DIM C(55):DATA 6,10,10,14,10,1 
0,12,7,10,10,11,10,12,5,7,10 

9 DATA 14,10,10,9,5,5,2,11,14,10,14,9,3,10 
,10,11,10,9:FOR 1=0 TO 33:READ B(I):NEXT 

10 REM **** DATEN DER LANDSCHAFT **** 

11 DATA 85,247,247,85,223,223,B5,247,247,8 
5,223,223,85,247,247,85,223,223,85,247 

12 DATA 247,85,223,223,60,125,60,60,60,60, 
60,60,60,60,60,60,60,60,125,60 

13 DATA 195,215,215,215,215,215,215,215,21 
5,215,215,215,215,215,215,215,215,215 

14 DATA 215,215,215,215,215,20,85,85,85,84 
,84,84,84,80,80,80,80,64,64,64,64,64 

15 DATA 85,85,85,21,21,21,21,5,5,5,5,1,1,1 
,1,1,85,106,106,111,111,111,111,111 

16 DATA 85,170,170,255,255,255,255,255,85, 
169,169,249,249,249,249,249,111,111,111 

17 DATA 111,109,109,111,111,255,255,255,25 
5,127,255,255,255,249,249,249,249,249,2 
49 

18 DATA 249,249,111,111,111,111,111,111,11 
1,111,255,255,255,255,255,255,255,255 



20 


21 

< 198> 

22 

<180> 

23 


24 

< 197> 

25 

<245> 

26 

<125> 

27 

<219> 

28 

< 130> 

29 

<102> 

30 

< 169> 

31 

<024> 

32 

< 1B9> 

33 

< 132> 

34 

< 1B2> 

35 

<100> 

36 

< 129> 

37 

< 191 > 

38 

<134> 

39 

<004> 

40 

< 121 > 

41 


19 170,170,191,191,191,191,170,170,17 

*i, ^70,190,190, 190, 190, 170,170,170, 170 <137> 

DATA 254,254,254,254,170,170,191,191,19 
1,191,170,255,85,85,190,190,190,190 <092> 

DATA 170,255,85,85,254,254,254,254,170, 
255,85,85, 170,170, 191,191,191,191,191 <031 > 

DATA 191,170,170,255,255,255,255,255,25 

5.170.170.254.254.254.254.254.254 <198> 
DATA 191,191,191,191,191,191,191,191,25 

4.254.254.254.254.254.254.254 <161> 

DATA 191,191,191,189,181,149,170,170,25 
5,255,255,85,85,85,170,170,0,0,0,0,0,0 <018> 

DATA 0,0,254,254,254,126,94,86,170,170, 

85.85.85.85.85.85.85.85 <160> 

DATA 255,85,85,85,255,255,255,85,B7,87, 
93,93,117,117,213,213,213,213,117,117 <157> 

DATA 93,93,87,87,85,85,85,86,90,106,85, 

B5,85,85,170,170,170,170,85,85,85,85 <0B9> 

DATA 170,169,165,149,85,85,85,85,170,10 

6.90.86.85.85.85.85.85.149.165.169.85 <039> 

DATA 85,85,B5,85,B5,87,93,117,213,87,93 
,117,213,85,85,85,85 <202> 

DATA 85,85,85,85,213,117,93,B7,213,117, 

93.87.85.85.85.85 <115> 

DATA 24,24,24,126,126,24,24,24,0,0,1,5, 
5,21,21,21,0,85,85,85,85,85,85,85,0 <008> 

DATA 192,112,92,95,87,87,87,21,21,21,21 
,21,21,21,21,87,87,87,87,87,87,87,87 <015> 

DATA 0,3,5,21,21,85,85,85,0,192,112,92, 

95,87,87,B7,87,87,87,87,87,87,87,84 <252> 

DATA 0,0,1,255,254,63,31,15,0,0,216,240 
,99,247,255,222,15,127,30,56,16,128 <155> 

DATA 128,0,0,0,7,13,36,33,55,15,0,0,128 
,255,255,255,255,255,15,31,31,27,11,11 <126> 

DATA 3,1,206,252,248,240,176,0,0,192,31 
,50,12,63,127,127,255,255,143,191,31 <106> 

DATA 30,254,231,243,249,64,62,31,63,63, 
31,31,15,0,0,128,192,240,248,248,240 <171> 

DATA 127,31,3,3,3,1,1,1,252,254,254,252 
,252,24B,24B,248,7,7,7,7,3,3,3,2,224 <062> 

DATA 224,192,128,128,0,0,0,240,240,224, 
96,0,0,0,0 <067> 

DATA 127,159,167,169,170,170,170,170,25 
5,255,255,255,127,159,167,169,255,255 <007> 
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Listing 2. Hauptprogramm von »Spion III« (Fortsetzung) 

B,106,178,170,170,170,253,253,246,246 <211> 

42 DATA 218,218,106,106,127,127,159,159,16 

7,167,169,169,170,170,170,170,169,167 <036> 

43 DATA 159,127,169,167,159,127,255,255,25 

5,255,106,218,246,253,255,255,255,255 <067> 

44 DATA 170,170,170,170,106.21B,246,253,10 

6,106,218,218,246,246,253,253,169,169 <104> 

45 DATA 167,167,159,159,127,127,170,178,17 


0,170,170,170,170,170 <134> 

46 DATA 170,42,2,0,0,0,8,0,170,170,170,170 

,10,2,0,0,170,170,170,170,178,170,234 <073> 

47 DATA 250,170,170,170,170,170,170,171,17 

5,170,170,170,170,160,128,0,0,170,171 <138> 

48 DATA 128,0,0,0,0,0,0,0,0,0,3,3,15,63,5, 

53,245,245,245,245,245,245,80,85,85 <227> 

49 DATA 85,B5,84,84,84,63,255,255,51,3,0,0 

,0,245,250,234,162,162,160,128,0,84 <219> 


50 DATA 160,160,128,0,0,0,0,170,170,186,18 

7,171,167,173,191,170,170,174,238,234 <163> 

51 DATA 250,250,254,170,170,253,247,223,22 

3,223,117,191,157,183,189,189,189,183 <204> 

52 DATA 149,127,253,247,227,119,247,253,24 


7,126,222,246,254,222,118,254,254 <012> 

60 REM **** SPRITES **** <123> 

61 DATA 0,0,0,0,2,170,0,10,170,0,42,170,2, 

170,170,10,170,170,170,170,170,255 <12B> 

62 DATA 255,255,255,255,255,234,213,B3,234 

,213,67,255,213,3,234,212,3,234,212,3 <097> 

63 DATA 255,208,3,255,192,3,234,0,0,212,0, 

0,212,0,0,208,0,0,192,0,0,0lREM SP.0 <067> 


64 DATA 0,0,0,170,160,0,170,160,0,170,144, 

0,170,144,0,170,80,0,170,80,0,255,80,0 <139> 

65 DATA 255,80,0,171,80,0,171,80,0,255,80, 

0,171,80,0,171,80,0,255,B0,0,255,64,0 <254> 

66 DATA 3,64,0,3,64,0,3,64,0,3,64,0,3,0,0, 

0:REM SP.1 <176> 

67 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,1,84,0,5,85,0,26,165,64 <09B> 

68 DATA 42,169,B0,170,170,80,170,170,80,17 

0,170;80,170,170,80,170,171,80,170,170 <24B> 

69 DATA B0,170,170,80,170,170,80,170,170,8 


0,0:REM SP.2 <130> 

70 DATA 170,170,80,170,170,80,170,170,B0,1 

75,170,80,175,170,80,191,234,80,186 <042> 

71 DATA 234,80,186,234,80,191,234,80,175,1 

70,80,175,170,80,170,170,80,170,170,80 <061> 

72 DATA 170,170,80,170,171,80,170,170,B0,1 

70,170,B0,170,170,80,170,170,64,42,169 <001> 

73 DATA 64,10,165,0,0:REM SP.3 <15B> 

74 DATA 0,0,0,0,0,0,0,0,0,149,80,0,169,85, 

0,171,149,80,171,169,85,171,171,255 <155> 

75 DATA 171,171,255,171,171,255,171,171,25 

5,171,171,255,171,171,255,43,171,255 <067> 

76 DATA 11,171,255,3,171,255,3,171,255,0,1 

71,255,0,43,255,0,11,255,0,3,255,0 <032> 

77 DATA 0,0,0,0,8,0,0,42,0,0,46,0,0,46,0,0 

,42,0,0,8,0,0,42,0,0,42,0,0,170,0,0 <043> 

78 DATA 166,0,0,166,0,1,86,0,1,B6,0,0,170, 
0,0,170,0,0,170,0,0,170,0,0,42,0,0,12,0 <213> 

79 DATA 0,12,0,0:REM SPS <145> 

80 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,42,170,0,90,170,0,90,170 <247> 

81 DATA 2,154,170,10,170,170,42,170,170,17 

1,234,170,255,239,255,3,255,255,0,0,0 <179> 

82 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0:REM SP 6 <159> 


83 DATA 0,40,0,0,40,0,0,168,0,0,168,0,2,16 

0,0,2,160,0,10,160,0,170,172,0,170,188 <020> 

84 DATA 0,170,172,0,170,160,0,170,128,0,17 


0,140,0,170,188,0,234,140,0,255,0,0 <179> 

85 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0cRE 

M SP.7 <028> 

99 REM **************************** <090> 

100 FOR I-204B TO 2303:READ QcPOKE I,Q:NEX 

T:FOR 1-2304 TD 2311:P0KE I,0iNEXT <125> 

101 FOR 1-2312 TO 2887:READ QcPOKE I,Q:NEX 

T <112> 

110 POKE 53270,PEEK(53270>OR 16:P0KE 53282 

,12:POKE 53283,1 <074> 

120 FOR 1=0 TO 511:READ Q:POKE 1+3072,Q:NE 

XT:VI—53248:V-VI:GOSUB 9000 <046> 

130 POKE 2040,48:POKE 2041,49:POKE VI,120: 

POKE VI+2,144:POKE VI+1,110:POKE VI+3, 

110 <109> 

131 POKE VI+28,255:POKE VI+37,6:POKE VI+38 

,11:POKE VI+39, 6 :POKE VI+40,6 <083> 


132 POKE 2042,50:POKE 2043,51:POKE VI+4,16 
0:POKE VI+6,160:POKE VI+5,80:POKE VI+7 

,101 <123> 

133 POKE VI+41,14:POKE VI+42,14:POKE 2044, 

52:PDKE VI+S,238:P0KE VI+9,97:P0KE VI+ 

43,3 <243> 

134 POKE 2045,53: POKE VI + 10, 150: POKE VI + 11 

,110:POKE VI+44,6:POKE 2046,54 <1B3> 

135 POKE 2047,55:POKE VI+45,1:P0KE VI+46,1 

:GOTO 146 <204> 

136 POKE VI+13,110:POKE VI+15,110:POKE VI+ 

21,192:1-370 <152> 

137 I—I—1:F—INT(I/256):8—I-<256*F):H—I—23: 

J — INT(H/256) <091> 

138 K—H—(256*J):POKE VI+12,K:P0KE VI+14.G <033> 

139 IF J-l THEN POKE VI+16,192 <045> 

140 IF J-0 AND F—1 THEN POKE VI+16,128 <239> 

141 IF J-0 AND F—0 THEN POKE VI+16,0 <214> 

142 IF I<24 THEN F-0:G-0:H-0:J-0:K-0:GOTO 

144 <029> 

143 GOTO 137 <0B7> 

144 REM <206> 

145 FOR 1-23 TO 0 STEP-l:POKE VI+14,I:FOR 

E—0 TO 20:NEXT E,I:RETURN <237> 

146 POKE VI+21,0:POKE VI+12,36:POKE VI+14, 

60:POKE VI+13,152:POKE VI+15,152 <180> 

147 POKE VI+16,192 <246> 

148 REM <210> 

000000000000000 ":poke vi+37,ii:poke vi 
+38,12 <250> 

210 BS- " A AAA AAAAAA A AAA AAAAAA AAAAAA AAAA AAAA 

AAAAAA" <233> 

220 CS-" BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

BBBBBB ": AS-AS+BS+CS+AS+BS+CS < 201 > 

230 BS-"{BROWNJCCCC{ORANGE>00{BROWNJCCCC{O 
RANGE > @0{BROWN JCCCC{ORANGE > 00{BROWN >CC 
CC{ORANGE >00{BROWN JCCCC{ORANGE>00{BROW 
N JCCCC{ORANGE > @0{BROWN JCCCC“ <036> 

240 CS=”DDDD{ORANGE JAA{BROWN JDDDD{ORANGE JA 
A{BROWNJDDDD{ORANGE JAA{BROWN JDDDD{ORAN 
GE JAA{BROWNJDDDD{ORANGE JAA{BROWN JDDDD{ 

CP A NGEJAA{BROWNJDDDD":BS-BS+CS <255> 

250 L-* 1 {GREY 3 JEEEEEEEEEEEEEEEEEEEEEEEEEE 

EEEEEEEEEEEEEE" . <127> 

260 DS- n FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFF" <032> 

270 ES-"GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 

GGGGGG”:CS-CS+DS+DS+DS+DS+ES < 201> 

280 DS—"LMN{DOWN,3LEFTJOPQ{DOWN,3LEFTJRSQ" <102> 
290 ES—"{ORANGEJTUV{DOWN,3LEFTJWXY" <174> 

300 FS-"{ORANGEJZCCCCCCCCCf{DOWN,11LEFTJJS 

SSSSSSSS t{DOWN,11LEFT J +! !!!!!!!!#" <191> 

310 GS-"{ORANGE JZCCCECf{DOWN,7LEFTJ JSSSSS t 

{DOWN.7LEFTJ+!!!!!#" <246> 

320 HS-"{ORANGEJZCCf{DOWN,4LEFTJJSST{DOWN, 

4LEFTJ JSSt" <237> 

330 IS-"{UP,2RIGHTJ"+ES+"{UP,2RIGHT >"+ES+" 

{UP , 2RIGHT J +ES+“ {UP , 2RI GHT J ” +ES+" {UP , 

2RIGHT J *+ES+"{UP,2RIGHT J"+ES+"{UP,2RIG 
HTJ-+ES <204> 

340 JS—"{GREY 1JSS{DOWN,2LEFTJSS{DOWN,2LEF 
T JSS{DOWN,2LEFTJSS{DOWN,2LEFTJH{SPACE, 

DOWN,2LEFT JI ":KS-"{GREY 1JSS{DOWN,2LE 
FT JSS{DOWN,2LEFT JSS{DOWN,2LEFTJSS{DOWN 
,2LEFT,SPACE JJ{DOWN,2LEFT,SPACE JK" <141> 

350 LS-"{HOME,6DOWN,ORANGE JS-.SS-.SS-.SS-. 

SS-.SS0/SS0/SS0/SS0/SS0/S" <247> 

360 MS- " 7.XXXXXXXXXXXXXXXXXXXXXXXXXXX7.7.7.XXX 

XXXXXX" <16B> 

370 NS- " ssssssssssssssssssssssssssssssssss 

SSSSSS" <187> 

371 OS="SSS<))))*SSS<> >))*SSS+>))),SSS+>)> 

),SSS+" <161> 

3B0 LS-LS+MS+NS+NS+OS <167> 

390 MS- " SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SSSSSS":LS-LS+"{ORANGE J"+MS < 074 > 

400 NS-"{HOME JSSS{DOWN,3LEFTJSSS{DOWN,3LEF 
T > SSS{DOWN,3LEFTJSSS{DOWN,3LEFTJSSS{DO 

WN,3LEFTJSSS{DOWN,3LEFT,DOWN JS" <098> 

401 OS-"{HOME,37RIGHT JSSS{DOWN,3LEFTJSSS{D 
OWN,3LEFTJSSS{DOWN,3LEFTJSSS{DOWN,3LEF 

TJSSS" <177> 

402 PS-"{DOWN,3LEFTJSSS{2D0WN,LEFTJS":OS—O 

S+PS < 151 > 

403 WS—"{40SPACE>" <010> 

404 TIS—" {HOME,5D0WN,BRIGHT, BROWN J HX.Y. {DOWN 
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,3LEFT,2SPACE}S{DOWN,3LEFT,2SPACE >S{Dü 

WN, 3LEFT , 3SPACE, DOWN, 3LEFT, SPACE J “ < 113 > 

405 T2*="{HOME,5D0WN,29RIBHT,BROWN >Z±={DOW 
N,3LEFT JS{2SPACE,DOWN,3LEFT>S{2SPACE,D 

OWN,3LEFT,3SPACE,DOWN,3LEFT,3SPACE >" <157 > 

406 T3*="{HOME,5D0WN,18RIGHT,LIG.GREENJZCC 

f{D0WN,4LEFT}}{2SPACE}t" <034> 

407 T4*=”{HOME,6D0WN,ORANGE,10RIGHT>^l*{DO 

WN,3LEFT ,SHIFT—SPACEJTiT" <156> 

408 T5*="{HOME,14RIGHT,5D0WN,ORANGE ITBSIDO 

WN,3LEFT JTH?" <232> 

410 REM *** NACHRICHTEN : *** <252> 

411 NA* ( 0 ) = "MORDWALI-KEINE SESONDERHEITE 

N." <253> 

412 NA* <1)“"STADTPARK.SIN BLAETZCHEN ZUM V 
ERWEILEN. ":NA*(2)=NA*(1) sNA*( 8 )-NA*< 1) <065> 

413 NA*(9)=NA*(1):NA*(3)-NA*<0) :NA*(4)-"JJE 

R SRIEDHOF...WIE GRUSELIG." <173> 

414 NA*(5)=NA*(0)sNA*( 6 )-"ENDE DES BDRDWAL 

LS.ANFANG EINER BASSAGE":C( 6)=8 <107> 

415 NA*(7)-"BER BESTWALL-DIE HAUPTSTRASSE 

DER STADT":NA* (14)“NA*(7) <195> 

416 NA*(21)=NA*(7):NA*( 10 )="aiE ÄINGSTRASS 

E.•.FREI FUER ANLIEGER." <069> 

417 NA*U2)=NA*(10>:NA*(13)“"SINE OJSSGAEN 

GERPASSAGE..." <149 > 

418 NA* ( 15> “NA* < 10) s NA* < 16) “"IORWEG ZUR £A 

RALLELSTRASSE.":C(34>=16 <161> 

419 NA*(17)“NA* <10):NA*(18)“NA*(10)s NA* <19 

> =NA*(10):NA*(20)=NA*(13) <025> 

420 NA*( 22 )-"aAS SNDE DER SCHILLERSTRASSE. 

" <080> 

421 NA*(23)=NA*(16):NA*(24)“"SIE SCHILLERS 

TRASSE...” <080 > 

422 NA*(25 >=NA*(24):NA*(26)=NA*<24):NA*(27 

>= "ANFANG EINER FJJSSG AENGERP ASSAGE“ <203> 

423 NA*(28)="WESTLICHE INDUSTRIESTRASSE":N 

A*(29)“"INDUSTRIESTRASSE" <0B2> 

424 NA*(31)=NA*(29):NA*(32)“"QESTLICHE IND 

USTRIESTRASSE." <1B1> 

425 NA*(33)="flAS SNDE DER iNDUSTRIESTRASSE 

<124> 


500 PRINT"(CLR}“:POKE 631,13:POKE 198,1 <205> 

510 SYS 49152:POKE 50000,B(A):POKE 50001,C 
(A):GOSUB 1000:PRINT"{5D0WN}”:GOTO 100 
08) <233> 

1000 REM BILD1 <004> 

1001 PRINT"{HOME>"A* <061> 

1002 PRINT"{HOME >"I*:PRINT" {DOWN,2RIGHT,GR 
EY 2 >"D*"{2UP,3RIGHT >"E*"{UP,5RIGHT >" 

F*"{2UP,RIGHT >"H*"{2UP,RIGHT>"G*;L* <132> 

1003 RETURN <043> 

1004 REM BILD2 <137> 

1005 PRINT"{HOME>"A* 5 "{HOME}"I*;"{H0ME.4D0 

WNJ-I*:PRINT"{2UP,LIG.GREEN,UP,2RIGHT 
>”D*"{2UP,LIG.BLUE,7RIGHT}"D*jL* <192> 

1006 RETURN <046> 

1007 REM BILD3 <012> 

100B PRINT"{HOME>"A*"{HOME}"IPFINT TAB(10) 

"{3UPVJ*: PRINT"{HOME ( 2RIGHT>"E*"{HOM 
E.2RIQHT,3DQWN>"D* _ <0B6> 

1009 PRINT TAB(15)"{3UP>"F*"{2UP,RIGHT}"F* 

" {2UP.RIGHT>Z {DOWN,LEFT} 1 {DOWN,LEFT>*- 

" <056> 

1010 PRINT L*:POKE 828,15 <120> 

1011 RETURN <051> 

1012 REM BILD4 <146> 

1013 PRINT"{HOME,GREY 1>"jM*;M*;M*jW*;"{WH 

ITE}"B*;L*:POKE B28,13 <005> 

1015 RETURN:REM BILD5: <086> 

1016 PRINT"{HOME,LIG.BLUE}" 5 C* 5 L*:PRINT"(H 
OME,3D0WN,RIGHT,LIG.GREEN,3RIGHT}"H*: 

POKE 828,0:RETURN <057> 

1017 REM BILD 6 <152> 

1018 PRINT"<HOME}"A*;L*;N* <242> 

1019 PRINT"{HOME,UP,4RIGHT}"E*"{UP,BRIGHT} 

"E*"{UP,3RIGHT}"E*"{UP,7RIGHT}"E* <1B7> 

1020 PRINT"{DOWN,4RIGHT,GREY 3}“D*”{2UP,8R 
IGHT}"E*"{UP.2RIGHT,LIG.GREEN,RIGHT}" 

D*"{2UP,7RIGHT}"E*:RETURN <19B> 

1021 REM BILD 7 <028> 

1022 PRINT"{H0ME}"A*;L*;0*j"{HOME}“I*;"{HO 

ME,4D0WN}”I*:RETURN <058> 

1023 REM BILD 8 <159> 


426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 


450 

460 

461 

462 

463 


NA*(34)“"SRIEDHOF...SRABSTEINE MIT INS 10^-r PRINT" {HOME, LIG. BLUE}"C*; L*; " {HOME, LI 

CHRIFTEN." <2i6> G.BLUE,3RIGHT}@@@@@{DOWN.5LEFT >AAAAA{ 


NA*(0)“"SIN iEBENSMITTELSESCHAEFT(IADE 
N)NA*(35)=“IM IEBENSMITTELGESCHAEFT" <073> 
C(35)=4:NA*(11)=“AEINE HOHNUNG.":NA*(3 
6 )="IM INNEREN..." <183> 

NA*(30)="3DR S DER CHEMIEWERKE (£ABRIK 
)":C(36)=96 <05B> 

NA*(37)="SINE LEERE .LAGERHALLE. ": B (37) 

=6:C(38)=2 <111> 

NA*(38)=NA*(37):NA*(43)=NA*(38):NA*(44 
)=NA*(38):NA*(45)=NA*(38):C(43)“128 <055> 

B(38)=8:B(43)=2:B(44)=11:B(45)=8 <015> 

NA*(37)="BUSGANG : U3R fl (SAFE.>":NA*( 

38> ="BUSGANG : IDR S" <110> 

NA*(42)=“SIN FEUCHTER,DUNKLER SJNNEL.“ 

:B(42)=36 <147> 

NA*(39)=“SIN BOGENGANG...“:NA*(40)=NA* 

(39):NA*(41)=NA*(39):NA*(46)=NA*(39) <115> 

NA*(47)="SAS «CNTROLLZENTRUM.(SCHALTPU 
LT, JtNOPF) " < 132> 

NA*(48)=NA*(39):NA*(53)=NA*(39):NA*(55 
)“NA*(39) <046> 

NA*(54)-"SINE GEHEIMNISSVOLLE HIER...“ 

: B(39)—6:B(40) = 10:B(41)=12:B(46)=5 <077> 

B (47) =4: B (4B) =5: B (53) =3: B (54) =10: B (55) 

=9:NA*(39)=NA*(39)+" (BLAUER ANOPF)" <115> 

TN*="{HOME,4D0WN,3RIGHT,ORANGE}SSSSSSS 
SSS{DOWN,10LEFT,LIG.RED}SSSSSSSSSS{DOW 
N,10LEFT,GREY 3}SSSSSSSSSS" <160> 

TP*="{HOME,WHITE,21DOWN}" < 225> 

TQ*="{HOME,2RIGHT,BROWN}S{DOWN,LEFT}S{ 

DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DO 
WN,LEFT)S{DOWN,LEFT}S{DOWN,LEFT)S{DOWN 
,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S":TN*=T 
N*+TQ*+TP*:TB*="" <214> 

PRINT TAB(30)"{WHITE}RETURN...":POKE 1 
98,0:WAIT 198,1:P0KE 198,0 <031> 

PRINT"{CLR,DOWN,WHITEIBDECHTEN SIE EIN 
{SPACE,CYAN,RVSON}A{RVOFF.WHITEILTES S 
PIEL FORT-“ <015> 

PRINT"SETZEN, ODER EIN{SPACE,CYAN,RVSO 
N}N{RVOFF,WHITE}EUES BEGINNEN ?":A=0 <221> 

GET X*:IF X*<>"A"AND X*<>"N"THEN 462 <167> 

IF X*="A"THEN GOTO 11535 <192> 


DOWN,5LEFT >BBBBB{DOWN,5LEFT}@B@@e{DOW 
N,5LEFT}AAAAA{DOWN} " j <224> 

1025 PRINT"{5LEFT}BBBBB"(N*:RETURN <000> 

1026 REM BILD 9 <036> 

1027 PRINT"{HOME}"A*jL*:PRINT"{HOME,32RIGH 

T}"K* <194> 

1028 PRINT“{HOME,DOWN,RIGHT,DOWN,GREY 3,DO 
WN}"D*"{3RIGHT,2UP}"E*"{3RIGHT,UP}"G* 

"{2UP,RIGHT}"H*:RETURN: <192> 

1029 REM BILD 10 <083> 

1030 PRINT“{HOME}"A* 5 "{LIG.GREEN }"5 <005> 

1040 PRINT"{BROWN}******-.**************** 

*•******0/******"; <236> 

1050 PRINT"****-.*******&************•***# 

***0 /****" 5 <129> 

1060 PRINT“**-.********&**************•*** 

*****0/**"j <014> 

1070 PRINT"-.*********&****************•** 

*******0 /" 5 <137> 

10B0 PRINT"**********&****************** • * 

*********":RETURN <063> 

1081 REM BILD11 (FRIEDHOF) <115> 

1090 GOSUB 1013:PRINT"{HOME}":PRINT TAB(17 
)"{DOWN}1{4SPACE}1{DOWN,5LEFT,4SPACE, 

DOWN,4LEFT,4SPACE}":RETURN < 255> 

1100 REM BILD 12 <156> 

1110 PRINT"{HOME,GREY 1}“M*;M*;M*|W*;W*}W* 

5 W*;W* 5 W*;W* 5 W*:WW*="{ORANGE}234{DOWN 
,3LEFT}5*6{DOWN,3LEFT}5*9" <108 > 

1120 WX*="(ORANGE}78{DOWN,2LEFT}*9":PRINT" 

(HOME,4D0WN}"WX*"(DOWN}"WW*"(UP}"WW*" 

(2UP}"WX*"(4RIGHT,2UP}"WW*"(UP,2RIGHT 
}"WW*; <065> 

1130 PRINT"(2UP,3RIGHT}"WW*"{4UP,RIGHT}"WX 
*"(DOWN,2RIGHT,DOWN}"WW*"{UP,6LEFT,2U 
P}"WX*"{RIGHT,UP,LEFT,2UP,LEFT,RIGHT} 

"WW* <169> 

1135 IF PEEK(50000)AND 16 THEN PRINT T4* <146> 

1140 POKE 828,13:RETURN <073> 

1200 REM BILD12 <000> 

1210 PRINT"(HOME,BROWN}IASSSSSSSSSSSSSSSSS 

SSSSSSSSSSSSSSSSSSSiB" ; <045 > 

1220 PRINT"JÜÜ5SSSSSSSSSSSSSSSSSSSSSSSSSSS 
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Listing 2. Das Hauptprogramm von »Spion III« (Fortsetzung) 


SBBSS LnVV " ; 

1230 PR I NT " V-V-V-VJ-K5 SS5BSSSSSSSSSSBSSSSSSSSS 
sss tnv.vv.v " j 

1240 PRINT" y-»-V-V-V-V-J-HB SSSSSSSH<CVAN,SPACE>: ; 
< = > <BRQWN > OSSSSSSSS Lnvvvvvv " ; 

1250 PRiNT-^iüüüüüüiCLiG. red jeeeeeeeey {cyan 
,space>?* juxlig.red jy.eeeeeee ayyyyyyy 
•ü": 

1260 PRINT" .V-V-V-V-V-V-V-VA AAAAAAA.V.{CYAN,2SPACE>£ 
I£f {LIG ■ RED 1VAAAA AAAA VXV V V V-VV " : 

1270 PRINT" .V-V-V-V-V-V-V-VB BBBBBBBVTCYAN,2SPACE >£ 
ti I (L IG ■ RED > yBBBBBBBB y.W VW VW ; 

1290 PR I NT " V-V-V-VXVT LIG . GREEN JÜSSSSSSSSSIICY 
AN , 6SPACE, LIG ■ GREEN J.USSSSSSSS JLSyyyyyy 
" 5 

1290 PRINT" y.V.V-V-P-BS SSBSSSSSSSSSSSSSSBSSSSSS 
SBS Jtay.vy.v. "; 

1291 PRINT" y-V-P-BS SSSSSSSSBSSSSBSSSSBSBSBBBB 

sssss julv.v. "; 

1292 PRINT"S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSÄS"5:POKE 82B,6:P0KE 53283,15 

1295 POKE VI+21,195iRETURN 

1300 REM BILD 13 

1310 PRINT"{HOME.ORANGE>SSSSS{BROWNJJKBBSS 
SSSSSSSSSSSSSSSSSSSSSSLfl{ORANGEJSSSSS 
"» 

1320 PR I NT {ORANGE >SSSSS {BROWN T .V.VJ.KS SSSSSS 
SSSSSSSSSSSSSSS .Lny-V. {ORANGE >SSSSS "; 

1330 PRINT" {ORANGE JSSSSS {BROWNJ YYVyj «S SSSS 
sssssssssssss Lnvyyy. {orange jsssbs ■■ ; 

1340 PRINT" {ORANGE>SSSSS{BROWN> vvy v.vV.J US SS 
sssssssssss -twyyyyvy {orange jbssss ■■ ; 
1350 print" sssss y.v_vyy.vy_v* ************* vvv v 
yyyys ssss"; 

1360 PRINT"SSSSSvyyvyi>vv*#************yvvy 
yyyys ssss"; 

1370 PR I NT " SSSSS V-YV V V V V V* **«««*«**«*** V V V V 
yyyys ssss"; 

1380 PRINT”SSSSSÄ3ÜIVJÜi{LIG.GREEN>£aSSSSSSS 

1390 PRINT"SSSSS{LIG.GREENJ VVVVPBB BSBSBBBB 
sssssssss iLsyyyy {orange >sbsss" ; 

1391 PRINT"SSSSS{LIG.GREEN T W PBS SSSSSBSSSS 
SSSSSSSSSSS H.Syy {ORANGE JSSSSS" ; 

1392 PRINT"SSSSS{LIG.GREENJPBSSSSSSSRSSSSR 
SSSSSSSSSSSSSÄS{ORANGEJSSSSS";:POKE 8 
28,5iPOKE 53283,15 

1394 IF(PEEK(50000)AND l)OR A=54 THEN PRIN 
T T3* 

1395 IF PEEK(50000)AND 2 THEN PRINT T2* 

1396 IF PEEK(50000)AND 8 THEN PRINT TI* 

1397 IF A-35 THEN PRINT Tl*:POKE VI+21,208 

1398 IF A-36 THEN PRINT TI*:POKE VI+21,211 

1400 IF A=39 THEN PRINT T5* 

1401 IF A-45 THEN POKE VI+21,195 

1402 IF A-37 THEN POKE VI+21,204 

1403 IF A—38 THEN POKE VI+21,208 

1404 IF A-46 THEN POKE VI+21,224 

1410 RETURN 

1500 PRINT"{HOMEJ ";:FOR 1-0 TO 10:PRINT"{O 
RANGEJ******************************* 
*********"»:NEXT 

1510 POKE 532B2,11:RETURN 

9000 DATA 120,169,31,141,20,3,169,192,141, 
21,3,173,17,208,41,127,141,17,208,169 

9010 DATA 1B6,141,18,208,169,129,141,26,20 
8,88,96,173,25,208,141,25,208,48,7,17 
3 

9020 DATA 13,220,88,76,0,196,173,84,195,20 
1,6,240,24:REM+LAENGE 1.UNTERPRG.52 

9040 DATA 169,6,141,32,208,141,33,208,141, 
84,195,169,1,141,1B,208 

9041 DATA 169,23,141,24,208,76,188,254 

9090 DATA 169,0,141,32,20B,141,84,195,169, 
145,141,18,208 

9091 DATA 169,19,141,24,208,173,60,3,141,3 
3,208,76,1B8,254 

9210 DATA 120,169,49,141,20,3,169,234,141, 

21.3.169.240.141.26.208.88.96 

9220 DATA 162,0, 189,208,6, 157,16B,6,232,22 
4,240,208,245,169,21,133,214,169,0 

9230 DATA 133,211,162,0,169,32,157,112,7,2 

32.224.40.208.248.96 

9300 FOR 1-49152 TO 49273:READ Q:POKE I,Q: 
NEXT 


<018> 

< 197> 

< 172> 

< 159> 
<250> 
<049> 

< 165> 

< 153> 
<242> 

<080> 

< 197> 

< 103> 

<192> 
<017> 
<137> 
<051 > 
<004> 
<014> 
<024> 
<015> 
<024> 
<216> 


<209> 

<118> 

<223> 

<063> 

< 198> 
< 101 > 
<162> 
<216> 

< 175> 
<249> 

< 147> 

< 19B> 


<056> 
< 162> 

< 119> 


<091 > 
<03B> 

< 178> 
<030> 

<096> 

< 146> 
<071 > 
<075> 
<207> 
<129> 


9310 FOR 1-49408 TO 49441:READ Q:POKE I,Q: 

NEXT <147> 

9400 DATA"5CHLUESSEL","SPRENGSATZ","iEBENS 

MITTEL" , ".ZEITUNG" , "SCHAUFEL" <252> 

9410 DATA"SELD“ , "IASCHENLAMPE" , "2ATTERIE" <033> 
9420 FOR 1-0 TO 7:OB(I)-2TI:NEXT <053> 

9500 FOR 1-0 TO 7:READ OB*(I):NEXT <175> 

9600 DATA"NIMM "."VERLIERE ","INV “, "JtNVEN 

TUR "."GRABE “."BETE "."BETRITT ” <022> 

9610 DATA“VERLASSE “,"ISS ","OEFFNE ","SPR 

ENGE "."DRUECKE "."LIES “,"N ","0 " <064> 

9620 DATA"S ","W ","H “,"R "."SCHLIESSE ", 

"D 2","D2","22","2 2","1968","1970" <036> 

9630 DATA "WARTE ", ".PJJNKTE "."ZEIT " , "MOHNU 

NG","iADEN“,“£ABRIK”,"£RIEDHOF" <0B4> 

9640 FOR 1-0 TO 32:READ BE*(I)INEXT.RETURN <241> 
10000 X*—"":Y*—"":Z*—“":SYS 49408:GOSUB 51 

000 <104> 

10010 SYS 4940B:L-LEN(X*):I=0:FL-0 <19B> 

10020 1=1+1:IF MID*(X*,I,1)—" "THEN Y*=LEF 
T*(X*,I):Z*=MID*(X*,1+1,L)1GOTO 1003 
2 <145> 

10030 IF I<=LEN(X*)THEN 10020 <120> 

10031 Y*=X*+" " <253> 

10032 L—LEN(Z*):1—0 <135> 

10033 I-I+l.IF MID*(Z*,I,1>—" "THEN PRINT" 

** MUR 2 MORTE BENUTZEN **":Y*-"":FL 

=3 <024> 

10034 IF I<—LEN(Z*)AND FL-0 THEN 10033 <228> 

10035 IF XX*(0)—CHR*(13)THEN FL-3 <097> 

10040 IF Y*=BE*(13)AND(PEEK(50000)AND 1)TH 

EN A=A—7:FL—1 <170> 

10041 IF Y*=BE*(14)AND(PEEK(50000)AND 2)TH 

EN A—A+1:FL—1 <113> 

10042 IF Y*=BE*(15)AND(PEEK(50000)AND 4)TH 

EN A—A+7:FL—1 <127> 

10043 IF Y*=BE*(16)AND(PEEK(50000)AND 8)TH 

EN A=A—1:FL=1 <201> 

10044 IF Y*=BE*(18)AND(PEEK(50000)AND 16)T 

HEN A=42:FL—1 <225> 

10045 IF Y*=BE*(17)AND(PEEK(50000)AND 32)T 

HEN A=34:FL=1 <148> 

10046 (X*="N"OR X*="S"OR X*="W"OR X*="0" 

)AND FL—0 THEN PRINT"MEG IST VERSPER 

RT“:FL—3 <138> 

10047 IF(X*—"H"OR X*—"R")AND FL-0 THEN PRI 

NT"HEG IST VERSPERRT":FL-3 <062> 

10048 IF A—49 THEN A=39:SYS 49408:PRINT"fll 
NTER MIR FAELLT DER XUNNEL EIN...":S 

YS 49408 <250> 

10050 REM <206> 

10060 IF Y*<>BE*(2)AND Y*<>BE*(3)THEN 1010 

0 <207> 

10061 PRINT"jEDLGENDE 2INGE FUEHRE JCH MIT 

MIR:":SYS 49408 <019> 

10062 FOR 1=0 TO 7:IF PEEK(50002)AND OB(I> 

THEN PRINT OB*(I):SYS 4940B:GOSUB 10 

0B0 <089> 

10063 NEXT <167> 

10064 IF(PEEK(50002))-0 THEN PRINT"iCH BIN 

ARM WIE EINE &IRCHENMAUS." <030> 

10065 FL=3 <171> 

10071 GOTO 10090 <195> 

10080 POKE 19B.0.WAIT 198,1:P0KE 19B.0.RET 

URN <234> 

10090 FL-3 <196> 

laiija :cf v*“"toete -or y*-”zerstoere "then 

'' v FL*"? < 194> 

10101 ZF Y*—BE*(5)THEN PRINT"VIELLEICHT WI 

RO DiViURCH DAS HETTER": FL—9 <014> 

10102 rF FL—9 THEN FL-3:SYS 4940B:PRINT"BE 
S3ER. ABER ICH GLAUBS' KAUM.“:WE=1 <157> 

10403 PEM <003> 

10104 IF FL—9 THEN PRINT"SENKEN SIE AN DAS 

STRAFGESETZBUCH.":FL-3 <045> 

10110 IF Y*< >BE*(6)THEN 10200 <035> 

10111 IF Z*—BE*(32)AND A-4 THEN A-34:FL-1: <101> 

10112 IF Z*—BE* (32) AND FLOl THEN PRINT“HD 

SOLL HIER EIN "BE*(32>" SEIN PRINT” 

:FL—1 <200> 

10120 IF Z*=BE*(30)AND A-0 THEN A-35.FL-1 <169> 

10121 IF Z*—BE* (30) AND FLOl THEN PRINT"2A 

S IST HIER NICHT.":FL-3 <127> 

10130 IF Z*=BE*(29)AND A-ll THEN A=36:FL=1 <134> 

10131 IF Z*—BE*(29)AND FLOl THEN PRINT"2A 

S IST HIER NICHT.":FL=1 <189> 

10140 IF Z*—BE*(31)AND(A—29 OR A—30)THEN A 
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=37:FL=1 

<204> 

10720 

IF Z*< >QB*(6)THEN PRINT"AAS KANN ICH 


10141 

IF Z*=BE*(31)AND FL-0 THEN PRINT"ÜIE 



NICHT ANSCHALTEN..."sFL-3:GOTO 1080 



R IST KEIN SINBANG...":FL=3 

< 179> 


0 

<099> 

10199 

IF FL=0 THEN PRINT"SAS KANN ICH NICH 


10730 

IF(PEEK(50002)AND 64)THEN 10740 

<014> 


T BETRETEN !":FL=3 

<235> 

10731 

PRINT"ICH HABE KEINE "OB*(6)sFL-3:BO 


10200 

REM 

<100> 


TO 10800 

<062> 

10210 

IF Y*< >BE*(7> THEN 10300 

< 144> 

10740 

IF(PEEK(50002)AND 12B)THEN 10750 

<150> 

10211 

IF Z*-BE*(32)AND A=34 THEN A-4:FL-1: 

<231 > 

10741 

PRINT"JCH BRAUCHE EINE "OB*(7)sFL-3s 


10212 

IF Z*=BE*(32)AND FLOl THEN PRINT"HO 



GOTO 10800 

<112> 


SOLL HIER EIN "BE*(32)" SEIN ?":FL= 


10750 

FL—1:LA—1 

<058> 


1 

<245> 

10800 

IF A—42 AND LA-0 THEN 10810 

<066> 

10220 

IF Z*=BE*(30)AND A=35 THEN A-0:FL-1 

< 145> 

10801 

GOTO 10890 

< 164> 

10221 

IF Z*-BE*(30)AND FL=0 THEN PRINT"ICH 


10 B10 

SYS 49408s PRINT"ICH BETRETE EINEN IU 



BIN NICHT DARIN.":FL-3 

<110> 


NNEI-"sFOR 1-0 TO 1000:NEXT 

<041 > 

10230 

IF Z*-BE*(29)AND A=36 THEN A=11:FL=1 

< 117> 

10820 

SYS 4940B: PRINT"ICH KANN LEIDER WEGE 


10231 

IF Z*=BE*(29)AND FL=0 THEN PR INT ".ICH 



N DER DUNKELHEIT":SYS 49408 

<034> 


BIN NICHT DARIN. n sFL=3 

< 1BB> 

10B30 

PRINT"NICHTS SEHEN-ICH STOSSE MIC 


10240 

IF Z*=BE*(31)AND(A=37 OR A—38) THEN A 



H UND ":SYS 49408 

<047> 


“29 s FL=1 

<097> 

10840 

PR I NT " VERBLUTE.. . APjWl.ttrtJ.MW" : GOTO 6 


10241 

IF Z*=BE*(31)AND FL“0 THEN PRINT"HIE 



0110 

<110> 


SOLL ICH DAS VERLASSEN ?“lFL=3 

< 1B6> 

10890 

IF HU—1 OR ZE>150 THEN 10900 

< 141 > 

10299 

IF FL-0 THEN PRINT"IjAS KANN ICH NICH 


10891 

SYS 49408:PRINT"ICH HABE SCHON SEIT 



T VERLASSEN !'• s FL=3 

<179> 


IAGEN NICHTS MEHR “sSYS 49408 

<026> 

10300 

IF Y*OBE*(12)THEN 10400 

<033> 

10892 

PRINT"GEBESSEN ODER GETRUNKEN. ICH H 


10310 

IF(Z*="INSCHRIFT"OR Z*="INSCHRIFTEN“ 



ABE" s SYS 4940B 

< 183> 


)AND A=34 THEN FL=9 

<223> 

10893 

PRINT"KEINE iUST MIT LEEREM JAUCH ZU 


10320 

IF FL=9 THEN PRINT"£fl£XB SSI fUTCm 



ARBEITEN":GOTO 60110 

<224> 


.TJUIRJI_" s 

<027> 

10900 

IF Y*—BE*(26)THEN ZE-ZE-10:FL-1 

< 108> 

10330 

IF FL=9 THEN SYS 49408sPRINT"flNDRE* 


10910 

IF Y*—BE*(11)AND A<>47 AND A<>39 THE 



HOLL"s SYS 49408s PRINT"* "BE*(24)" + . 



N PRINT"ICH SEHE HIER KEINEN INOPF": 



."s FL=3 

< 176> 


FL-3 

<189> 

10400 

I=0sIF Y*< >BE*(0)AND Y*<>"NEHME "THE 


10920 

IF Y*=BE* ( 11) AND A-47 THEN 10930 

< 134> 


N 10500 

<016> 

10925 

IF Y*=BE*(11)AND A-39 THEN 10960 

<079> 

10401 

IF Z*»OB*(2)AND PEEK(50001)AND 4 AND 


10926 

GOTO 10990 

<065> 


BE=0 THEN PRINT"iEIN £ELD...":FL-3: 


10930 

SYS 49408:PRINT"ICH SELBST HABE DEN 



BDTO 10500 

<209> 


.ZUENDMECHANISMUS":SYS 49408 

< 106> 

10402 

IF Z*=OB* (I) THEN 10450 

< 187> 

10940 

PRINT"IM SPACE SHUTTLE AKTIVIERT(HDH 


10410 

I=I+lsIF I<B THEN 10401 

<010> 


ER WISSEN":SYS 49408 

<223> 

10420 

FL=4s60T0 10470 

<159> 

10950 

PRINT"SIE,DASS ICH EIN BDPPELAGENT B 


10450 

IF PEEK(50001)AND OB(I)THEN C(A)=C(A 



IN ?":GOTO 60110 

<067> 


)-OB(I)sPOKE 50002,PEEK(50002)+OB(I) 


10960 

SYS 49408:PRINT"ICH HOERE IN DER SER 



:FL=1 

<05B> 


NE EINE SXPLOSION":SYS 49408: 

<226> 

10460 

IF FL=0 THEN PRINT" ICH SEHE DAS HIER 


10961 

PRINT"SIN DUMPFES SROLLEN...SS WIRD 



NIRBENDS."sFL=3 

<069> 


IMMER":SYS 49408 

<024> 

10470 

IF Z*="ALLES"AND A<>35 THEN POKE 500 


10962 

PRINT-LAUTER. SS SCHEINT SO, ALS HAE 



02,PEEK(50002)+C(A)sC(A)—0: FL=1 

<048> 


TTE ICH":SYS 49408 

<043> 

10480 

IF Z*=" ALLES "AND A=35 THEN PRINT "filT 


10963 

PR INT "DEN STAUDAMM GESPRAENGT.SS 



TE BENAUERE SINGABE !":FL=3 

<004> 


•ÜEiäLSäS": GOTO 60110 

< 191 > 

10500 

IF Y*<>BE*(1)AND Y*<>"LEBE "THEN 106 


10990 

IF Y*="LIES "AND(PEEK(50002)AND 8)AN 



00 

<0S9> 


D FL-0 THEN 11000 

<032> 

10501 

1-0 

<020> 

10991 

IF Y*=BE*(12)AND FL-0 THEN PRINT"HAS 


10502 

IF Z*=OB*(5)THEN BE=0 

< 177> 


SOLL ICH LESEN FL-3:GOTO 11010 

< 176> 

10510 

IF OB*(I)“Z*THEN 10540 

<080> 

10992 

GOTO 11010 

< 112> 

10520 

1=1+1sIF I<8 THEN 10510 

<249> 

11000 

PRINT"ICH LESE DIE ZEITUNG :":SYS 49 


10530 

FL—4 s GOTO 10590 

<035> 


408:PRINT"DER SLUG DES SPACE SHUTTLE 


10540 

IF PEEK(50002)AND OB(I)THEN POKE 500 



S IST" 

<198> 


02.PEEK(50002)-OB(I)3 C(A)-C(A)+OB(I) 


11001 

SYS 4940B:PRINT"VOELLIG (!) PROBLEML 



s FL—1 

< 145> 


OS UND ERFOLGREICH":FL-3:POKE 198,0 

<247> 

10550 

IF FL—0 THEN PRINT"JWS BESITZE ICH N 


11002 

WAIT 198,1:SYS 49408:PRINT TAB(17)"- 



ICHT..."s FL—3 

<159> 


-":SYS 49408:PRINT"HOROSKOPE :" 

<067> 

10590 

IF Z*—"ALLES"THEN C(A)-C(A)+PEEK(500 


11003 

SYS 49408:PRINT"I...] UND NEHMEN SIE 



02 )s POKE 50002,0 s FL-1 

<038> 


SICH VOR iNOEPFEN“:SYS 49408:SC-SC+ 


10600 

IF Y*=BE*(4)AND A<>34 THEN PRINT"£RA 



10 

<22B> 


BEN SIE AN EINEM ANDEREN SRT!?":FL-3 

<097> 

11004 

PRINT“IN ACHT ! C. . . 3" : POKE 198,0 

< 157> 

10601 

IF Y*—BE*(4)AND FL-0 AND PEEK(50002) 


11010 

IF Y*< >BE*(19)THEN 11100 

<088> 


AND 16 THEN PRINT"ICH GRABE EIN iDCH 


11011 

IF A< >54 THEN PRINT"SUNKTIONIERT HIE 



."s FL—9 

< 176> 


R NICHT":FL-3:GOTO 11100 

<241 > 

10602 

IF Y*—BE*(4)AND FL-0 THEN PRINT"iEIN 


11020 

IF PEEK(50002)AND 1 THEN 11030 

<232> 


E SCHAUFEL VORHANDEN."sFL-3 

<020> 

11025 

PRINT"ICH HABE KEINEN SGHLUESSEI_" 


10603 

IF FL<>9 THEN 10700 

<234> 


:FL-3:GOTO 11100 

< 191 > 

10604 

B(34>—16sFL—3 

<001 > 

11030 

B(54 >-11:FL-1:SC-SC+50 

< 141 > 

10700 

IF Y*=BE*(28)THEN PRINT"ÜDCH "ZE" MI 


11100 

IF Y*< >BE*(10)THEN 11200 

<036> 


N. BIS ZUM START."s FL—3 

<071 > 

11110 

IF PEEK(50002)AND 2 THEN 11130 

<0B3> 

10701 

IF Y*—BE*(27)THEN PRINT”IHRE PUNKTZA 


11120 

PRINT"ICH HABE KEINEN SPRENGSATZ.":F 



HL s "SCsFL-3 

<220> 


L—3:GOTO 11200 

<24B> 

10702 

IF Y*-BE*(B)AND(PEEK(50002)AND 4)THE 


11130 

IF A< >47 THEN 11170 

<240> 


N FL-1sPOKE 50002,PEEK(50002)-4sHU-1 

<045> 

11131 

IF PEEK(50002)AND 8 THEN PRINT"AIE Z 


10703 

IF Y*=BE*(8)AND FL-0 THEN PRINT"MAS 



EITUNG ENTZUENDET SICH...-:FL-10 

<005> 


SOLL ICH ESSEN ?"sFL=3 

< 166> 

11132 

IF FL-10 THEN SYS 49408:PRINT"ICH VE 


10704 

IF Y*-"STIRB "THEN POKE 50000,0:SYS 



RBRENNE.SCHADE,SCHON TOT...“:GOTO 60 



50000 

<008> 


110 

<064> 

10705 

IF Y*=BE*(8)AND FL-1 AND A-35 THEN P 


11140 

PRINT"ICH HABE DEN COUNTDOWN STOPPEN 



RINT"ICH VERSCHMUTZE DEN .LADEN"sFL—9 

<056> 


KOENNEN":SYS 4940B:SC-SC+200 

<114> 

10706 

IF FL—9 THEN SYS 49408:PRINT"ICH ERW 


11150 

PRINT-BEINE filSSION IST ERFUELLT.”:S 



ARTE EIN SISZIPLINARVERFAHREN..":GOT 



YS 49408 

<143> 


0 60110 

<049> 

11160 

PRINT"IHRE PUNKTE :";SC:SYS 49408:PR 


10710 

IF Y*<>"SCHALTE "THEN 10B00 

< 156> 


INT"<CYAN>(IASTENDRUCK)" 

<230> 
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Llsting 2. Das Hauptprogramm von »Spion III« (Fortsetzung) 


EN (RETURN.POKE 198,0 

< 161 > 




11531 

WAIT 198,1:POKE 198,0:FOR 1=0 TO 4:S 


11161 

POKE 198,0:WAIT 198,1:G0SUB 50000:PG 



YS 4940B:NE X T:PRINT“<HOME,17D0WN >" 

<244> 


KE 50000,0:SYS 50000 

<099> 

11532 

GOSUB 11550:OPEN 1,8,1,X*:PRINT*1,CH 


11170 

PR INT ".ICH SPRENGE MICH SELBST. . - BOUO 


R*<82>;CHR*<195>; 

<041 > 


-Q-iuinnH. . “: sriTn 60110 

<053> 

11533 

FOR 1=50002 TO 50070:W-PEEK(I)«PRINT 


11200 

IF ZE<1 THEN SYS 49408:PRINT"ZU SPAE 



#1,CHR*(W>;:NEXT« SYS 49408:FL-3« POKE 



T...“:GOTO 60110 

< 123> 


198,0 

<032> 

11210 

IF Y*OBE*(9)THEN 11300 

<016> 

11534 

CLOSE 1:PRINT"{HOME,22DOWN>":SYS 494 


11220 

IF A-37 THEN 11230 

< 138> 


08:GOTO 11600 

<003> 

11225 

PRINT"ZCH KANN HIER NICHTS GEFFNEN." 


11535 

INPUT"RILE—HAMEN " 5 X*:FL-9:GOSUB 115 



:FL-3:G0T0 11300 

< 149> 


80:LOAD X*,8,l 

<201 > 

11230 

PRINT"ICH VERSUCHE DEN SAFE ZU GEFFN 


11536 

FOR 1-0 TO 55:C <I)—PEEK(50003+1):NEX 



EN.":FL-1:C<37>-1 

<241 > 


T:BA—50059:ZE-PEEK(BA):SC-PEEK(BA+l) 

<105> 

11240 

SYS 49408:PRINT"ICH BENOETIGE JEDOCH 


11538 

LA-PEEK(BA+2)s B(34)-PEEK(BA+3 >:B(54) 



EINE ZAHLEN -":SYS 49408:X*-"" 

<231 > 


-PEEK(BA+4):T-PEEK(BA+5):WE-PEEK(BA+ 


11250 

PRINT"KOMBINATION : ";:GOSUB 51001 

<067> 


6 ) 

<019> 

11251 

IF X1♦“BES <24)THEN SYS 49408«SC-SC+6 


11540 

HU-PEEK(BA+7):HH-PEEK(BA+ 8 ):EN-PEEK( 



0:GOTO 11300 

< 137> 


BA+9):A-PEEK(BA+10):FL-0 

<206> 

11252 

SYS 4940B:PRINT"aiE KOMBINATION IST 


11541 

GE—PEEK(BA+l1):GOTO 500 

<172> 


LEIDER FALSCH.":SYS 49408 

< 135> 

11550 

POKE 631,71-.POKE 632,79:POKE 633,84: 


11260 

PRINTLINE flLARMANLABE WIRD AKTIVIER 



POKE 634,79:POKE 635,49:POKE 636,49 

< 184> 


T.":SYS 49408 

<046> 

11551 

POKE 637,53:POKE 638,54:POKE 639,48: 


11270 

PRINT"ZCH WERDE VERHAFTET-":GOTO 



POKE 640,13:POKE 19B,10:RETURN 

<097 > 


60110 

< 150> 

11560 

CLOSE 1:FOR 1=0 TO 3:SYS 49408:NEXT: 


11300 

IF A-46 AND HH-1 THEN SYS 49408:PRIN 



PRINT 11 RI LE KONNTE NICHT GE-SAVED WER 



T"aER .ROBOTER TOETET MICH. PRGH. . ,":G 



DEN. " 

<036> 


OTO 60110 

< 136> 

11570 

SYS 49408:GOTO 11520 

<039> 

11310 

IF A=46 AND HH-0 THEN SYS 4940B:PRIN 


11580 

POKE 631,71:POKE 632,79:POKE 633,84: 



T"£IN BEFAEHRLICHER ROBOTER.SYS 4 



POKE 634,79:POKE 635,49:POKE 636,49 

<214> 


9408:HH-1 

<243> 

11581 

POKE 637,53:POKE 638,56:POKE 639,50: 


11315 

IF A—36 THEN T-T+l 

<038> 


POKE 640,13:POKE 19B,10:RETURN 

<249> 

11320 

IF A—36 AND T-2 THEN 11340 

< 202 > 

11582 

PRINT"<CLR>£ILE KONNTE NICHT GELADEN 


11330 

GOTO 11400 

<006> 


WERDEN.":POKE 19B,0:WAIT 198,1:P0KE 


11340 

SYS 49408:PRINT"SAS IELEFON KLINGELT 



198,0 

<054> 


.“:SYS 49408 

< 116> 

11583 

GOTO 460 

<201 > 

11350 

PRINT"flEIN £HEF IST AM APPARATSYS 


11600 

REM 

<232> 


4940B 

<239> 

19000 

POKE 50000,B(A):REM RICHTUNGEN 

< 176> 

11351 

PRINT"£R FRAGT NACH DEM HAMEN MEINER 


19010 

POKE 50001,C(A):REM GEGENSTAENDE 

<059> 


AI SSION":SYS 49408 

< 148> 

19020 

POKE 53282,12:POKE VI+21,192 

<062> 

11352 

PRINT"—>”;:GOSUB 51001:1=19 

<068> 

19030 

IF PEEK(50002)AND 32 THEN GE=1 

< 162> 

11353 

1=1+1:IF X1*=BE*(I)THEN SYS 4940B:SC 


19997 

ZE=ZE-1:SC=SC-2:IF FL-4 THEN PRINT"fi 



=SC+110« GOTO 11400 

< 163> 


TFSES SBJEKT KENNE ICH NICHT." 

<236> 

11354 

IF I<24 THEN 11353 

< 198> 

19996 Ir FL=1 THEN PRINT"O.K." 

<223> 

11355 

SYS 49408«PRINT ".ICH HABE MEINEN £HEF 


19999 

IF FL=0 THEN PRINT"JiUGH?": ZE=ZE-1 

<130> 


BELOGEN !":SYS 49408 

<192> 

20000 

IF A>12 THEN 20003 

<059> 

11356 

PRINT"ICH WERDE BESTRAFT. AAS SIND J 


20001 

ON A+l GOSUB 1000,1012,1012,1004,109 



A MITTEL-":SYS 49408 

< 191 > 


0,1000,1004,1004,1012, 1012, 1000,1004 


11357 

PRINT"ALTERLICHE SITTEN BUUUUUR..."; 



,1004 

< 189> 


GOTO 60110 

< 192> 

20002 

GOTO 20008 

< 166> 

11400 

IF Y*="VERDAMMT "OR Y*="SCHEISSE "OR 


20003 

IF A>24 THEN 20006 

< 110 > 


Y*=”MIST “THEN FL=9 

<042> 

20004 

ON A—13+1 GOSUB 1030,1018,1000,1007, 


11401 

IF FL=9 THEN PRINT"fCUCHEN HILFT NIC 



1004,1004,1022,1030,1000,1000,i027,l 



HTS...":FL—3 

< 145> 


004 

< 169> 

11402 

IF X*="AILFE"THEN PRINT"ZEDER IST SI 


20005 

GOTO 20008 

<169> 


CH SELBST DER ÜAECHSTE.":FL=3 

<014> 

20006 

IF A>36 THEN 20009 

<065> 

11403 

IF WE-0 AND ZE<100 THEN SYS 49408:FL 


20007 

ON A—25+1 GOSUB 1000,1004,1022,1024, 



-9:PRINT"AEINE SACHEN WERDEN DURCH D 



1016,1016,1000,1004,1022,1100,1300,1 



EN SEHR" 

<032> 


300 

<006> 

11404 

IF FL=9 THEN SYS 4940B:PRINT"STARKEN 


2000 B 

GOTO 20030 

< 104> 


KIND IN ALLE RICHTUNGEN GEWEHT" 

<003> 

20009 

ON A-37+1 GOSUB 1300,1300,1300,1300, 


11405 

IF FL<>9 THEN 11500 

<006> 


1300,1500,1300,1300,1300,1300,1200,1 


11410 

FOR 1=0 TO 7 

<047> 


300 

<205> 

11411 

« R—INT(32*RND <1>)+1 

< 171 > 

20010 

IF A<49 THEN 20030 

<206> 

11412 

1 IF PEEK(50002)AND 2tl THEN C(R)=C< 


20020 

ON A—49+1 GOSUB 1500,1500,1500,1500, 



R>+2tI 

<019> 


1300,1300,1300 

<071 > 

11413 

NEXT I:SYS 49408:WE=1IPOKE 50002,0:L 


20030 

REM 

<024> 


A-0 

< 127> 

29009 

PRINT"CHOME,12D0WN,CYAN>ÄICHTUNGEN:{ 


11500 

IF LA—1 THEN EN-EN-1:IF EN-1 THEN LA 



12SPACE,12LEFT,WHITE >" ; 

< 153> 


—0:SYS 49408:PRINT"RÄTTERIEEN SIND L 


29010 

IF PEEK(50000)AND 32 THEN PRINT"H 



EER":FM—9 

< 120 > 


; 

<201 > 

11501 

IF FM—9 THEN SYS 49408:FM-0:POKE 500 


29011 

IF PEEK(50000)AND 16 THEN PRINT"R ," 



02,PEEK<50002)-128 

<094> 


i 

<062> 

11502 

IF SC>255 THEN SC-255 

<225> 

29012 

IF PEEK(50000)AND 1 THEN PRINT"N 

<252> 

11503 

IF SC<1 THEN SC-0 

<252> 

29013 

IF PEEK(50000)AND 2 THEN PRINT"0 ,"j 

<014> 

11504 

IF PEEK<50002)AND 192 THEN 11510 

<025> 

29014 

IF PEEK(50000)AND 4 THEN PRINT"S 

<051 > 

11505 

LA—0 

< 181 > 

29015 

IF PEEK(50000)AND 8 THEN PRINT"W ,"; 

< 120 > 

11510 

IF Y*0"8AVE "THEN 11600 

<035> 

29016 

PRINT"{HOME , 13D0WN > “ ;W* ; 

<041> 

11520 

INPUT " EILE—HAMEN " 5 X* 

<230> 

29017 

PRINT W*;W* 

<235> 

11521 

FOR 1-0 TO 55:POKE 50003+1,C < I >: NEXT 


29018 

PRINT " <4UP , CYAN >JESONDERHEITEN : {WHIT 



: BA—50059:POKE BA,ZE:POKE BA+l.SC 

< 175> 


E,SPACE >"; 

< 12 B> 

11522 

POKE BA+2,LA«P0KE BA+3,B(34):POKE BA 


29019 

FOR 1=0 TO 1:IF PEEK(50001)AND OB(I) 



+4,B<54)«POKE BA+5 , T:POKE BA+ 6 ,WE 

< 113> 


THEN PRINT OB*<I)","{ 

<14B> 

11523 

POKE BA+7 , HU:POKE BA+8,HH:P0KE BA+9, 


29020 

NEXT:PRINT 

< 178> 


EN:POKE BA+10,A:POKE BA+ll.GE 

<030> 

29021 

FOR 1=2 TO 4: IF PEEK(50001>AND OB<I) 


11524 

REM DATEN IM BEREICH 50002-50070 

< 1B4> 


THEN PRINT OB*(I)","; 

<088> 

11530 

SYS 4940B:PRINT"AITTE £1SK EINSCHALT 


29022 

NEXT:PRINT"{HOME,14D0WN >" ; 

< 100 > 
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29023 

FOR X-5 TQ 7sIF PEEK<50001)AND OB<I> 


53002 

X*=X1*:RETURN 

<022> 


THEN PRINT DB»(I)","; 

<059> 

60000 

PRINT"{WHITE,3D0WNI2ITTE WARTEN SIE. 


29024 

NEXT 

<076> 


.."SPRINT"{DOWN,CYAN TfilE SEFEHLSLIST 


29092 

PRINT"{HOME.16D0WN>"W*:PRINT"(2UP,CY 



E :" 

< 176> 


AN>"NA*(A>"{WHITEJ" 

<236> 

60001 

PRINT"<WHITE>INV (.INVENTUR) ,BETRITT, 


29093 

PRINT TP* 

<024> 


VERLASSE,LIES MSPACE >"; 

< 127> 

30000 

GOTO 10000 

<246> 

60002 

PRINT"(WHITE>N,0,S,W,H,R,NIMM (NEHME 


50000 

PRINT"CCLR.WHITE >":SYS 49256:POKE 53 



),VERLIERE (LEGE)“; 

<043> 


280,0:POKE 53281,0:POKE 53272,21:POK 


60003 

PRINT"{WHITE >GRABE,IEIT,ÜUNKTE,ISS,S 



E VI+21,0 

<011> 


TIRB,SCHALTE,BETE"; 

< 102> 

50001 

SYS 50452:FOR 1=0 TO 30 

<092> 

60004 

PRINT"{WHITE >WARTE,DRUECKE,SCHLIESSE 


50002 

: R=INT(999*RND(1>> 

< 154> 


,SPRENGE,OEFFNE{2SPACE>"; 

< 180> 

50003 

: POKE 1024+R,46 

<063> 

60005 

PRINT“SAVE...UND EINIGE MEHR..." 

< 195> 

50004 

NEXT 

<229> 

60006 

PRINT"{DOWNJBUSIK: HUN RUHEN ALLE HA 


50005 

GOSUB 136:POKE 198,0:PRINT"{HOME,10D 



ELDER (I-S.SACH) “ 

< 195> 


OWN,15RIGHT,RED JTSCHUESS..." 

<20B> 

60007 

PRINT"{WHITE>3» ANKS TO ÜEANUTS SOFT. 


50006 

FOR 1=0 TO 3000:NEXT:RETURN 

<0B3> 


...{14SPACE >”; 

<033> 

51000 

PRINT"{WHITEJ>"; 

< 122> 

6000B 

PRINT"£RUESSE AN ALLE SCHILDKROETEN 


51001 

POKE 204,0:1=0:REM INPUT ROUTINE: 

< 123> 


S< STUEMPER“; 

<028> 

51002 

GET XX*(I):IF XX*<I>=""THEN 51002 

<075> 

60100 

PRINT" {WHITEJÜIEL J3LUECK-";: RE TUR 


51003 

IF <ASC(XX*(I))>31)AND <ASC(XX* CI)> <12 



N 

<121 > 


B)THEN 51100 

< 1B3> 

60110 

GOSUB 1100:POKE VI+21,0:PRINT TN*:SY 


51004 

IF(ASC <XX*(I))>193)AND(ASC(XX*(I)><2 



S 49408SPRINT"HOCH EIN VERSUCH (J/N) 



19)THEN 51100 

<243> 


" 5 

<028> 

51005 

IF(ASC(XX*(I))=157)OR(ASC(XX*(I))=20 


60115 

POKE 204,0:POKE 207,0:GET X*:IF X*=" 



> THEN 52000 

<061 > 


"THEN 60115 

< 177> 

51006 

IF ASC(XX*(I))=13 THEN 53000 

<092> 

60120 

IF X*< >"J"AND X*< >"N"THEN 60110 

<131 > 

51007 

IF ASC (XX* (I).) =255 THEN REM 

< 172> 

60130 

IF X*="J"THEN POKE 204,1:POKE 207,0: 


51008 

GOTO 51002 

<220> 


SYS 49256:RUN 

< 17B> 

51100 

PRINT XX*(I) 5 :1=1+1:IF I>34 THEN 1=3 


60140 

SYS 49408:PRINT"JHANKS FOR PLAYING.“ 



4:PRINT"{LEFT,SPACE,LEFT >";: 

<005> 


:FOR 1=0 TO 2000:NEXT:POKE 50000,0:S 


51101 

GOTO 51002 

<057> 


YS 50000 

<090> 

52000 

IF I>-1 THEN PRINT"{SPACE,2LEFT,SPAC 


60150 

REM SPION III 

<203> 


E,LEFT>";:1=1-1:IF I<0 THEN PRINT">" 


60151 

REM VON STEFFEN GOEBBELS 

<062> 


; s 1=0 

<211 > 

60152 

REM ALTE HEERSTR.25 

<242> 

52001 

GOTD 51002 

< 197> 

60153 

REM 4179 WEEZE 1 

<020> 

53000 

Xl*="":POKE 207,0:POKE 204,1:FOR AA= 
0 TO I —1s X1*=X1*+XX* <AA):NEXT:PRINT" 


60154 

REM (C) 1985 S.J.G.-SDFT 

< 199> 



<080 > 

Listing 2. Das Hauptprogramm von »Spion III« (Schluß) 



das 1 • große 64'er Sonderheft 

»Abenteuerspiele« 
sollten Sie kennen! 


Schon lange nach diesen 
Informationen gesucht? 

Dann bestellen Sie das erste große Abenteuerspiele-Sonderheft 
(2/85) mit der im vorliegenden Sonderheft eingehefteten 
Zahlkarte (64'er-Vertrieb, Leser-Service). 


Wußten Sie, 

daß im ersten Abenteuerspiele-Sonderheft (2/85) ein Basiskurs alles 
von A-Z über das Programmieren von Abenteuerspielen erklärt? 
Wichtig und hochaktuell für alle, die gerade erst damit beginnen 
wollen. Hilfreich und von großem Vorteil auch beim Erlernen des 
zweiten Programmierkurses im neuen Abenteuerspiele- 
Sonderheft, das Sie gerade lesen. 

Außerdem werden im ersten Abenteuerspiele-Sonderheft 
konkrete lösungsschritte für Abenteuerspiele aufgezeigt und 
komplette Lösungswege beschrieben. 

Und natürlich werden alle, die noch nach Schätzen suchen, bei 
der Fülle an Abenteuerspiele-Listings fündig werden. 
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The SwoitJ - die Mugierpriifung 

Entfliehen Sie ins Land der Träume. Haben Sie teil am Treiben der Zauberer und Dämonen. Bestehen 

Sie die Aufnahmeprüfung des dunklen Zirkels. 



achen Sie es sich zur Aufgabe, von dem kleinen.Zau- 
i berlehrling, der Sie gerade sind, zum Meister der 
I Schwarzen Magie aufzusteigen. Absolvieren Sie 
den letzten Test der hohen Mächte. »The Sword« ist ein deut¬ 
sches Textadventure, das ein wenig nach dem Vorbild der 
Infocom-Adventures gestaltet wurde. Der Sprachschatz ent¬ 
hält über 100 Wörter, die auch als ganze Sätze eingegeben 
werden können. Zur Auflockerung kann zwischen dem nor¬ 
malen und einem geänderten Zeichensatz gewählt werden. 

Neben den allgemein üblichen Befehlen sind allerdings 
auch noch ein paar unübliche enthalten. So zum Beispiel: 

»FARBE« - Damit läßt sich die Schrift- und Bildschirmfarbe 
Ihren Wünschen gemäß einstellen. 

»NORMAL« - Schaltet von dem neuen auf den Commo- 
dore-Zeichensatz zurück. 

»NEU« - Dies ist das Gegenstück zu »NORMAL«. 

»HILFE« - Dieser Befehl sollte nur eingegeben werden, 
wenn man kurz vor dem Verzweifeln ist. 


»ANLEITUNG« - Hier erhalten Sie einige Tips zum Spiel. 

»SAVE«, »STORE«, »SPEICHERN« - Mit diesen Befehlen 
kann man drei verschiedene Spielstände speichern. 

»LOAD«, »LADE«, »RESTORE« - Diese Befehle laden einen 
alten Spielstand. 

Bitte geben Sie zuerst die Programme »A« (Listing 1) und 
»B« (Listing 2) mit Hilfe des MSE ein (zu finden in diesem 
Heft), und speichern Sie diese auf Ihrem Datenträger. 
Anschließend tippen Sie bitte das Hauptprogramm (Listing 3) 
ein, speichern es ebenfalls und starten es mit »RUN«. Auf 
dem Bildschirm erscheint dann die Meldung »LOADING...«, 
und der neue Zeichensatz sowie die Maschinenroutinen wer¬ 
den nachgeladen. Sodann erscheint das Titelbild, und die 
Daten werden eingelesen. Hier werden Sie nun gefragt, ob 
Sie mit dem normalen oder dem neu definierten Zeichensatz 
spielen wollen. Geben Sie bitte nur »J« oder »N« ein. Ist dies 
geschehen, befinden Sie sich schon mitten im Spiel. 

(A. Sommer/S. Adomat/dm) 


Listing 1. »A« 








c9bB 

: 

3e 

42 

04 

OB 

OB 

10 

10 

OO 

5b 

cb90 

3 

OO 

00 

00 

ff 

ff 

18 

18 

18 

e2 

(bitte mit dem MSE eingeben) 


c9c0 

: 

lc 

22 

44 

38 

44 

22 

lc 

00 

cb 

cb98 

3 

1B 

1B 

18 

fB 

f 8 

18 

1B 

18 

c 2 

Programm 

3 

a 




c800 

dOOO 

c9c8 


3c 

42 

22 

le 

04 

62 

3c 

00 

b6 

cbaO 


cO 

cO 

cO 

cO 

cO 

cO 

cO 

cO 

9f 












c9d0 

: 

00 

OB 

1B 

10 

OO 

18 

10 

oo 

de 

cba8 

: 

eO 

eO 

eO 

eO 

eO 

eO 

eO 

eO 

a7 

cBOO 

3 

3c 

42 

vv 

al 

VV 

42 

3c 

00 

94 

C9d8 


00 

00 

lc 

OO 

lc 

lc 

lc 

38 

63 

cbbO 

3 

07 

07 

07 

07 

07 

07 

07 

07 

bO 

cBOB 


00 

40 

3c 

02 

3e 

42 

3e 

OO 

67 

c9eO 


Oe 

18 

30 

50 

30 

18 

Oe 

00 

Oc 

cbbB 

3 

ff 

ff 

00 

00 

OO 

00 

00 

00 

b7 

c 810 

: 

20 

40 

40 

7c 

42 

22 

lc 

00 

96 

c9eB 

: 

00 

42 

3c 

OO 

3c 

42 

00 

00 

ee 

cbcO 

3 

ff 

ff 

ff 

OO 

OO 

00 

OO 

00 

bf 

c818 

3 

00 

00 

3c 

42 

40 

40 

3c 

02 

6b 

c9f 0 

: 

70 

1B 

Oc 

Oa 

Oc 

1B 

70 

oo 

f 4 

cbcB 


00 

OO 

OO 

00 

OO 

ff 

ff 

ft 

cB 

cB20 


04 

02 

02 

3e 

42 

42 

3c 

00 

95 

c9f B 


3c 

42 02 

04 

18 

00 

ic TO 

38 

cbdO 

3 

01 

03 

06 

6c 

78 

70 

60 

00 

ef 

cB28 

3 

00 

00 

3c 

42 

7e 

40 

3c 

02 

5f 

caOO 

s 

00 

00 

00 

ff ff 

00 

Oo „0 

00 

cbdB 


00 

OO 

00 

00 

fO 

fO 

fO 

fO 

15 

CB30 


01 

Oe 

10 

3e 

OB 

OB 

OB 

10 

05 

ca 08 

3 

18 

3c 

42 

7e 

24 

42 

42 

oo 

fc 

cbeO 

3 

Of 

Of 

Of 

Of 

00 

00 

oo 

00 

ld 

C83B 

3 

00 

00 

38 

44 

44 

3e 

02 

7c 

06 

calO 


7c 

22 

24 

58 

24 

22 

3c 

00 

f 6 

cbeB 

3 

18 

18 

18 

fB 

f 8 

00 

00 

00 

cl 

cB40 

: 

20 

40 

40 

7c 

42 

42 

24 

00 

e7 

ca 18 


3c 

42 

20 

20 

20 

42 

3c 

oo 

87 

cbfO 

3 

fO 

fO 

fO 

fO 

00 

00 

00 

00 

b3 

c848 


04 

18 

00 

38 

OB 

08 

Oe 

00 

58 

ca 20 


78 

44 

22 

22 

22 

44 

78 

oo 

ad 

cbf 8 


fO 

fO 

to 

fO 

Of 

Of 

Of 

Of 

7e 

CB50 


01 

06 

00 

04 

02 

02 

04 

3B 

86 

ca2B 

: 

7e 

40 

20 

3B 

40 

20 

le 

oo 

53 
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77 

03b4 

3 

OO 

00 

00 

00 

00 

00 

oo 

00 

b5 

ce48 

8 

e3 

f 7 

f7 

f 7 

f 7 

f 7 

b3 

ff 

f 2 

cf 80 

3 

ff 

ff 

ff 

bO 

bO 

e7 

e7 

67 

57 

03b c 

: 

OO 

00 

00 

00 

00 

00 

00 

00 

bd 

ce50 

3 

fl 

fb 

fb 

fb 

fb 

bb 

c7 

ff 

7a 

Cf BB 

3 

e7 

e7 

e7 

00 

00 

ff 

ff 

ff 

5d 

03c4 

8 

00 

OO 

00 

00 

00 

00 

oo 

00 

c5 

ce5B 

3 

bb 

b7 

af 

9f 

af 

b7 

bb 

ff 

76 

cf 90 

3 

ff 

ff 

ff 

00 

00 

b7 

b7 

e7 

3d 

03cc 

3 

00 

00 

00 

00 

oo 

oo 

00 

oo 

cd 

ce60 

3 

bf 

bf 

bf 

bf 

bf 

bf 

cl 

ff 

bB 

cf 98 

3 

e7 

e7 

e7 

07 

07 

e7 

e7 

e7 

6d 

03d4 

5 

00 

00 

00 

00 

00 

00 

00 

oo 

d5 

ce68 

3 

be 

9c 

aa 

b6 

be 

be 

be 

ff 

d3 

cf aO 

3 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

aO 

03dc 

3 

00 

OO 

00 

00 

00 

00 

oo 

00 

dd 

ce70 

3 

bd 

9d 

Bd 

a5 

bl 

b9 

bd 

ff 

f 4 

cf aB 

3 

If 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

aB 

03e4 

3 

00 

00 

00 

OO 

00 

oo 

oo 

00 

e5 

ce7B 

3 

c3 

bd 

bd 

bd 

bd 

bd 

c3 

ff 

la 

cf bO 

: 

fB 

fB 

fB 

fB 

fB 

fB 

f 8 

fB 

af 

03bc 

3 

00 

00 

00 

OO 

oo 

oo 

00 

00 

ed 

ce80 

3 

B3 

bd 

bd 

B3 

bf 

bf 

bf 

ff 

bb 

cf bB 

3 

OO 

00 

ff 

ff 

ff 

ff 

ff 

ff 

bB 

03f 4 

3 

00 

00 

00 

OO 

oo 

oo 

00 

00 

f 5 

ceBB 

3 

c3 

bd 

bd 

bd 

bd 

c3 

fl 

ff 

13 

cf cO 

3 

OO 

00 

00 

ff 

ff 

ff 

ff 

ff 

cO 

03fc 

3 

00 

00 

00 

00 

20 

10 

12 

Of 

e5 
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154 

DATA"DIE HEISSBLUETIGE CHRISTIANE”,"CH 






RISTIANE",10 

<004 > 

10 POKE 808,234 

i a pßTMT"/n d nntiiM cparcTi nan t •• 

<242> 

155 

1 'Ft 

DATA”DIE RESERVIERTE HEIKE" , “MEIKE" , 10 

<085> 

15 SYS 57B12"A”,8,1:P0KE 7S0,0:SYS 65493 

S / /• 

< 134> 

ll“ 

UATA"VIELE GROSSE UND KLEINE STEINE",“ 


16 SYS 57812"B",S,1:P0KE 780,0:SYS 65493 

<137> 


STEINE",11 

<096> 

20 POKE 53280,6sPOKE 53281,6:PRINT CHR*(14 


158 

DATA"flAEUME","BAUEME",14 

<042> 

7>CHR*<B>CHR*C14>sPOKE 650,0:POKE 53269 


159 

DATA"2SAEUME”,"BAEUME",15 

< 115> 


0 

<075> 

160 

DATA"EINE KLEINE,ALTE flUETTE","HUETTE" 


21 SYS 820 

< 121 > 


,16 

<00B> 

50 PR I NT " <CLR , 4DOWN , L X G . RED , 7SPACE >£.1NK BR 


161 

DATA"EINEN flORGENSTERN","MORGENSTERN", 


TS PROUDLY PRESENTS: " 

< 120> 


19 

<064> 

60 PRINT"C2D0WN,13SPACE,WHITE > >{BLACK,SPAC 


162 

DATA"EINEN KOSTBAREN SCHILD","SCHILD", 


EJJHE 5>J0RD{SPACE,WHITE>< {BLACK>" 

<209> 


19 

<005> 

65 PRINT"{DOWN,12SPACEJ0 1986 fl.SOMMER" 

<101> 

163 

DATA"EIN VERGILBTES S-ATT £APIER","BLA 


67 PRINT"{DOWN,15SPACE}AND S.ßDOMAT" 

<057> 


TT“,24 

< 173> 

70 FOR T=1 TO 1000:NEXT 

<073> 

164 

DATA"EINEN <DEN!> ZWERG","ZWERG",32 

< 1B9> 

75 PRINT"{3D0WN,15SPACE>3HANKS TO" 

< 163> 

165 

DATA"DEN 3RACHEN,DEN ICH TOETEN MUSS", 


80 PRINT"{DOWN,7SPACE >51RTHE,£LAUDIA,THE G 



"DRACHEN",33 

<043> 

IRLS..." 

<061 > 

166 

DATA"GAR NICHTS,NUR LAUTER UEBELRICHEN 


90 FOR T=1 TO 1000:NEXT 

<093> 


DEN{4SPACE JflEBEL","NEBEL",35 

<248> 

95 PRINT"{2D0WN,15SPACE>(WAITING)" 

<0B3> 

167 

DATA"KEINE BETTUNG FUER MICH","RETTUNG 


100 

AV=15:DIM VE*<AV> 

<017> 


" ,41 

<072> 

101 

A0=32:DIM NO*<AO),D*(AO),0<AO) 

<0B7> 

168 

DATA"/","PAPIER",0 

<226> 

102 

AR=41:DIM RA*<AR),DU(AR,6),KR*(AR) 

<048> 

169 

DATA"/","FRAU",0 

< 102> 

103 

AU=18:DIM AU*<AU) 

<163> 

170 

DATA"/","ALLES",0 

<235> 

104 

AF=9:DIM FL(AF) 

<211 > 

171 

DATA■DAS ZAUBERSCHWERT *,”ZAUBERSCHWERT 


105 

SP= 1: F1 =0: F2=-15:F3-15:F0=6:ZU-0:PO-0 

< 17B> 


" ,33 

< 1B5> 

106 

A2=28:DIM V2*<A2) 

< 129> 

172 

DATA"EINE .LAMPE","LAMPE",-l 

<037> 

107 

AZ=4:DIM ZA*<AZ) 

<026> 

201 

DATA"VOR DEM HEILIGEN UJRM.",“BDRM HEI 


131 

DATA NIMM,LEGE,GEHE,BETRETE,VERLASSE,T 



LIGEN UJRM",2,0,0,0,0,0 

<079> 


OETE,RUDERE,LEG 

<071 > 

202 

DATA" IM HEILIGEN UJRM. HALT HIER...","! 


132 

DATA VERLIERE,LESE,LIES,HEIRATE,GEH,BE 



M UJRM",9,1,5,6,10,3 

< 154> 


STEIGE,UNTERSUCHE 

< 117> 

203 

DATA"IM HELLER.ÜIER FLIESST EIN{6SPACE 


141 

DATA"/","NORDEN",0 

<064 > 


JfLUSS.","HELLER",0,0,0,0,2,0 

<036> 

142 

DAT A"/","SUEDEN",0 

<030> 

204 

DATA"IM S30T.","ZM flOOT",0,0,0,0,0,0 

<232> 

143 

DATA"/","WESTEN”,0 

< 1B7> 

205 

DATA"IM flOOR.","flOOR",8,0,0,2,0,0 

< 106> 

144 

DATA"/","OSTEN",0 

< 1BB> 

206 

DATA"AM flEER.","flM flEER",0,0,2,0,0,0 

<223> 

145 

DATAOBEN",0 

<015> 

207 

DATA"IM flOOT.","ü1 BOOT",0,0,0,0,0,0 

<235> 

146 

DATA"/","UNTEN",0 

< 1B6> 

208 

DATA"IM flOOR.","flOOR”,0,0,0,0,0,0 

<229> 

147 

DATA"/","MIR",0 

<005> 

209 

DATA"AM £LUSS.","flM ELUSS",11,2,0,0,0, 


148 

DATA"/","MICH",0 

<230> 


0 

< 1B6> 

149 

DATA"DEN HEILIGEN flANN","MANN",2 

<0B4> 

210 

DATA"IM HAREM DES HEILIGEN BANNES.","i 


150 

DATA"EIN flDOT","BOOT",3 

< 197> 


M BAREM",0,0,0,0,0,2 

<03B> 

151 

DATA"KEIN ÄJOT","BOOT",9 

<082> 

211 

DATA" IM .GEBIRGE. " , "SEBIRGE" ,11,11,11,1 


152 

DATA"DIE LIEBLICHE SIRTHE",“BIRTHE",10 

<237> 


1,12,9 

< 113> 

153 

DATA"DIE NIEDLICHE Ö-AUDIA","CLAUDIA", 


212 

DATA"AUF DEM flIPFEL DER flENUESSE.”,"£I 



10 

<126> 


PFEL",0,0,0,0,0,0 

<117> 
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","JAL",30,0,26,0,0, 
".GEBIRGE" ,0,25,39,29 
","IAL",31,26,28,30, 
"GEBIRGE",0,27,30,0, 
V'IAL",0,29,0,0,0,3 


Listlng 3. »The Sword« (Fortsetzung) 

213 DATA"AUF EINER SANDBANK.(fllST!)","GAND 
BANK",0,0,0,0,0,0 

214 DATA”IM ÜALD.","HALD",15,0,14,14,0,0 

215 DATA"IM ÜALD.","HALD",16,14,15,14,0,0 

216 DATA"IM ÜALD VOR EINER ÜUETTE.","GOR E 
INER ÜUETTE",15,15,15,14,0,0 

217 DATA"IN DER KLEINEN ÜUETTE.","ÜUETTE", 
0,0,0,0,0,0 

218 DATA"AM SEE iALTOR. " , "SALTOR“ ,21 ,0,41 , 
19,0,0 

219 DATA"AUF EINER EBENE.","£BENE",0,0,18, 
0,0,0 

220 DATA"AUF EINER WEITEN EBENE.","EBENE", 
0,0,0,21,0,0 

221 DATA"AN EINEM ELUSS.“,"ELUSS",22,18,20 
,0,0,0 

222 DATA"AM ELUSS.","ELUSS",23,21,20,0,0,0 

223 DATA"AM ELUSS.","ELUSS",24,22,20,0,0,0 

224 DATA"AM SAND DES GEBIRGES.","GEBIRGSRA 
ND",26,23,23,23,0,0 

225 DATA"IM GEBIRGE.","GEBIRGE",28,0,39,26 
,0,0 

226 DATA”IM GEBIRGE.","GEBIRGE",29,24,25,2 
7,0,0 

227 DATA"IN EINEM JAL. 

0 

228 DATA"IM GEBIRGE.", 

,0,0 

229 DATA"IN EINEM JAL. 

0,0 

230 DATA"IM GEBIRGE.", 

0,0 

231 DATA"IN EINEM JAL. 

2 

232 DATA"IN EINER DUESTEREN ÜQEHLE.","ÜDEH 
LE",0,0,0,0,31,0 

233 DATA"TIEF IN DER ÜOEHLE DES LflEWEN...A 
EHH SRACHEN.NATUERLICH!" 

234 DATA"ÜQEHLE”,0,0,0,0,34,0 

235 DATA"IN DER ÜOEHLE DES SRACHEN.",“ÜDEH 
LE",0,0,0,35,0,33 

236 DATA"AM £USSE DES GETUS.","GETUS”,0,40 
,34,36,0,0 

237 DATA"AUF EINER SBENE.JERN IM HESTEN12S 
PACEJRAUCHT DER «ETUS.","EBENE" 

238 DATA 0,0,35,37,0,0 

239 DATA"AUF EINER EBENE. 

6,38,0,0 

240 DATA "AUF EINER EBENE. 

7,39,0,0 

241 DATA"AUF EINER EBENE. 

8,28,0,0 

242 DATA"AUF EINER EBENE. 

0,40,0,0 

243 DATA"UNTER HASSER...","ÜNTER HASSER",0 
,0,0,0,0,0 

300 DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,AUF 
,IN,MIT,DEM,DURCH,UND,NACH 

301 DATA BITTE,DOCH,HEILIGEN,ZUR 

501 DATA 0,0,0,0,0,0,0,0,0 

601 DATA INVENTORY,HILFE,ENDE,SIEH,LOOK,DA 
NKE , SAVE , LOAD, STORE , RESTORE .FARBE 

602 DATA NORDEN,SUEDEN,WESTEN,OSTEN,OBEN,U 
NTEN,SCORE,SPIELSTAND,SAGE,SCHLAFE 

603 DATA SPEICHERE,LADE,ANLEITUNG,SPIELANL 
EITUNG,NORMAL,NEU,WARTE 

650 REM ZAUBERSPRUECHE 

651 DATA EMMIWHCS.KCEURUZ,"EHCARD ETEOT"," 
THCIL" 

700 DATA 133,95,134,96,76,191,163 

B00 FOR T=1 TO AVzREAD VE*(T>:NEXT 

801 FOR T-l TO AOsREAD NO*<T>,0*<T>,0<T> 

802 NEXT 

803 FOR T=1 TO AR:READ RA*(T),KR*(T) 

804 FOR X=1 TO 6:READ DU<T,X):NEXT X,T 

B05 FOR T=1 TO AU:READ AU*(T):NEXT 

806 FOR T-l TO AF:READ FL<T):NEXT 

807 FOR T=1 TO A2:READ V2*<T):NEXT 

808 FOR T=1 TO AZ:READ ZA*(T):ZA*<T>=CHR*( 
34)+ZA*(T)+CHR*(34):NEXT 

810 FOR T-704 TO 710:READ A:POKE T,A:NEXT 

820 POKE BB,0:POKE B9,192:P0KE 90,0:POKE 9 
1,192:POKE 780,0:POKE 781,160:SYS 704 

825 POKE BB,0:POKE B9,0:POKE 90,0:POKE 91, 
0:POKE 780,0:POKE 781,224:SYS 704 


"SBENE",39,38,3 
"SBENE",39,37,3 
"EBENE",38,25,3 
"SBENE",35,40,4 


<229> 

< 159> 

< 133> 

< 109> 

< 149> 
<235> 
<081 > 

< 163> 

< 149> 
<067> 
<201 > 

<0B2> 

< 107> 
< 101 > 
<043> 
<031 > 

< 117> 

< 145> 
<160> 

< 137> 

<006> 

<225> 

<064> 

OtCH 

< 172> 

<033> 

<230> 

<157> 

<229> 

<236> 

< 138> 

< 119> 

<214> 

< 122 > 
<214> 

<064> 

<019> 

< 128> 

< 143> 

<075> 

< 138> 
<009 > 

< 10B> 
<050> 
<093> 

< 131 > 
<146> 

< 169> 
<231 > 

<034> 

<082> 

<023> 

<207> 


B30 POKE 1,53 

900 PRINT"<UP,7SPACEIÜORMALER JEICHENSATZ^ 
<2SPACE>5<LEFT>"; 

920 GET A*:IF A*< >"N"AND A*<>"J"THEN 920 

930 PRINT A* 

931 FOR T=1 TO 500:NEXT 

940 IF A*="J"THEN GOSUB 56000:PRINT CHR*(1 
4):F0=0:F1=5:F2=3:F3=5 
945 POKE 53280,F0:POKE 53281,F0 
1000 POKE 59639,0 

1005 PRINT"<CLR>" 

1006 DATA"HORDEN","SUEDEN","HESTEN","GSTEN 
","GBEN","ÜNTEN" 

1010 FOR T-l TO 6:READ RI*(T):NEXT 
1020 PRINT CHR*(147) 

1080 GOSUB 53000:PRINT:POKE 646,F1:IF SP-2 
THEN FL(2)—1 

1090 PRINT"JCH BIN ";RA*CSP> 

1100 PRINT" J, CAN SEE:" 

1110 FL(1)— 1:FOR T-l TO AO 

1120 IF 0<T)=SP THEN PRINT NO*(T)".":FL(1) 

=0 

1130 NEXT 

1140 IF FL(1)THEN PRINT"NICHTS." 

1150 PRINT"ÜIER GEHT'S NACH:" 

1160 G=0:FOR T=1 TO 6 

1170 IF DU < SP,T)< >0 THEN PRINT RI*(T>“,";: 

G-G+l 
1180 NEXT 

1190 IF G<1 THEN PRINT"NIRGENDWOHIN "; 

1200 PRINT"<LEFT>.» 

1230 IF FL(2)AND 0(9)=2 THEN O(9)=0:GOSUB 
57000:GOTO 1080 

1300 IF SP=8 THEN PRINT"<DOWN>ÜILFE,ICH VE 

RSINKE IM ÜOOR_{DOWN}":GOTO 54000 

1310 IF SP=13 THEN PRINT"CDOWNJJJA,DAS ÜBE 
NTEUER IST LEIDER ZUENDE." 

1320 IF SP-13 THEN PRINT"ICH VERHUNGERE LA 
NGSAM,UND DENKE" 

1330 IF SP=13 THEN PRINT"AN DIE SEIT,DIE I 
CH MIT 2IRTHE HAETTE" 

1340 IF SP=13 THEN PRINT”VERBRINGEN KOENNE 
M ":PRINT:GOTO 54000 
1370 : 

1500 ZU=ZU+1:IF FL(5)AND NOT FL(8)THEN PO- 
PO+1:FL <B)—1 

1501 IF SP<>41 THEN FL(7)=0 

1502 IF SP—41 THEN FL(7)-FL(7)+1 

1503 IF FL(7)>2 THEN PRINT"JCH ERTRINKE... 
SLUBB...":PRINT:GOTO 54000 

1505 GOSUB 50000:POKE 646,F2 
1510 IF LEN(X*)>2 THEN 1600 

1520 IF X*="N"AND DU(SP,1)<>0 THEN SP=DU<5 
P,1>:PRINT"SITTE.":GOTO 1080 

1521 IF X*—"S"AND DU(SP,2)<>0 THEN SP=DU(S 
P,2):PRINT"HA GUT.":GOTO 1080 

1523 IF X*="W"AND DU(SP,3)<>0 THEN SP=DU(S 
P,3):PRINT"GDOOOD.":GOTO 1080 

1524 IF X*="0"AND DU(SP,4)<>0 THEN SP=DU(S 
P,4):PRINT"ÜA JSLAR. ":GOTO 1080 

1525 IF X*—"OB" AND DU (SP, 5)00 THEN SP=DU( 
SP,5):PRINT"flBER SITTE.":GOTO 1080 

1526 IF X*—"U"AND DU(SP,6)<>0 THEN SP-DU(S 
P,6):PRINT" si TTESCHOEN.":GOTO 1080 

1527 IF X*—" I "THEN 31000 

1599 PRINT"ÜRONG JNPUT!":GOTO 1500 

1600 ER-0:GOSUB 51000 
1610 IF ER—1 THEN 1500 

1615 ER-0:GOSUB 52000 

1616 IF ER—1 THEN 1500 
1620 IF V2< >0 THEN 30000 
1630 IF 01=28 THEN 01=23 

1640 IF 01 = 18 AND SP-15 THEN 01-19 
1650 IF 01=10 AND SP—9 THEN 01=11 
1700 ON V GOTO 2500,2000,3000,3500,4000,45 
00,5000,2000,6500,7000,7000,7500 
1710 ON V—12 GOTO 3000,6000,8000 
1800 GOTO 1500 

2000 IF 0200 THEN PR INT "IMMER DER SEIHE N 
ACH!":GOTO 1500 
2005 IF 01=30 THEN 2100 

2010 IF NOT 0(01)THEN PRINT"ÜABE ICH NICHT 
DABEI!":GOTO 1500 

2020 0(01)=SP:PRINT"GELEGT!":GOTO 1500 
2100 GL—0:FOR T-l TO AO 

2110 IF 0(T> —1 THEN O(T)-SP:PRINT 0*(T)": 
GELEGT":GL-1 


<095> 

<073> 

< 175> 
<090> 
<241 > 

<219> 
<041 > 
<066> 
<231 > 

< 192> 
<064> 
<031 > 

<16B> 
<063> 
<043> 
<061 > 

< 139> 

< 124> 
<200> 

< 155> 
<109> 

<247> 

< 174> 
< 200 > 
<0B5> 

<245> 

<213> 

< 134> 

<055> 

<023> 

<111> 

<076> 

< 126> 
<230> 
<077> 

< 177> 

< 107> 
<023> 

< 190> 
<237> 
<243> 
<205> 

< 139> 

< 154> 

< 144> 
<019> 
<0B3> 
<036> 
<100> 
<042> 
<1B0> 
<074> 

< 132> 
<232> 

< 113> 

< 084 > 
<042> 

<203> 

<043> 

< 199> 
<074> 
<225> 

<076> 
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2120 

NEXT 

<098> 


D 01<17 THEN 4600 

<012> 

2130 

IF BL=1 THEN 1500 

<223> 

4530 

PRINT"EIN SING KANN MAN N.I.CKT. TOETEN! 


2140 

PRINT"HATTE LEIDER NOTHING DABEI!":GO 



" : GOTO 1500 

<021 > 


TO 1500 

<074> 

4600 

IF 02=21 THEN PRINT"SAMI GEHTS NICHT! 


2500 

IF 01=30 THEN 2800 

<05B> 


":GOTO 1500 

< 156> 

2501 

IF 02=29 THEN 02=0:GOTO 7500 

<094> 

4609 

PRINT"BOMIT DENN?" 

< 175> 

2502 

IF 01=8 THEN PRINT"SU HASST DICH DOCH 


4610 

PRINT"UND UEBERHAUPT:BORDEN IST GAR N 



SCHON!":GOTO 1500 

<062> 


ICHT " 

<249> 

2503 

IF 01=7 THEN PRINT"A£RN ERSTMAL SEUTS 


4620 

PRINT"FEIN!":GOTO 1500 

< 162> 


CH!":GOTO 1500 

< 13B> 

5000 

IF 01 >4 OR 0200 THEN PRINT"£0 EIN 3- 


2504 

IF 0<01>=-l THEN PRINT"HAB ICH DOCH S 



OEDSINN!":GOTO 1500 

<115) 


CHON!":GOTO 1500 

<046> 

5010 

IF SP<>7 AND SP<>4 THEN PRINT"AHNE SO 


2505 

IF OtOllOSP THEN PR INT "SEHE ICH HIER 



OT UND OHNE HASSER???":GOTO 1500 

< 112> 


NICHT!":GOTO 1500 

<240> 

5020 

IF SP=7 AND 01=2 THEN SP=4:PRINT"BLLR 


2506 

IF 01 = 11 THEN PR INT ".SA OBEN STEHT ££J. 



IGHT!":GOTO 1080 

<026> 


B SDOT!":GOTO 1500 

<094> 

5030 

IF SP=4 AND 01=1 THEN SP=7:PRINT"£ITT 


2507 

IF 01C12 THEN PRINT"31S GEHT NUN WIRK 



ESCHOEN!":GOTO 1080 

< 050 > 


LICH NICHT!":GOTO 1500 

<057> 

5040 

IF 01=3 THEN SP=13:PRINT"SELBST SCHUL 


2508 

IF 01<17 THEN PRINT"3J DENKST AUCH NU 



D!":GOTO 1080 

< 112> 


R AN DAS EINE!":GOTO 1500 

<034> 

5050 

PRINT"SAHIN KANN ICH NICHT RUDERN-":G 


2509 

IF 01=17 THEN PRINT"SO VIELE...KANN M 



OTO 1500 

<245> 


ICH NICHT ENTSCHEIDEN!":GOTO 1500 

<205> 

6000 

IF SP<>3 THEN PRINT"SAS GEHT NICHT!": 


2510 

IF 01=18 OR 01=19 THEN PRINT"SIN DOCH 



GOTO 1500 

<094> 


KEIN KIESE,NUR EIN KLEINER £64!";:GO 


6010 

IF O1O10 THEN PRINT-HIE BITTE?":GOTO 



TO 1500 

< 143> 


1500 

<1BB> 

2511 

IF 01=20 THEN PRINT"SAS SOLLTEST DU D 


6020 

SP=4:PRINT"A.£.":P0=P0+1:GOTO 10B0 

< 194> 


IR NOCHMAL UEBERLEGEN!":GOTO 1500 

<081 > 

6100 

PRINT"iEIDER UNMOEGLICH!":GOTO 1500 

< 115> 

2512 

IF 01>23 AND 01<31 THEN PRINT"BEIN,DA 


6500 

IF 01=0 THEN PRINT"BAS DENN?":GOTO 15 



S UEBERSTEIGT MEINE KOMPETENZEN!":GOT 



00 

< 121 > 


0 1500 

<043> 

6510 

IF NOT 0(01)THEN PRINT"HAB ISCH NISCH 


2530 

IF 01=31 AND NOT FL<6)THEN PRINT"SER 



!":GOTO 1500 

<034> 


SRACHE ÜERFEUERT DICH IM VULKAN!":GOT 


6520 

PRINT"ICH BIN DOCH NICHT SO BLOED UND 



0 54000 

<064> 


VER—" 

< 125> 

2600 

0 <01)=—1:PRINT“SLLRIGHT,GETAKET!" 

< 105> 

6530 

PRINT"LIER WAS!" 

<227> 

2610 

IF 0(31)THEN FL(5)=—1 

< 133> 

6540 

PRINT"SCHON AUS .PRINZIP NICHT!":GOTO 


2630 

GOTO 1500 

<110> 


1500 

<111> 

2800 

GN=0:FOR T=1 TO AO 

< 177> 

7000 

IF 02028 AND 0200 THEN PRINT"HHAT,T 


2810 

IF 0(T)=SP THEN GOSUB 2850 

<241 > 


0 THE SONNERWETTER?":GOTO 1500 

<216> 

2820 

NEXT 

<036> 

7005 

IF NOT 0(01)THEN PRINT"HAB ICH NICHT! 


2830 

IF GN=0 THEN PRINT"MICHTS DA!“ 

<093> 


":GOTO 1500 

<035> 

2840 

GOTO 1500 

<066> 

7010 

IF 01023 THEN PRINT"VRELLIG UNLESERL 


2B50 

IF T<>21 AND T<>22 AND T<>23 AND T<>3 



ICH ! " : GOTO 1500 

<221 > 


2 THEN 2900 

<247> 

7020 

PRINT"£HH NEIN,EIN BERBE—ZETTEI_" 

<054> 

2860 

PRINT 0*(T)":GENOMMEN":O(T)=—1:GN=1 : R 


703V 

PRINT"SOLL ICH IHN WIRKLICH LESEN?":G 



ETURN 

<007> 


OSUB 50000:POKE 646,F2 

< 145> 

2900 

IF T=31 AND FL(6)=—1 THEN FL(5)=-l:GO 


7040 

IF LEFT$(X*,1)="N"THEN PRINT"GUT SO!" 



TO 2860 

<214> 


:GOTO 1500 

<243> 

2905 

IF T=31 AND NOT FL(6)THEN 01=31:GOTO 


7041 

IF LEFT$(X*,1X>"J"THEN 7030 

<095> 


2530 

<041 > 

7050 

PRINT"SQRT STEHT:“ 

< 144> 

2910 

RETURN 

< 174> 

7080 

PRINT CHR*(34);:POKE 646,Fl 

<049> 

3000 

IF 0200 THEN PRINT"EINS AUF EINMAL!" 


7090 

PRINT"£INK SCHWERTPUTZER FUER IHR SCH 



:GOTO 1500 

< 173> 


WERT,” 

<006> 

3010 

IF 01 = 1 THEN X$="N": GOTO 1520 

<225> 

7100 

PRINT“ JETZT IM SONDERANGEBOT BY ARTH 


3020 

IF 01=2 THEN X*="S": GOTO 1521 

< 132> 


URS " 

<240> 

3030 

IF 01=3 THEN X*="W":GOTO 1523 

<030> 

7110 

PRINT" KITTER- UND ÜNAPPENSHOP!" 

<065> 

3040 

IF 01=4 THEN X*="0":GOTO 1524 

<240> 

7111 

PRINT" BUR 19,50.-"| 

<200> 

3050 

IF 01=5 THEN X#="OB”:GOTO 1525 

<048> 

7119 

POKE 646,F2 

< 125> 

3060 

IF 01=6 THEN X*="U":GOTO 1526 

<245> 

7120 

PRINT CHR*(34):GOTO 1500 

<246> 

3070 

PRINT"BIT MOEGLICH...":GOTO 1500 

<014> 

7500 

IF 01=9 THEN PRINT-BAS BIST DU DENN F 


3500 

IF 0200 THEN PRINT"BD,MAN !": GOTO 150 



UER EINER?":GOTO 1500 

<089> 


0 

<0U> 

7510 

IF 0(01K>SP THEN PR INT "SEHE ICH HIER 


3510 

IF 01=10 THEN 6000 

< 156> 


NICHT!":GOTO 1500 

< 165> 

3520 

IF OIODOSP THEN PRINT"SEH ICK NICH! 


7520 

IF 01<12 OR 01>16 THEN PRINT"Sfl EIN S 



":GOTO 1500 

< 138> 


CHWACHSINN!":GOTO 1500 

<023> 

3530 

IF 01020 THEN PR INT "SOWAS KANN ICH N 


7530 

IF 01=15 THEN 7700 

<016> 


ICHT BETRETEN!":GOTO 1500 

<010> 

7535 

IF 01 = 14 THEN 7900 

< 157> 

3540 

PRINT"SIN DRIN!":SP=17:P0=P0+1:GOTO 1 


7540 

IF FL(5)=0 THEN 7B00 

< 182> 


080 

<204> 

7550 

PRINT"£UT,"N0*(01>" IST NUN MEINE":PR 


4000 

IF 0200 THEN PRINT"Sfi RI.CJtT.! ": GOTO 1 



I NT " FRAU , " ; -. P0=P0+1 

<068> 


500 

<251 > 

7555 

PRINT"UND IHR LIEBT EUCH UND WERDET" 

<253> 

4010 

IF O1O10 AND 01020 THEN PRINT"SAS G 


7556 

PRINT-GLUECKLICH SEIN BIS AN EUER AEB 



EHT NICHT!":GOTO 1500 

<223> 


ENSENDE!” 

<212> 

4020 

IF 01=20 AND SP=17 THEN PRINT"£IE LAE 


7557 

PRINT"ADER?“:PRINT 

<107> 


SST MICH NICHT RAUS!":GOTO 1500 

<206> 

7560 

POKE 646,Fl 

<057> 

4030 

IF SP<>4 AND SP<>7 AND O1O10 THEN PR 


7570 

PRINT"SRAVO,DU HASST MICH GESCHLAGEN, 



INT"KERSTEH' DICH NICHT!":GOTO 1500 

<253> 


DAS" 

<073> 

4040 

IF SP=4 THEN PRINT”ÜILFE,ICH ERTRINKE 


75B0 

PRINT"flDVENTURE IST GELOEST!" 

< 129> 


...“:GOTO 54000 

<042> 

7585 

PRINT"SU ERHAELST"PO"VON 9 fUNKTEN!“ 

< 176> 

4050 

SP=14:PRINT"£UTE BAHL!":GOTO 10B0 

< 167> 

7590 

PRINT"ABER FREU DICH NICHT ZU FRUEH," 

<207> 

4100 

PR INT ".LEIDER UNMOEGLICH!":GOTO 1500 

<149> 

7595 

PRINT--2EIL 2 IST SCHON IN ARBEIT! ": PR 


4500 

IF 01=8 THEN PRINT"SELBSTMORD IST UNT 



INT:GOTO 54000 

<251 > 


ER STRAFE VERBOTEN!“:GOTO 1500 

<048> 

7700 

PRINT"BILS,DER ANDERE ZAUBERLEHRLING 


4501 

IF 01=7 THEN PRINT"££RN ERSTMAL RICHT 



UND" 

< 170> 


IG SEUTSCH!":GOTO 1500 

< 194> 

7710 

PRINT"HEIKES £REUND,KOMM HEREIN UND E 


4505 

IF 0<01)OSP OR 0200 AND 02021 THEN 



R—" 

<104> 


PRINT"VERSTEHE ICH NICHT.“:GOTO 1500 

<224> 

7720 

PRINT"SCHLAEGT MICH AUS EIFERSUCHT!": 


4510 

IF 01=9 OR 01=24 OR 01=25 OR 01>11 AN 



PRINT:GOTO 54000 

<010> 


lÜSStH? 
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Listing 3. »The Sword« (Fortsetzung) 

7800 PR I NT "JSEIZ VOLLER SED ANKE ... ABER DAS fl 


BENTEUER" <152> 

7810 PRINT"RUFT.ALSO BESTEHE ES UND SCHAFF 

DIR" <017> 

7820 PRINT"KEIN NEUES!":GOTO 1500 <172> 

7900 PRINT"flIE REISST MIR DIE JSLEIDER VOM 

<114> 

7910 PRINT"ICH STERBE AN MEINER ERREGUNG!" 

:PRINT:GOTO 54000 < 058> 

8000 IF 0200 THEN PRINT"AICHT ALLES AUF E 

INMAL!":G0T0 1500 <143> 

8001 IF OIODOSP AND NOT 0(01) THEN PRINT" 

AEH ICH NICHT,HAB ICH NICHT!"sGOTO 15 

00 <020> 

8002 ON 01 GOTO 8010,8010,8010,8010,8010,8 
010,B020,8015,8300,8300,8050,8060,807 

B <073> 

B003 ON 01-13 GOTO 8080,8090,8100,8110,830 

0,8300,8300,8300,8120,8130,8140 <097> 

8004 ON 01-24 GOTO 8150,B160,8300,8300,814 

0,8300,8180,8170 <245> 

8010 PR INT ".UNTERSUCH IHN DOCH SELBST! ":GOT 

O 1500 <069> 

8015 PRINT"J5ANNST DU NICHT AUF DEUTSCH RED 

EN!":GOTO 1500 <127> 

8020 PRINT"ICH BIN EIN SCHOENER,MUSKULOESE 

R“ <241> 

8021 PRINT"ÄUENGLINS.HEIN KÄME IST HEVS AN 

RA.":GOTO 1500 <231> 

8050 PRINT"IST NICHT ZU SEHEN!"sGOTO 1500 <140> 

8060 PR INT "HIE ICH SCHON SAGTE: AIEBL ICH!" : 

GOTO 1500 <210> 

8070 PRINT"AIE IST WIRKLICH SEHR,SEHR NIED 

LICH!":GOTO 1500 <253> 

8080 PRINT"flAN,HAT DIE EIN TEMPERAMENT!~:G 

OTO 1500 <237> 

8090 PRINT"AIE BLEIBT COOL,UND SO SIEHT SI 

E AUCH":PRINT"AUS!":GOTO 1500 <186> 

8100 PRINT"£IN NETTES flAEDEL”:GOTO 1500 <058> 

8110 PRINT "SIE AJJETTE IST KLEIN UND SCHEIN 

T” <006> 

8111 PRINT"GEMUETLICH ZU SEIN.":GOTO 1500 <042> 

8120 PRINT"£S IST VERGOLDET UND MIT ADELST 

EINEN”:PRINT"BESETZT.":GOTO 1500 <205> 

8130 PRINT”ICH SOLTE ES LESEN!":GOTO 1500 <226> 

8140 PRINT"AS IST EIN EHER FREUNDLICHER ZW 

ERG! " : GOTO 1500 <026> 

8150 PRINT"AAS IST ER...":GOTO 1500 <031> 

8160 PRINT"AU INHALIERST ZUVIEL HEBEI_AS 

IST":PRINT"£1FTGAS...AU ATIRBST!":PR 
INT <050> 

8161 GOTO 54000 <091> 

8170 PRINT-AIE KOENNTE NOCH NUETZLICH SEIN 

!":GOTO 1500 <202> 

8180 PRINT"ZAUBERHAFT!":GOTO 1500 <018> 

8300 PRINT "AI EHT GANZ NORMAL AUS! “-.GOTO 15 

00 <225> 

30000 ON V2 GOTO 31000,31500,32000,32500,3 
2500,33000,33500,34000,33500,34000,3 
4500 <051> 

30050 ON V2-11 GOTO 35000,35010,35020,3503 
0,35040,35050,35500,35500,36000,3700 
0 <099> 

30060 ON V2-21 GOTO 33500,34000,38000,3800 

0,39500,39700,40000 <116> 

30100 GOTO 1500 <146> 

31000 PRINT"iCH TRAGE:" <195> 

31005 FL(3)=-l:FOR T=7 TO AO <175> 

31010 IF 0<T>=—1 THEN FL(3)=0:PRINT NO*(T) 

<226> 

31020 NEXT <040> 

31030 IF FL(3)THEN PRINT"GAR NICHTS!" <246> 

31040 GOTO 1500 <070> 

31500 IF SP=10 THEN PRINT"AIE flAEDELS SEHN 

ZUM ANBEISSEN AUS!":GOTO 1500 <110> 

31510 IF SP=17 THEN PRINT"ICH BIN MUEDE!": 

GOTO 1500 <166> 

31520 IF SP=5 THEN PR INT ".GEH HIER NICHT WE 

ITER!":GOTO 1500 <0B1> 

31530 IF SP=14 OR SP=15 THEN PRINT"ÖAN SIE 
HT DEN HALD VOR AAEUMEN NICHT!":GOTO 
1500 <129> 

31540 IF SP=3 THEN PRINT"ZCH WOLLT ICH WAE 
REIN SEEBAER,AEH (6SPACE}-MANN...":G 
OTO 1500 <039> 


31550 IF SP=31 THEN PRINT"ZWERGE LIEBEN AI 

CHT!":GOTO 1500 <07B> 

31555 IF SP=7 THEN PRINT"JCH SOLLTE DAS SD 

OT BESSER VERLASSEN!”:GOTO 1500 <255> 

31560 IF SP=12 THEN PRINT"£IB AUF,HIER KOM 

MST DU NICHT MEHR WEG!":GOTO 1500 <051> 

31900 PRINT"flILF DIR SELBST,":ZU=ZU-1 <098> 

31910 PRINT"DANN HILFT DIR SOTT!" <110> 

31920 GOTO 1500 <1BB> 

32000 PRINT"KILLST DU WIRKLICH AUFHOEREN?” <028> 

32010 GOSUB 50000:POKE 646,F2 <132> 

32020 IF LEFT*(X*,1)="J"THEN PRINT"HA GUT! 

":GOTO 54000 <054> 

32030 PRINT"HARUM TIPPST DU DANN 'ANDE'?": 

GOTO 1500 '<131> 

32500 GOTO 1080 <181> 

33000 ZU=ZU-1:PRINT"HICHT ZU DANKEN!":GOTO 

1500 <205> 

33500 GOSUB 56500:PRINT"PLEASE WAIT!":ZU=Z 

U-l <211> 

33510 OPEN 15,8,15,"S:"+N* <057> 

33520 CLOSE 15 <083> 

33530 OPEN 2,8,2,N*+",S,W" <212> 

33540 PRINT#2,SP:PRINT#2,ZU:PRINT#2,RA* <32 

>: PRINT#2,NO*(25):PRINT#2,PO <146 > 

33550 FOR T=1 TO AO:PRINT#2,0(T):NEXT <019> 

33560 FOR T=1 TO AF:PRINT#2,FL<T>:NEXT <225> 

33600 CLOSE 2:PRINT"£ERTIG." <096> 

33700 GOTO 1500 <191> 

34000 GOSUB 56500:PRINT"£LEASE WAIT" <144> 

34030 OPEN 2,8,2,N*+",S,R" <199> 

34040 INPUTH2 , SP: I NPUT#2 , ZU : I NPUT#2 , RA* (32 

):INPUT#2,NO* < 25):INPUT#2,P0 <182> 

34050 FOR T=1 TO AO:INPUT#2,0(T):NEXT <187> 

34060 FOR T=1 TO AF:INPUT#2,FL(T>:NEXT <137> 

34100 CLOSE 2:PRINT"£ERTIG." <088> 

34200 GOTO 1080 <104> 

34500 PRINT"AILDSCHIRMFARBE(8SPACE>(£1+AET 

URNX2SPACEX >":POKE 650,128 <084> 

34510 GET A*:IF A*="(Fl}"THEN F0=F0+1:IF F 

0=15 THEN F0=0 <253> 

34520 IF A*=CHR*(13)THEN 34540 <130> 

34530 POKE 53280,F0:POKE 53281,F0:GOTO 345 

fei < 134 > 

34540 PR INT "SCHRIFTFARBE AINGABE(3SPACEJ(£ 

1+ÄETURN)(2SPACE> > (RVSON,SPACE,RVOFF 
X(2LEFT>"; <046> 

34545 GET A* <208> 

34550 IF A*="(F1 > "THEN F1=F1+1:IF Fl=15 TH 

EN F1=0 <167> 

34560 IF A*=CHR*(13)THEN 34580 <174> 

34570 POKE 646,Fl SPRINT"{RVSON,SPACE,RVOFF 

,LEFT}";:GOTO 34545 <100> 

34580 POKE 646,F2:PRINT:PRINT“flCHRIFTFARBE 
AUSGABE(3SPACE>(£1+AETURN)(2SPACE > > 

<RVSON,SPACE,RVOFFX <2LEFT>“; <229> 

34585 GET A* <250> 

34590 IF A*=" (F1 >"THEN F2=F2+1:IF F2=15 TH 

EN F2=0 <045> 

34595 IF A*=CHR*(13)THEN 34600 <013> 

34598 POKE 646,F2:PRINT"(RVSON,SPACE.RVOFF 

,LEFT >";:GOTO 34585 <130> 

34600 PRINT: PRINT"ACHRIFTFARBE JSOPFZEILE ( 

£1+AETURN)<2SPACE> >(RVSON,SPACE,RVOF 
FX(2LEFT>“; <137> 

34610 GET A* <019> 

34620 IF A*="(F1>"THEN F3=F3+1:IF F3=15 TH 

EN F3=0 <167> 

34630 IF A*=CHR*(13)THEN 34650 <178> 

34640 POKE 646,F3:PRINT"(RVSON,SPACE,RVOFF 

,LEFT>"}:GOTO 34610 <137> 

34650 POKE 650,0:PRINT:GOTO 1080 <212> 

35000 X*="N":GOTO 1520 <065> 

35010 X*="S":GOTO 1520 <140> 

35020 X*="W"sGOTO 1520 <151> 

35030 X*="0"sGOTO 1520 <159> 

35040 X*=“OB":GOTO 1520 <192> 

35050 X*="U":GOTO 1520 <053> 

35500 PRINT"AU HASST";:ZU=ZU-1 <160> 

35510 IF ZU=1 THEN PRINT" EINEN AEFEHL GEG 

EBEN!":GOTO 35525 <102> 

35511 IF ZU=0 THEN PRINT" NOCH KEINEN AEFE 

HL GEGEBEN!":GOTO 1500 <1B7> 

35520 PRINT ZU'^FEHLE GEGEBEN!" <033> 

35525 IF P0=1 THEN PRINT"AU HASST EINEN £U 

NKT."sGOTO 35560 <040> 

35527 PRINT"AU HASST"PO"£UNKTE.“ <149> 
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35560 

PRINT"ABER DAS SPIEL HASST DU NOCH N 
ICHT " 

<100> 

37020 FOR T=1 TO 2000:NEXT 

37030 PRINT"{DOWN>ICH ERWACHE,UND SEHE-H 

<065> 

35570 

PRINT”GEWONNEN!":GOTO 1500 

<011> 

HS?" 

< 116> 

36000 

X*=RIGHT*(X*,LEN(X*)-5) 

<0B0> 

37040 PRINT"ZCH BIN JA GANZ WO ANDERS...“ 

<219> 

36010 

IF LEFT*(X*,l)OCHR*(34)THEN PRINT "fl 
NFUEHRUNGSZEICHEN VERGESSEN V:GOTO 1 


37045 PO=PO+1:GOTO 1080 

38000 PRINT"flINE KOMPLETTE ANLEITUNG KANN 

<0BB> 

36011 

500 

IF RIGHT*(X*,1X>CHR*(34>THEN PRINT” 

< 127> 

ICH" 

38010 PRINT"DIR SO AUF DIE SCHNELLE NICHT 

<243> 


URONG .INPUT! ” : GOTO 1500 

< 113> 

GEBEN," 

< 140> 

36020 

FOR ZA=1 TO AZ 

< 162> 

38020 PRINT"ABER EIN PAAR 3PICKS:" 

<021 > 

36030 

IF ZA#(ZA)=X*THEN 36310 

<055> 

38030 PRINT"AAVE IMMER ALLES AB,BEVOR DU E 


36040 

NEXT 

<235> 

TWAS GE—" 

< 156> 

36300 

PRINT X*”,NICHTS PASSIERT!”:GOTO 150 
0 

<110> 

38040 PRINT"FAEHRLICHES AUSPROBIERST." 
38050 PRINT"UNTERSUCHE ALLES GENAU UND LES 

<220> 

36310 

ON ZA GOTO 36500,36600,36700,36800 

<044 > 

E ALLES" 

<100> 

36500 

IF SP<>41 THEN PRINT"HIER GIBT'S NIC 
HTS ZUM SCHWIMMEN!GOTO 1500 

<037 > 

38060 PRINT"SQRGFAELLTIG." 

38070 PRINT"’SCORE’ BZW. 'SPIELSTAND' SAGT 

< 149> 

36505 

IF FL(9)THEN SP=1B:FL <7)=0:PRINT"£UH 
,BIN DOCH GERETTET!“:GOTO 10B0 

< 16B> 

DIR,WIE-" 

38080 PRINT"VIELE AEFEHLE DU SCHON GEGEBEN 

<051 > 

36510 

SP=1B:FL(7)=0:FL(9)=—1:PRINT"£UH,BIN 


HASST," 

<022 > 

36600 

DOCH GERETTET!":PO=PO+l:GOTO 1080 

IF SP<>33 THEN PRINT"AAS GEHT LEIDER 

<033> 

38090 PRINT"UND DEINE PUNKTZAHL.” 

38095 PRINT"ZAUBERSPRUECHE WERDEN ANGEWEND 

<068> 

36610 

NICHT!GOTO 1500 

IF FL<5>=0 THEN PRINT"ICH HABE DAS fl 

<080> 

ET,INDEM" 

38100 PRINT"MAN 'SAGE "CHR*(34)"ZAUBERSPRU 

<019> 

36620 

CHWERT NOCH NICHT!":GOTO 1500 

SP=2:PRINT"ZWOQOCHH...HAU,ECHT GEIL 

<065> 

CH"CHR*(34)"’ TIPPT." 

38110 PRINT"flIN ZAUBERSPRUCH IST EIN AEFEH 

<041> 

36700 

SO’N ZAUBER!":PO=PO+l:GOTO 1080 

IF SP<>33 THEN PRINT"ZCH SEH DEN ARA 

<213> 

L,DER" 

38120 PRINT”RUECKWAERTS EINGEGEBEN WERDEN 

<175> 


CHEN JA GAR NICHT!”:GOTO 1500 

<041 > 

MUSS!": 

< 146> 

36710 

IF FL(6)THEN PRINT"HER ARACHE IST SC 


38999 GOTO 1500 

< 156> 


HON TOT!":GOTO 1500 

<02B> 

39500 SYS 867:PRINT CHR*(14) 

< 109> 

36720 

PRINT: PRINT: PRINT: PRINT"£ENG, ZACK, AL1 


39510 F0=0:F1=5:F2=3:F3=5 

< 171 > 


FF..." 

<233> 

39530 GOTO 39800 

<028> 

36730 

PRINT"3_ITZE ZUCKEN,flLAMMEN LODERN,D 


39700 PRINT CHR*(142):SYS 820 

< 190> 


ER ARACHE" 

<086> 

39710 F0=6:F1=0:F2=15:F3=15 

<159> 

36731 

PRINT”IST TOT,ENDLICH BESIEGT!" 

< 184> 

39800 : 

< 151 > 

36732 

NO*(25)="DEN TOTEN APACHEN”:FL(6)=-l 

<091 > 

39810 POKE 53280,F0:POKE 53281,F0 

<043> 

36740 

PRINT”IDOWNJAER HEILIGE ÜANN ERSCHEI 


39830 GOTO 1080 

<146> 


NT.flR SAGT:” 

<16B> 

40000 PRINT"SIE ZEIT VERGEHT...":GOTO 1500 

<123> 

36750 

PRINT CHR*(34);:POKE 646,Fl 

<000> 

50000 X*=“":A*="":POKE 646,Fl:PRINT:PRINT" 


36760 

PRINT"AU HASST MEINE ERWARTUNGEN VOL 


5CLEFT1"; 

<125> 


L” 

< 148> 

50030 GET A*:IF A*=""THEN 50030 

< 137> 

36761 

PRINT” ERFUELLT.IEH LEGE NUN MEIN AM 


50031 POKE 212,0 

<097> 

36762 

T NIEDER" 

PRINT" UND GEBE ALLES AN DICH,MEIN fl 

<244> 

SPO'-'S IF A*=CHR* (13) THEN 50300 

50034 IF A*="<HOME>"THEN GOSUB 50500:GOTO 

< 178> 


CHUELER.” 

<235> 

50030 

<014> 

36763 

PRINT” iEB WOH1-”;:POKE 646,F2:PRI 

NT CHR*(34) 

< 113> 

50035 IF A*=CHR*(32)THEN 50080 

50036 IF A*=CHR*(34)THEN POKE 212,1:GOTO 5 

<24B> 

36770 

PRINT"ACH RUFE IHM NOCH NACH,DOCH ER 
IST" 

<044> 

0080 

50037 IF A*=CHR*(20)THEN GOSUB 50400:GOTO 

<227> 

36771 

PRINT"SCHON WEG.HUN BIN ICH DER ZAUB 


50030 

<218> 


ERER UND” 

<137> 

50038 IF LEN(X*)>78 THEN 50030 

<221 > 

36772 

36773 

PRINT"HEILIGE HANN." 

PRINT"<DOWN}AN DER HAND ERSCHEINT EI 

<225> 

50050 IF A*<"A"OR A*>"Z"THEN 50030 

50080 PRINT A*;"@<LEFT>";:X*=X*+A*:GOTO 50 

<091 > 


NE SCHRIFT,DIE” 

<058> 

030 

< 199> 

36774 

PRINT"BESAGT,DASS DAS flDVENTURE NOCH 


50300 IF LEN(X*)<1 THEN GOTO 50030 

< 168> 


NICHT":PRINT"BESCHLAGEN IST!" 

<219> 

50301 PRINT" ":RETURN 

< 137> 

36776 

PO=PO+l 

<016> 

50400 L=LEN(X*):IF L<1 THEN RETURN 

<0B6> 

36777 

PRINT"<4D0WN>(flORE)<2UP>" 

< 151 > 

50415 X*=LEFT*(X*,L—1>:PRINT"<SPACE,2LEFT> 


36780 

GET A*:IF A*=““THEN 36780 

<040> 

5 CLEFT > "; 

<243> 

36785 

FL(6)=—1:GOTO 1080 

< 1B2> 

50430 RETURN 

< 193> 

36800 

IF NOT 0(32)THEN PRINT"ÜAB' KEINE AA 
MPE!":GOTO 1500 

<254> 

50500 IF LEN(X*)<1 THEN RETURN 

50501 PRINT"{SPACE,LEFT>";:FOR S=1 TO LEN( 

<108> 

36810 

IF SP< >32 THEN PRINT"AIN DOCH NICHT 


X*) 

<055> 


BLIND!":GOTO 1500 

<14B> 

50510 PRINT"{SPACE,2LEFT>";:NEXT 

<064> 

36B20 

FL(4)=—1:PRINT 

<21B> 

50520 PRINT"0{LEFT>";:X*="":RETURN 

< 198> 

36830 

PRINT"AER ZWERG FREUT SICH UEBER DAS 


51000 FOR 1=1 TO 10:BE*(I)="":NEXT 

<164> 


AICHT.” 

<205> 

51020 WZ=1 

<091> 

36840 

36B45 

PRINT"ICH SCHENKE IHM DIE AAMPE.” 
PRINT"flR VERSTECKT SIE SCHNELL IN SE 

<037> 

51030 FOR 1=1 TO LEN(X*> 

51040 IF MID*(X*,I,1>=" "THEN GOSUB 51100: 

<065> 


INER" 

<037> 

GOTO 51060 

<065> 

36850 

PRINT“flOEHLE.":O(32>=0 

<015> 

51045 IF WZ>10 THEN PRINT”£1NGABE IST ZU L 


36860 

PRINT"flR BEGINNT ZU ERZAEHLEN:” 

< 173> 

ANG!":ER=1:RETURN 

<101> 

36861 

PRINT CHR*(34);:POKE 646,Fl 

< 111 > 

51050 BE*(WZ)=BE*(WZ)+MID*(X*,1,1) 

<083> 

36862 

PRINT"AER APACHE IST MIT flAGIE EINFA 


51060 NEXT:GOSUB 51100:WZ=WZ-1 

< 124> 


CH ZU" 

<064 > 

51070 RETURN 

<071 > 

36863 

PRINT" BESIEGEN..-BENUTZE DEIN HISSE 


51100 REM AUSSORTIEREN 

<086> 


N! "; 

<0B4> 

51110 IC=0:FOR 11=1 TO AU 

<1B4> 

36864 

POKE 646,F2:PRINT CHR*(34) 

<058> 

51120 IF BE*(WZ> =AU*(11)THEN IC=1 

<0B4> 

36865 

PRINT"HEHR WILL ER NICHT SAGEN!" 

<064> 

51130 NEXT 

<083> 

36866 

PRINT"SP VERSCHWINDET...":O(24)=0 

<088> 

51140 IF IC=0 THEN WZ=WZ+1:RETURN 

<1B0> 

36B70 

RA*(32)="IN EINER HELLERLEUCHTETEN17 

51150 BE*(WZ)="":RETURN 

< 116> 


SPACE JflOEHLE. " : PO=PO+1: GOTO 10B0 

<196> 

52000 IF BE*(1> = "SAGE"THEN V2=20:RETURN 

<002> 

37000 

IF SP<>17 THEN PRINT"flIN NICHT MUEDE 
!":GOTO 1500 

< 178> 

52001 02=0:V2=0:IF WZ>1 THEN 52008 

52002 FOR T=1 TO A2:IF V2*(T)=BE*(1)THEN V 

<164> 

37010 

PRINT"AANGSAM SINKE ICH IN DEN SCHLA 

2=T:RETURN 

< 163> 


F...":SP=18 

<248> 

52003 NEXT 

< 196> 
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52008 IF WZ>3 THEN PRINT"flAS SOLL DAS BEDE 
UTEN?":GOTQ 1500 

52009 FOR T«=1 TO AV 

52010 IF VE*(T)=BE*<1)THEN V=T:GOTO 52100 
52020 NEXT 

52030 PRINT"'"BE*(l)" - KENNE ICH NICHT!"sE 
R=llRETURN 
52100 FOR T=1 TO AO 

52110 IF O*(T)=BE*(2)THEN 01=T:G0T0 52150 
52120 NEXT 

52130 PRINT"JS£IN SOMEN GEFUNDEN!“:ER=1:RET 
URN 

52150 IF WZ=2 THEN RETURN 
52200 FOR T=1 TO AO 

52210 IF O* CT)=BE* <3)THEN 02=T:G0T0 52300 
52220 NEXT 

52230 PRINT.BE*(3)"- KENNE ICH NICHT!"sE 

R-l 

52300 RETURN 

53000 X=PEEK <211> s Y“PEEK(214):POKE 646,F3 
53010 PRINT"{HOME,R VSQN,31SPACE } JXE flWORD< 
RVOFF >" 

53020 PRINT"{HOME,RVSON >"5 KR* < SP >;"{RVOFF> 

53030 POKE 211, X:POKE 214,Y:SYS 58732 
53050 RETURN 

54000 POKE 646,F2:PRINT"SQCHMAL?" 

54010 GOSUB 50000:IF LEFT*(X*,1)="J"THEN P 
OKE 53280,6:P0KE 53281,6:RUN 20 
54020 GOTO 60000 
56000 SYS 867:RETURN 

56500 PRINT"£.1 LE—SUMMER <l-3) g{LEFT>"; 

56510 GET E*:IF E*<>"1"AND E*<>"2"AND E*<> 
"3"THEN 56510 

56511 IF E*—"1"THEN N*="C" 

56512 IF E*="2"THEN N*="D" 

56513 IF E*="3"THEN N*=”E" 

56520 PRINT E*”*-" : RETURN 
57000 POKE 646,F2:PRINT 

57010 PRINT"flER HEILIGE flANN ERBLICKT SEIN 
EN" 

57020 PRINT"flCHUELER «MICH) UND SAGT:" 
57030 PRINT CHR* <34);:POKE 646,Fl 
57040 PR INT "ICH BIN STOLZ,MEIN flCHUELER ! " 
57050 PRINT" UJ WOLLTEST ZAUBERER WERDEN,U 
ND JETZT" 

57060 PRINT" STEHST DU VOR DER ABSCHLIESSE 
NDEN” 

57070 PRINT" PRUEFUNG.XDETE DEN BRACHEN,DE 
R IN DEM" 

57080 PRINT" VULKAN ' VJETUS' LEBT UND NIMM 
DAS" 

57085 PRINT" ZAUBERSCHWERT,DAS ER BEWACHT! 

57090 PRINT"{SHIFT—SPACE>£ELINGT DIR DIES, 
BIST DU WAHRLICH" 


<218> 

<216> 

<223> 

<213> 

< 10B> 
<044> 

< 192 > 
<057> 

<033> 

<029> 

< 144> 
<062> 

< 157> 

<226> 
<031 > 

< 19B> 

<025> 

< 127> 
<051 > 
<019> 
< 220 > 

<246> 

< 175> 
<206> 

< 157> 

<017> 

< 163> 

< 102 > 
<039> 
<214> 

< 183> 

<165> 
<069> 
<214> 
<227> 

< 139> 
<247 > 
<227> 
<096> 
<134> 

< 121 > 


57091 

57092 

57093 

57094 

57095 

57100 

57110 

57120 

60000 

60010 

60020 

60030 

60031 
60035 
60040 

60050 

60060 

60065 

60070 

60080 

60090 

60100 

60110 


60130 

60900 

61000 

61010 

61020 

61030 

62000 


PRINT" FUER WUERDIG BEFUNDEN,EIN ZAU 
BERER" 

PRINT" ZU SEIN.";:POKE 646,F2:PRINT 
CHR*(34) 

PRINT"SER HEILIGE flANN,MEIN AEHRMEIS 
TER," 

PRINT"SCHEINT SICH IN JJJFT AUFZULOES 
EN!" 

PRINT"I£TZT BIN ICH AUF MICH GESTELL 
T!“ 

PRINT"C2D0WN >< flORE >{2UP >" 

BET A*:IF A*=""THEN 57110 
RETURN 

POKE 59639,16:POKE 53280,6:POKE 5328 
1,6 

SYS 820 

PRINT"{4D0WN,12SPACE,LIG.RED,2SPACE> 
£INK flRTS:" 

PRINT"{2D0WN,BSPACE,BLACK > £ {2SPACE >1 
ü fl{2SPACE>fl H fl Ä fl{2SPACE>£" 
PRINT"<2D0WN,5SPACE>@ 1986 BY fl.flOMM 
ER AND fl.flDOMAT" 

PR I NT " {5D0WN }»_l. 

M*="CBSPACE >IHE flWORD{SPACE,WHITE >BY 
{SPACE,LIG.RED>£INK flRTS{BLACK}GOS 
UB 61000 

M*="{7SPACE>£R0GRAMING : ARNE SOMMER 
":GOSUB 61000 

M*="{6SPACE>iDEA : fl.SOMMER AND fl.fiD 
OMAT":GOSUB 61000 

M*="{2SPACE>STORY AND HAP : S.SOMMER 
+ fl.flDOMAT":GOSUB 61000 
M*="{5SPACE>flPECIAL SFFECTS : flVEN fl 
DOMAT":GOSUB 61000 

M*="{5SPACE>£RAFICS : fl.SOMMER + fl.fl 
DOMAT":GOSUB 61000 

M*="{5SPACE JflOTIVATION : fllRTHE ÜIET 
MANN”:GOSUB 61000 

M*=“{5SPACE>fiREETINGS TO ALL OUR FRI 
ENDS!":GOSUB 61000 

M*="flND COMING SOON : SITTER + flWORD 
°“T 2 {LEFT > ” : GOSUB 61000 

SEHNLICHKEITEN MIT WIRKLICHEN fl 
EGEBEN—{2SPACE}HEITEN UND SAMEN SIND 
REIN" 

M*=M*+" ZUFAELLIG!GOSUB 61000 
GOTO 60040 

POKE 214,24:POKE 211,0:SYS 58732 
PRINT M*:PRINT:PRINT:GOSUB 62000 
PRINT:GOSUB 62000:PRINT:GOSUB 62000: 
PRINT:GOSUB 62000:PRINT:GOTO 62000 
RETURN 

FOR T—1 TO 600:NEXT:RETURN 


<001 > 

< 131 > 

< 143> 

< 172> 

<025> 

<054> 

<16B> 

<252> 

<214> 

< 163> 

< 134> 
<149> 
<0B5> 
<025> 

<092> 

< 165> 

< 119> 

< 148> 
<217> 
<253> 

< 117> 

< 162> 
<025> 


<237> 

< 198> 

< 196> 
<053> 
<076> 

<072> 

<125> 

<082> 
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Freiheit 

Warum mußten Sie auch dem König von Foltera- 
nien unangenehm auffallen? Nun müssen Sie 
einen Ausweg aus seinem Kerker finden. 

F reiheit ist ein deutschsprachiges Textadventure, das aus 
28 KByte reiner Maschinensprache besteht. Die Auf¬ 
gabe des Spieles ist ein Gefängnisausbruch von einer 
Insel. Nach vielen Problemen auf der Nachbarinsel endet die 
Suche, wenn Sie endlich im Flugzeug nach Hause sitzen. 
Zum Spiel selbst: Es existieren beinahe 100 Räume, in denen 
sich etwa zwei Dutzend Personen aufhalten können. Außer¬ 
dem gibt es natürlich viele diverse Gegenstände sowie einen 
knapp 150 Worte umfassenden Sprachschatz, der sich mit 
dem Befehl »VERBEN« ausgeben läßt. 

Alle Eingaben sind voll abgesichert. Es werden ganze 
Sätze verstanden. Bei Eingaben, die sich auf mehrere Dinge 
beziehen, sind diese ALLE anzugeben. Ein Beispiel: 


»NIMM DIE MÜNZE AUS DER KISTE« ist gleichbedeutend 
zu »NIMM MÜNZE KISTE« oder »NIMM KISTE MÜNZE«. Das 
Wort »UND« ist zulässig, hat aber eine Einschränkung: will 
man zum Beispiel die Münze und den Stock in die Kiste legen, 
kann »UND« nicht verwendet werden, da folgender Satz zwei¬ 
deutig wäre: 

»LEGE DIE MÜNZE UND DEN STOCK IN DIE KISTE«. 

Der Computer nimmt an, Sie wollen die Münze auf den 
Boden und den Stock in die Kiste legen. Dies ist aber ein 
seltener Effekt. Die Eingabe von Abkürzungen ist bis auf 
einige Vordefinitionen der wichtigsten Verben nicht zuge¬ 
lassen. Für die Eingabe bleibt dem Spieler nur eine Minute, 
danach wird »WARTE« ausgeführt, und die eigene Eingabe 
geht verloren. »LADE« und »SPEICHERE« bedürfen keiner 
weiteren Erläuterung. Man wird durch ein kleines Menü 
geführt (Kassette oder Diskette). 

Am Schluß noch ein Tip: speichern Sie gelegentlich den 
Zwischenspielstand. Es könnte plötzlich eine Person auftau¬ 
chen, die einen möglicherweise sucht... 

(Bodo Mertins/dm) 
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05 

OC 

CC 

CI 

CE 

C4 

22 

OBF 1 


D7 

C9 

D2 

D4 

07 

05 

OD 

CD 

64 

0BF9 


CF 

CE 

D4 

C5 

D5 

D2 

OB 

05 

3B 

OCOl 


OF 

DO 

CF 

CC 

C9 

DA 

C9 

D3 

4B 

0C09 


D4 

07 

05 

11 

D3 

D4 

D2 

C5 

7F 

0C11 

3 

C9 

C6 

C5 

OB 

05 

12 

C6 

CF 

4B 


»Freiheit«. Bitte mit dem MSE eingeben 


0C19 


C5 

D2 

D3 

D4 

C5 

D2 

OA 

05 

FC 

0C21 


13 

D3 

D4 

C5 

D7 

CI 

D2 

C4 

6 C 

0C29 


C5 

D3 

DZ 

12 

05 

14 

D4 

C9 

E7 

0C31 


C3 

CB 

C5 

D4 

D6 

C5 

D2 

CB 

64 

0C39 


CI 

C5 

D5 

C6 

C5 

D2 

C9 

CE 

E3 

0C41 


OC 

05 

14 

D6 

C5 

D2 

CB 

CI 

55 

0C49 


C5 

D5 

C6 

C5 

D2 

C9 

CE 

11 

3C 

0C51 


05 

16 

C6 

CC 

D5 

C7 

C8 

CI 

EF 

0C59 


C6 

C5 

CE 

DO 

CF 

CC 

C9 

DA 

10 

0C61 


C9 

D3 

D4 

08 

05 

17 

DA 

CF 

5E 

0C69 


C5 

CC 

CC 

CE 

C5 

D2 

07 

05 

BA 

0C71 


18 

DO 

CI 

D3 

D3 

CI 

CE 

D4 

OC 

0C79 


03 

05 

01 

CD 

C9 

D2 

06 

05 

4E 

0CB1 


01 

C7 

D2 

C5 

C7 

CF 

D2 

05 

23 

0C89 


04 

01 

CB 

C9 

D3 

D4 

C5 

07 

43 

0C91 


04 

02 

C2 

CF 

D4 

D4 

C9 

C3 

E3 

0C99 


CB 

06 

04 

03 

CB 

CI 

D3 

D4 

BA 

0 CA1 


C5 

CE 

07 

04 

04 

D3 

C3 

CB 

BF 

0CA9 


D2 

CI 

CE 

CB 

07 

04 

05 

C2 

B3 

0CB1 


D2 

D5 

CE 

CE 

C5 

CE 

09 

04 

FA 

OCB9 


06 

C2 

C5 

CB 

CI 

C5 

CC 

D4 

D2 

0CC1 


C5 

D2 

04 

04 

07 

D2 

CF 

CB 

49 

0CC9 


D2 

09 

04 

OB 

C3 

CF 

CE 

D4 

C2 

0CD1 


CI 

C9 

CE 

C5 

D2 

OB 

04 

09 

BB 

OCD9 


CI 

CC 

CI 

D2 

CD 

CI 

CE 

CC 

BB 

0CE1 


CI 

C7 

C5 

OA 

04 

OA 

CD 

D5 

AC 

0CE9 


C5 

CC 

CC 

D4 

CF 

CE 

CE 

C5 

IC 

OCF1 


05 

04 

OB 

D4 

CF 

CE 

CE 

C5 

90 

0CF9 


04 

03 

01 

DO 

CI 

D3 

D3 

03 

E9 

0D01 


03 

02 

D5 

CB 

D2 

06 

03 

03 

03 

0D09 


D4 

C9 

C3 

CB 

C5 

D4 

04 

03 

45 

0D11 


04 

C7 

C5 

CC 

C4 

OA 

03 

05 

B6 

0D19 


CB 

D5 

D3 

D4 

C5 

CE 

D3 

CI 

01 

0D21 


C6 

D4 

05 

03 

06 

CI 

CE 

DA 

52 

0D29 


D5 

C7 

04 

03 

07 

C7 

CF 

CC 

CB 

0D31 


C4 

OA 

03 

OB 

D3 

C3 

CB 

CC 

D4 

0D39 


D5 

C5 

D3 

D3 

C5 

CC 

05 

03 

3D 

0D41 


09 

C5 

D3 

D3 

C5 

CE 

OF 

03 

Bl 

0D49 


OA 

DA 

D5 

C5 

CE 

C4 

D3 

C3 

DB 

0D51 


CB 

CC 

Dt, 

C5 

D3 

D3 

C5 

CC 

3A 

0D59 


03 

03 

OB 

CI 

DB 

D4 

04 

03 

23 

0D61 


OC 

D3 

C5 

C9 

CC 

07 

03 

OD 

2C 

0D69 


D3 

C3 

CB 

CD 

D5 

C3 

CB 

06 

CO 

0D71 


03 

OE 

C2 

C5 

C3 

CB 

C5 

D2 

24 

0D79 


09 

03 

OF 

C2 

CC 

C5 

C9 

D3 

EA 

0DB1 


D4 

C9 

C6 

D4 

04 

03 

10 

C2 

A4 

0DB9 


CI 

CC 

CC 

07 

03 

11 

DA 

C5 

74 

0D91 


C9 

D4 

D5 

CE 

C7 

06 

03 

12 

FO 

0D99 


C2 

D2 

C9 

CC 

CC 

CS 

04 

03 

El 

0DA1 


13 

C4 

CF 

D3 

C5 

09 

03 

14 

5D 

0DA9 


CB 

CC 

C5 

C5 

C2 

CC 

CI 

D4 

48 

0DB1 


D4 

OA 

03 

15 

C5 

D3 

D3 

C5 

C4 

0DB9 


CE 

CD 

CI 

D2 

CB 

C5 

04 

01 

35 

0DC1 


01 

CE 

CI 

C3 

CB 

OB 

01 

02 

E7 

0DC9 


D2 

C9 

C3 

CB 

D4 

D5 

CE 

C7 

50 

0DD1 


01 

02 

01 

CE 

04 

02 

01 

CE 

DF 

0DD9 


CF 

D2 

C4 

06 

02 

01 

CE 

CF 

06 

0DE1 


D2 

C4 

C5 

CE 

01 

•02 

02 

D3 

30 

0DE9 


04 

02 

02 

D3 

D5 

CS 

C4 

06 

94 

0DF1 


02 

02 

D3 

D5 

C5 

C4 

C5 

CE 

DB 

0DF9 


01 

02 

03 

D7 

04 

02 

03 

D7 

C3 

0E01 


C5 

D3 

D4 

06 

02 

03 

D7 

C5 

C9 

0E09 


D3 

D4 

C5 

CE 

01 

02 

04 

CF 

61 

OE11 


03 

02 

04 

CF 

D3 

D4 

05 

02 

OC 

OE 19 


04 

CF 

D3 

D4 

C5 

CE 

02 

02 

73 

0E21 


05 

CE 

D7 

OB 

02 

05 

CE 

CF 

A7 
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ABENTEUERSPIELE 


C64 


Listing »Freiheit« (Fortsetzung) 
Bitte mit dem MSE eingeben 


0E29 


D2 C4 D7 C5 D3 D4 OA 02 

IC 

0E31 


05 CE CF D2 C4 D7 C5 D3 

B5 

0E39 


04 C5 CE 02 02 06 CE CF 

OF 

0E41 


07 02 06 CE CF D2 C4 CF 

EB 

0E49 


D3 D4 09 02 06 CE CF D2 

CS 

0E51 


C4 CF D3 D4 C5 CE 02 02 

6 B 

0E59 


07 D3 D7 08 02 07 D3 D5 

94 

OE61 


C5 C4 D7 C5 03 D4 OA 02 

47 

0E69 


07 D3 D5 C5 C4 D7 C5 D3 

52 

OE71 


D4 C5 CE 02 02 OB D3 CF 

6 B 

OE79 


07 02 08 D3 D5 C5 C4 CF 

3C 

OEB1 


D3 D4 09 02 OB D3 D5 C5 

43 

0E89 


C4 CF D3 D4 CS CE 01 02 

9F 

OE91 


09 C8 04 02 09 CB CF C3 

DD 

0E99 


C8 04 02 09 02 CI D5 C6 

25 

OE Al 


04 02 09 CF C2 C5 CE 01 

7A 

0EA9 


02 OA D2 06 02 OA D2 D5 

8 D 

OEB1 


CE D4 C5 D2 01 02 OA D5 

A9 

0EB9 


05 02 OA 05 CE 04 C5 CE 

45 

OEC1 


01 02 OB C7 04 02 OB C7 

BB 

0EC9 


C5 CB CS 05 02 OB D2 C5 

54 

OED1 


CE CE C5 04 02 OB D2 C5 

4B 

0ED9 


CE CE 03 02 OB C7 C5 C8 

A7 

OEE1 


04 04 OC C2 CF CF D4 OB 

28 

0EE9 


04 OD D3 04 CS C9 CE DO 

8 B 

OEF1 


CC CI D4 D4 C5 05 02 OC 

12 

0EF9 


CB C9 CC C6 C5 08 02 00 

70 

OFOl 


C9 CE 06 C5 CE D4 D5 D2 

30 

0F09 


01 02 OD C9 04 02 OE CC 

AA 

OF11 


CI C4 C5 09 02 OF D3 DO 

50 

OF19 


C5 C9 C3 C8 C5 02 CS 05 

El 

0F21 


02 10 DO CI D5 D3 C5 04 

B3 

0F29 


02 11 C5 CE C4 C5 04 02 

BD 

OF31 


11 D3 04 CF DO 05 02 12 

BC 

OF39 


07 CI D2 D4 C5 06 02 13 

FB 

OF41 


06 C5 D2 C2 C5 CE 07 02 

FA 

0F49 


13 C2 C5 C6 C5 C8 CC C5 

69 

0F51 


03 02 14 D3 CI C7 04 02 

43 

0FS9 


14 D3 CI C7 C5 04 02 14 

6 D 

OF61 


D2 C5 C4 C5 06 02 14 D3 

68 

0F69 


C3 CS D2 C5 C9 07 02 14 

03 

0F71 


03 C3 C8 D2 C5 C9 CS OB 

84 

OF79 


02 14 CI CE D4 07 CF D2 

CO 

OFB1 


D4 C5 05 02 15 D3 C3 CB 

4A 

OFS9 


CI 05 06 02 15 D3 C3 C8 

87 

OF91 


CI D5 C5 OA 02 15 D5 CE 

AD 

0F99 


04 C5 D2 D3 D5 C3 C8 C5 

A9 

OFA1 


05 02 16 CB CF D2 C3 CB 

7A 

OFA9 


06 02 16 CB CF D2 C3 CB 

83 

OFB1 


C5 05 02 16 CB CF C5 D2 

04 

0FB9 


C5 09 02 17 DA CS D2 D3 

35 

OFC1 


04 CF CS D2 CS OB 02 17 

1B 

0FC9 


DA CS 02 CB CI C3 CB C5 

48 

OFD1 


09 02 18 03' C3 CS CC C9 

A5 

0FD9 


C5 D3 D3 CS OB 02 18 D3 

CE 

OFE1 


C3 CB CC C9 C5 D3 D3 OB 

CF 

0FE9 


02 19 D6 CS 02 CC C9 C5 

2C 

OFF1 


D2 C5 07 02 19 D6 C5 D2 

AD 

0FF9 


CC C9 C5 D2 04 02 19 CC 

C4 

1001 


C5 C7 C5 04 02 19 07 C9 

78 

1009 


D2 C6 05 02 19 07 C5 D2 

CD 

1011 


C6 C5 03 02 1A C9 D3 D3 

A2 

1019 


04 02 1A CS D3 D3 C5 03 

57 

1021 


02 1B C7 C9 C2 04 02 1B 

66 

1029 


C7 CS C2 CS 06 02 IC CF 

BD 

1031 


C5 C6 C6 CE C5 04 02 ID 

A3 

1039 


CE C9 CD CD 05 02 ID CE 

BB 

1041 


C5 CB CD CS 04 02 10 CB 

ED 

1049 


CF CC CS 03 02 10 CB CF 

IC 

1051 


CC 05 02 ID D4 D2 CI C7 

3F 

1059 


C5 04 02 IE CB CS C2 C5 

B6 

1061 


03 02 IE CB CS C2 03 01 

B6 

1069 


01 C9 CE D3 OB 02 1F 06 

3B 

1071 


C5 D2 CC CI 03 D3 C5 06 

OA 

1079 


05 OC C2 CI D5 C5 02 CE 

El 

1081 


03 01 01 CI D5 D3 03 01 

87 

1089 


01 CD C9 D4 09 04 OC CD 

FA 

1091 


CF D4 CF D2 C2 CF CF D4 

AC 

1099 


00 00 00 00 00 B9 31 32 

90 

10A1 


2C 35 2C 31 32 2C 22 D6 

54 

10A9 


C5 02 CB CI CS D5 C6 CS 

B4 

10 B1 


D2 C9 CE 22 00 D7 10 00 

5F 

10B9 


00 B9 31 37 2C 35 2C 31 

49 

10C1 


33 2C 22 C6 CC D5 C7 CB 

9B 

10C9 


CI C6 C5 CE DO CF CC C9 

8 B 

10D1 


DA C9 D3 D4 22 00 EE 10 

ID 

10D9 


00 00 B9 38 2C 35 2C 31 

CE 

10E1 


34 2C 22 DA CF CS CC CC 

07 

10E9 


CE C5 D2 22 00 04 11 00 

F7 

10 F1 


OO B9 37 2C 35 2C 31 35 

05 

10F9 


2C 22 DO CI D3 D3 CI CE 

23 

1101 


D4 22 00 16 11 00 00 B9 

2E 

1109 


33 2C 35 2C 31 36 2C 22 

DF 

1111 


CD C9 D2 22 00 2B 11 00 

59 

1119 


00 B9 36 2C 35 2C 31 36 

EF 

1121 


2C 22 C7 D2 C5 C7 CF D2 

2A 

1129 


22 00 3E 11 00 00 B9 35 

4E 


1131 


2C 

34 

2C 

31 

2C 

22 

CB 

C9 

3F 

1139 


D3 

D4 

C5 

22 

00 

53 

11 

00 

OB 

1141 


00 

B9 

37 

2C 

34 

2C 

32 

2C 

37 

1149 


22 

C2 

CF 

D4 

D4 

C9 

C3 

CB 

97 

1151 


22 

00 

67 

11 

00 

00 

B9 

36 

C3 

1159 


2C 

34 

2C 

33 

2C 

22 

CB 

CI 

97 

1161 


D3 

D4 

C5 

CE 

22 

00 

7C 

11 

20 

1169 


00 

OO 

B9 

37 

2C 

34 

2C 

4C 

6 C 

1171 


9E 

12 

AD 

FA 

09 

DO 

FS 

20 

IE 

1179 


27 

OB 

A9 

OB 

SS 5B 

A9 

E3 

99 

11 B1 


85 

57 

A9 

00 

B5 

39 

BD 

05 

80 

11B9 


OB 

BD 

07 

OB 

SD 

OB 

OB 

AO 

05 

1191 


FF 

AD 

08 

OB 

FO 

OD 

AD 

07 

07 

1199 


OB 

49 

BO 

BD 

07 

OB 

A9 

00 

BA 

11A1 


BD 

OB 

OB 

C8 

Bl 

57 

FO 

C7 

37 

11A9 


C9 

CI 

BO 

OC 

C9 

20 

FO 

El 

26 

11 Bl 


A9 

BO 

BD 

OB 

OB 

4C 

92 

11 

7E 

11B9 


1B 

9B 

65 

57 

85 

57 

A9 

00 

1B 

11C1 


65 

58 

B5 

SB 

AO 

FF 

B4 

59 

BD 

11C9 


CB 

Bl 

57 

FO 04 

C9 

CI 

BO 

55 

11 D1 


F7 

84 

59 

20 

3A 

12 

20 

55 

C4 

11D9 


12 

BO 

2D 

AD 

53 

12 

C9 

01 

33 

11E1 


FO 

16 

AC 

OS 

OB 

CB 

BC 

05 

DB 

11E9 


OB 

AD 

53 

12 

OD 

07 

OB 

99 

4A 

11F1 


04 

OA 

AD 

54 

12 

99 

B4 

OA 

04 

11F9 


1 B 

A5 

57 

65 

59 

B5 

57 

A5 

Dl 

1201 


5B 

69 

00 

B5 

SB 

4C 

90 

11 

OB 

1209 


20 

D6 

09 

C9 

43 

48 

20 

4B 

9D 

1211 


45 

4E 

4E 

45 

20 

27 

00 

A6 

42 

1219 


59 

AO 

00 

Bl 

57 

20 

D2 

FF 

BA 

1221 


CB 

CA 

DO 

F7 

20 

D6 

09 

27 

AD 

1229 


20 

4E 

49 

43 

48 

54 

21 

OD 

Fl 

1231 


00 

A9 

00 

BD 

FA 

09 

4C 

73 

CB 

1239 


11 

A9 

OB 

B5 

5B 

A9 

OA 

B5 

C9 

1241 


SA 

60 

84 

5C 

AO 

00 

Bl 

5A 

FD 

1249 


E6 

5A 

DO 

02 

E6 

5B 

A4 

5C 

65 

1251 


60 

04 

02 

11 

20 

43 

12 

BD 

D6 

1259 


52 

12 

20 

43 

12 

BD 

53 

12 

24 

1261 


20 

43 

12 

BD 

54 

12 

AD 

52 

BA 

1269 


12 

DO 

03 

4C 

9C 

12 

C5 

59 

52 

1271 


FO 

OC 

AE 

52 

12 

20 

43 

12 

Bl 

1279 


CA 

DO 

FA 

4C 

55 

12 

A9 

00 

BO 

1281 


SD 

09 

OB 

AB 

A6 

59 

20 

43 

A7 

1289 


12 

Dl 

57 

FO 

03 

EE 

09 

OB 

5A 

1291 


CB 

CA 

DO 

F2 

AD 

09 

OB 

DO 

42 

1299 


BB 

18 

60 

3S 

60 

AD 

FA 

09 

Fl 

12 A1 


DO 

19 

A9 

OO 

SD 

FB 

09 

BD 

60 

12A9 


FE 

09 

BD 

FF 

09 

BD 

00 

OA 

AO 

12B1 


BD 

BD 

03 

OA 

8 D 04 OA 

f.7 *0 
1-0 j9 

2B 

12B9 


06 OB 

A9 

00 

BD 

B4 

12C1 


BD 

FD 

09 

BD 

01 

OA 

BD 

02 

DB 

12C9 


OA 

BD 

FA 

09 

AD 

06 

OB 

CD 

4C 

12 D1 


05 

OB 

DO 

03 

4C 

C6 

13 

AC 

91 

12D9 


06 

OB 

C8 

8 C 

06 

OB 

B9 

04 

DO 

12E1 


OA 

C9 

02 

FO 

2D 

C9 

03 

FO 

7E 

12E9 


4F 

C9 

04 

FO 

66 

C9 

05 

FO 

E7 

12 F1 


70 

C9 

82 

FO 

7A 

C9 

83 

DO 

AA 

12F9 


03 

4C 

B9 

13 

C9 

84 

DO 

03 

Fl 

1301 


4C 

A6 

13 

C9 

85 

DO 

03 

4C 

22 

1309 


B6 

13 

A9 

01 

BD 

FA 

09 

4C 

41 

1311 


C6 

13 

B9 

84 

OA 

BD 

FB 

09 

6 F 

1319 


A9 

00 

BD 

FC 

09 

BD 

FD 

09 

CC 

1321 


BD 

FE 

09 

BD 

FF 

09 

BD 

00 

AO 

1329 


OA 

BD 

01 

OA 

BD 

02 

OA 

BD 

AB 

1331 


03 

OA 

BD 

04 

OA 

4C 

CD 

12 

7C 

1339 


B9 

84 

OA 

AE 

FC 

09 

DO 

03 

EE 

1341 


BD 

FC 

09 

BD 

FD 

09 

CD 

FC 

9A 

1349 


09 

DO 

05 

A9 

00 

BD 

FD 

09 

A7 

1351 


4C 

CD 

12 

B9 

B4 

OA 

BD 

FE 

OC 

1359 


09 

A9 

00 

BD 

FF 

09 

4C 

CD 

FE 

1361 


12 

B9 

B4 

OA 

BD 

FF 

09 

A9 

02 

1369 


00 

BD 

FE 

09 

4C 

CD 

12 

B9 

00 

1371 


B4 

OA 

29 

7F 

BD 

00 

OA 

A9 

B9 

1379 


00 

BD 

01 

OA 

BD 

02 

OA 

BD 

EE 

1381 


03 

OA 

BD 

04 

OA 

4C 

CD 

12 

CC 

1389 


B9 

84 

OA 

29 

7F 

AE 

01 

OA 

B2 

1391 


DO 

03 

BD 

01 

OA 

BD 

02 

OA 

90 

1399 


CD 

01 

OA 

DO 

05 

A9 

00 

BD 

3C 

13A1 


02 

OA 

4C 

CD 

12 

B9 

84 

OA 

BA 

13A9 


29 

7F 

BD 

03 

OA 

A9 

00 

BD 

5F 

13B1 


04 

OA 

4C 

CD 

12 

B9 

B4 

OA 

9C 

13B9 


29 

7F 

BD 

04 

OA 

A9 

00 

BD 

8 F 

13C1 


03 

OA 

4C 

CD 

12 

AD 

FB 

09 

27 

13C9 


FO 

01 

60 

A9 

00 

BD 

06 

OB 

22 

13D1 


20 

D6 

09 

C4 

49 

45 

53 

45 

CE 

1309 


52 

20 

D3 

41 

54 

5A 

20 

4B 

B2 

13E1 


41 

54 

20 

4B 

45 

49 

4E 

20 

D6 

13E9 


D6 

45 

52 

42 

21 

OD 

OO 

A9 

OD 

13F1 


00 

BD 

FA 

09 

4C 

73 

11 

20 

7C 

13F9 


D6 

09 

D3 

49 

45 

20 

42 

45 

5B 

1401 


46 

49 

4E 

44 

45 

4E 

20 

53 

F6 

1409 


49 

43 

4B 

20 

49 

4E 

20 

45 

IC 

1411 


49 

4E 

45 

52 

20 

C7 

45 

46 

FF 

1419 


41 

45 

4E 

47 

4E 

49 

53 

2D 

50 

1421 


20 

20 

5A 

45 

4C 

4C 

45 

2E 

29 

1429 


OD 

C5 

53 

20 

49 

53 

54 

20 

B2 

1431 


53 

45 

48 

52 

20 

55 

4E 

47 

FB 
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C64 


Listing »Freiheit« (Fortsetzung) 

20A9 : 41 55 46 20 45 49 4E 45 BD 

20B1 : 52 20 C2 52 55 45 43 4B 31 

20B9 : 45 2E OD C4 41 52 55 4E BA 

20C1 : 54 45 52 20 46 4C 49 45 C7 

20C9 : 53 53 54 20 45 49 4E 20 F7 

20D1 ! 42 52 45 49 54 45 52 20 BO 

20D9 : C6 4C 55 53 53 2E OD OD 7A 

20E1 : 00 60 20 D6 09 D3 49 45 D3 

20E9 : 20 53 49 4E 44 20 41 4E B6 

20F1 : 20 45 49 4E 45 4D 20 C2 95 

20F9 : 52 45 49 54 45 4E 20 C6 AO 

2101 : 4C 55 53 53 2C 20 4D 49 C3 

2109 i 54 20 20 20 20 56 49 45 DE 

2111 i 4C 45 4E 20 D3 54 52 4F 5F 

2119 : 4D 53 43 48 4E 45 4C 4C C3 

2121 : 45 4E 21 OD OD 00 60 4C 62 

2129 s F9 1F 4C E3 20 20 D6 09 B2 

2131 s D3 49 45 20 53 49 4E 44 3F 

2139 i 20 49 4E 20 45 49 4E 45 FB 

2141 s 4D 20 47 52 4F 53 53 45 22 

2149 s 4E 20 D3 55 4D 50 46 21 FA 

2151 i OD CD 41 4E 20 56 45 52 CD 

2159 t 53 49 4E 4B 54 20 4B 4E 5E 

2161 r 49 45 54 49 45 46 21 OD BO 
2169 s OD 00 60 4C AO 1B 4C 2E B8 
2171 : 21 20 D6 09 D3 49 45 20 56 

2179 : 53 49 4E 44 20 49 4E 20 53 

2181 : 45 49 4E 45 52 20 4B 4C 93 
2189 s 45 49 4E 45 4E 20 CE 49 63 

2191 : 45 53 43 4B 45 2E OD OD 6E 
2199 s OO 60 20 D6 09 D3 49 45 BB 
21Al : 20 53 49 4E 44 20 49 4E 8E 
21A9 s 20 45 49 4E 45 4D 20 4B 5E 
21B1 s 55 52 5A 45 4E 20 D4 55 52 

21B9 s 4E 4E 45 4C 2E OD OD 00 B9 
21C1 : 60 4C AO 1B 20 D6 09 D3 57 
21C9 : 49 45 20 53 49 4E 44 20 80 

21D1 : 49 4E 20 45 49 4E 45 52 B3 
21D9 s 20 C7 52 4F 54 54 45 2E B5 
21E1 : OD D4 52 4F 50 46 45 4E CO 
21E9 s 20 46 41 4C 4C 45 4E 20 6F 
21F1 s 41 55 46 20 44 45 4E 20 5A 
21F9 3 C2 4F 44 45 4E 2E OD OD CI 
2201 s 00 60 20 D6 09 D3 49 45 F3 
2209 3 20 42 45 46 49 4E 44 45 07 

2211 3 4E 20 53 49 43 48 20 49 F7 
2219 s 4E 20 45 49 4E 45 4D 20 76 
2221 3 C6 45 4C 53 53 50 41 4C 5D 
2229 3 54 2E OD OD 00 60 20 D6 AB 
2231 3 09 D3 49 45 20 42 45 46 D5 
2239 3 49 4E 44 45 4E 20 53 49 29 

2241 s 43 48 20 49 4E 20 45 49 67 

2249 s 4E 45 52 20 47 52 4F 53 BD 
2251 3 53 45 4E 20 20 20 20 20 A2 
2259 3 20 C5 42 45 4E 45 2E OD 77 
2261 s C9 4D 20 D3 55 45 44 45 6E 
2269 3 4E 20 48 4F 45 52 45 4E 5C 
2271 3 20 53 49 45 20 C6 4C 55 4A 
2279 3 47 4C 41 45 52 4D 21 OD OE 
2281 3 OD 00 60 20 D6 09 D3 49 42 

2289 i 45 20 53 54 45 48 45 4E 86 
2291 s 20 41 55 46 20 44 45 4D 44 
2299 3 20 C6 4C 55 47 46 45 4C 2E 
22A1 3 44 2E OD C4 49 52 45 4B AB 
22A9 s 54 20 4E 45 42 45 4E 20 11 

22B1 b 49 48 4E 45 4E 20 4C 41 F4 
22B9 3 4E 44 45 54 20 45 49 4E F3 
22C1 s 20 CA 55 4D 42 4F 2E OD B7 
22C9 3 OD 00 60 20 D6 09 D3 49 8A 
22D1 3 45 20 53 49 4E 44 20 49 3E 
22D9 s 4E 20 44 45 52 20 C6 4C CB 
22E1 3 55 47 48 41 46 45 4E 48 6C 
22E9 s 41 4C 4C 45 21 OD C8 49 3C 
22F1 3 45 52 20 4B 45 52 53 43 2B 
22F9 3 48 54 20 CB 4F 43 4B 42 41 

2301 s 45 54 52 49 45 42 2E OD 67 
2309 3 OD 00 60 20 D6 09 D3 49 CA 
2311 s 45 20 53 49 54 5A 45 4E 2E 
2319 3 20 49 4D 20 C6 4C 55 47 EB 
2321 b 5A 45 55 47 21 OD C4 45 74 

2329 3 52 20 D3 49 54 5A 20 49 D5 
2331 t 53 54 20 53 45 48 52 20 41 

2339 s 42 45 51 55. 45 4D 21 OD 7A 
2341 s OD 00 60 20 D6 09 D3 49 02 

2349 3 45 20 53 54 45 48 45 4E 46 
2351 s 20 41 4D 20 D3 43 48 41 64 

2359 s 4C 54 45 52 21 OD CD 41 9F 
2361 s 4E 20 4B 41 4E 4E 20 48 23 

2369 s 49 45 52 20 C6 4C 55 47 AO 
2371 s 54 49 43 4B 45 54 53 20 29 

2379 s 4B 41 55 46 45 4E 21 OD E8 
2381 s OD 00 60 20 D6 09 D3 49 42 

23B9 3 45 20 42 45 46 49 4E 44 B8 
2391 3 45 4E 20 53 49 43 4B 20 80 

2399 3 49 4E 20 45 49 4E 45 4D 71 
23A1 3 20 CD 4F 54 4F 52 42 4F 35 
23A9 3 4F 54 21 OD C5 53 20 53 2A 
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OD 

OD 

00 
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48 

54 

45 
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47 

20 

AC 

4391 


EE 

09 

OB 

20 

D6 

09 

C9 

4D 

42 

3D69 

3 

2F 

4E 

EA 

EA 

EA 

20 

D6 

09 

F4 

4081 

: 

42 

49 

45 

54 

45 

54 

20 

44 

44 

4399 


20 

CF 

53 

54 

45 

4E 

20 

48 

D8 

3D71 


D3 

49 

45 

20 

48 

41 

42 

45 

60 

4089 


41 

53 

20 

D3 

50 

49 

45 
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F3 

43A1 
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45 

52 

45 
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53 

49 

96 
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20 
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49 

43 

48 

54 

53 

03 
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44 

49 

74 
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45 
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54 
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09 
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49 
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47 
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OD 

OD 

00 
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13 

35 

AD 

09 

40A9 


27 

OD 

55 

4E 

44 

20 

27 
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DD 

43C1 


45 

52 

45 
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20 

4E 

49 

43 

6B 

3D99 


FB 

09 

EA 

EA 

EA 

EA 

60 

EA 

8E 

40B1 

3 

C5 

C6 

C5 

C8 

CC 

C5 

27 

20 

3C 

43C9 


48 

54 

53 

20 

C2 

45 

53 

4F 

56 

3DA1 


EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

AO 

40B9 


21 

21 

21 

OD 

11 

11 

11 

11 

55 

43D1 


4E 

44 

45 

52 

45 

53 

2E 

OD 

9F 

öDA9 

3 

EA 

EA 

AA 

BD 

19 

29 

DO 

03 

8F 

40C1 


11 

C4 

52 

55 

45 

43 

4B 

45 

9A 

43D9 


00 

A9 

OD 

20 

D2 

FF 

4C 

13 

7A 

3DB1 


4C 

33 

2A 

8D 

D3 

23 

A9 

00 

DO 

40C9 


4E 

20 

53 

49 

45 

20 

42 

49 

16 

43E1 


35 

C9 

03 

FO 

03 

4C 

56 

44 

4E 

3DB9 

3 

BD 

12 

35 

20 

BF 

24 

20 

24 

B4 

40D1 


54 

54 

45 

20 

45 

49 

4E 

45 

07 

43E9 


AD 

FB 

09 

C9 

OC 

DO 

03 

4C 

FB 

3DC1 

: 

29 

20 

00 

3E 

20 

64 

2A 

20 

DO 

40D9 


20 

D4 

41 

53 

54 

45 

21 

21 

54 

43F1 


IE 

41 

C9 

15 

DO 

03 

4C 

DB 

CD 

3DC9 

s 

94 

32 

20 

64 

30 

EA 

EA 

EA 

E7 

40E1 


21 

20 

20 

20 

20 

20 

20 

20 

E2 

43F9 


42 

C9 

16 

FO 

01 

60 

AD 

2F 

EC 

3DD1 


60 

EA 

EA 

4C 

2A 

35 

AD 

FB 

E5 

40E9 


20 

OD 

OD 

00 

EA 

EA 

EA 

20 

C5 

4401 


24 

C9 

07 

DO 

2F 

20 

D6 

09 

47 

3DD9 


09 

C9 

01 

90 

F6 

C9 

OB 

BO 

64 

40F1 


E4 

s 


A9 

9^ 

20 

D2 

EE 

4409 


CI 

55 

53 

20 

D2 

49 

43 

48 

63 

3DE1 


F2 

8D 

FD 

3D 

20 

19 

35 

OD 

7B 

40F9 

r FF 

EA r- 

iO 

AD 

68 

4411 


54 

55 

4E 

47 

20 

CE 

4F 

52 

E7 

3DE9 


FC 

09 

OD 

FD 

09 

OD 

FE 

09 

74 

4101 


D3 

23 

C9 

01 

FO 

03 

4C 

B4 

5A 

4419 


44 

45 

4E 

20 

48 

41 

4C 

4C 

FO 

3DF1 


OD 

FF 

09 

FO 

01 

60 

AD 

FD 

24 

4109 


42 

AD 

FB 

09 

C9 

OC 

FO 

OD 

ID 

4421 


45 

4E 

20 

D3 

43 

48 

52 

49 

62 

3DF9 


3D 

4C 

AO 

3D 

03 

EA 

EA 

EA 

35 

4111 


C9 

15 

FO 

68 

C9 

16 

FO 

67 

BE 

4429 


54 

54 

45 

2E 

20 

20 

OD 

OD 

10 

3E01 


EA 

EA 

AD 

D4 

23 

FO 

03 

EA 

02 

4119 


C9 

IE 

FO 

66 

60 

20 

19 

35 

DO 

4431 


00 

4C 

13 

35 

20 

D6 

09 

C5 

2B 

3E09 


EA 

60 

AD 

D3 

23 

C9 

01 

DO 

2F 

4121 


OD 

FC 

09 

OD 

FD 

09 

OD 

FE 

EB 

4439 


53 

20 

49 

53 

54 

20 

52 

45 

73 

3E11 


11 

A9 

00 

BD 

23 

29 

A2 

OD 

C9 

4129 


09 

OD 

FF 

09 

FO 

01 

60 

20 

B3 

4441 


43 

48 

54 

20 

53 

54 

49 

4C 

57 

3E19 


BD 

ID 

24 

FO 

05 

A9 

02 

BD 

4D 

4131 


D6 

09 

DA 

55 

52 

20 

DA 

45 

09 

4449 


4C 

20 

48 

49 

45 

52 

21 

OD 

66 

3E21 


23 

29 

AD 

D3 

23 

C9 

OB 

DO 

OD 

4139 


49 

54 

20 

4B 

41 

4E 

4E 

20 

IE 

4451 


OD 

00 

4C 

13 

35 

C9 

04 

FO 

67 

3E29 


1A 

A9 

00 

BD 

ID 

29 

A2 

OC 

87 

4141 


49 

43 

48 

20 

41 

4C 

53 

20 

46 

4459 


03 

4C 

D3 

44 

AD 

FB 

09 

C9 

72 

3E31 

3 

BD 

D5 

23 

C9 

01 

DO 

oc 

BD 

ID 

4149 


C8 

49 

4C 

46. 

45 

20 

4E 

55 

CB 

4461 


OC 

DO 

03 

4C 

IE 

41 

C9 

15 

5D 

3E39 

3 

EB 

23 

C9 

03 

DO 

05 

A9 

OD 

7F 

4151 


52 

20 

41 

55 

46 

20 

44 

41 

A7 

4469 


DO 

03 

4C 

DB 

42 

C9 

16 

FO 

96 

3E41 


8D 

22 

29 

AD 

D3 

23 

C9 

OD 

77 

4159 

s 

53 

20 

D7 

4F 

52 

54 

20 

27 

33 

4471 


01 

60 

EA 

EA 

EA 

20 

19 

35 

39 

3E49 

3 

DO 

OA 

A9 

00 

8D 

ID 

29 

A9 

42 

4161 

: 

C2 

C5 

C6 

C5 

C8 

CC 

C5 

27 

CB 

4479 


OD 

FC 

09 

OD 

FD 

09 

OD 

FE 

43 

3E51 

3 

OE 

BD 

23 

29 

AD 

D3 

23 

C9 

AD 

4169 


20 

48 

49 

4E 

57 

45 

49 

53 

35 

4481 


09 

OD 

FF 

09 

FO 

01 

60 

AD 

26 

3E59 

3 

20 

DO 

05 

A9 

00 

BD 

1A 

29 

7F 

4171 

3 

45 

4E 

2E 

20 

20 

20 

OD 

OD 

BE 

4489 


2E 

24 

C9 

06 

DO 

25 

EA 

EA 

B4 

3E61 

3 

AD 

D3 

23 

C9 

24 

DO 

05 

A9 

2A 

4179 

3 

00 

4C 

13 

35 

4C 

86 

41 

4C 

Al 

4491 


EA 

20 

D6 

09 

C9 

4D 

20 

CE 

87 

3E69 


00 

BD 

1B 

29 

AD 

D3 

23 

C9 

B5 

41B1 

3 

E3 

41 

4C 

20 

42 

20 

19 

35 

10 

4499 


4F 

52 

44 

45 

4E 

20 

49 

53 

7D 

3E71 

3 

60 

DO 

OA 

A9 

00 

A2 

OA 

9D 

6A 

41B9 

3 

OD 

FD 

09 

OD 

FC 

09 

OD 

FF 

C5 

44A1 


54 

20 

4A 

45 

4D 

41 

4E 

44 

El 

3E79 

3 

19 

29 

CA 

DO 

FA 

EA 

EA 

60 

67 

4191 
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09 

FO 

01 

60 

AD 

FE 

09 

DO 

F7 

44A9 


2E 

20 

20 

20 
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OD 

OD 

00 

92 

3E81 

3 

20 

D6 

09 

11 

11 

11 

11 

11 

71 

4199 

3 

03 
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B7 

3D 

C9 

OD 

DO 

F3 

88 

44B1 
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13 

35 

20 

D6 

09 

CE 

49 
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11 

CB 

45 
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49 

43 
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09 
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88 
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FO 
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FO 
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54 
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OD 

OD 
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47 
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FA 
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OD 
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09 
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OD 

FF 

45 
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45 

53 

54 

45 
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48 

B2 

3ED9 
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45 
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21 

OD 

OD 

OD 

00 
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01 

41F1 
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09 

FO 

01 

60 

EA 

EA 

EA 

20 

Bl 

4509 


4F 

45 

52 

54 

20 

4D 

41 

4E 

28 

3EE1 

3 

1B 

37 

20 

D6 

09 

11 

11 

ii 

FA 

41F9 

3 

D6 

09 

D3 

49 

45 

20 

48 

4F 

87 

4511 


20 

D3 

43 

48 

52 

49 

54 

54 

5E 

3EE9 


11 

11 

11 

2E 

2E 

2E 

20 

44 

EA 

4201 

3 

45 

52 

45 

4E 

20 

4E 

49 

43 

AB 

4519 


45 

2E 

20 

20 

20 

20 

OD 

OD 

D3 

3EF1 

3 

41 

53 

20 

54 

41 

54 

20 

57 

54 

4209 

: 

48 

54 

53 

20 

C2 

45 

53 

4F 

96 

4521 


00 

4C 

13 

35 

C9 

07 

DO 

2A 

1F 

3EF9 

3 

45 

48 

21 

OD 

11 

D3 

49 

45 

AC 

4211 

: 

4E 

44 

45 

52 

45 

53 

21 

20 

Dl 

4529 


20 

D6 

09 

D6 

4F 

4E 

20 

CF 

59 

3F01 

3 

20 

53 

49 

4E 

44 

20 

41 

55 

DC 

4219 
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20 

OD 

OD 

00 
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13 

35 

20 

76 

4531 


53 

54 

45 

4E 

20 

48 
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45 

D6 
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53 
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49 
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52 

45 
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20 

Al 

4221 
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19 

35 

OD 

FC 

09 

OD 

FD 

09 

BB 

4539 


52 

54 

20 

4D 

41 

4E 

20 

D3 

16 

3F11 

3 

DO 

52 

49 

54 

53 

43 

48 

45 

E2 

4229 


OD 

FF 

09 

FO 

01 

60 

AD 

FE 

5E 

4541 


43 

48 

52 

49 

54 

54 

45 

2E 

BF 

3F19 


20 

47 

45 

46 

41 

4C 

4C 

45 

29 

4231 

3 

09 

C9 

OD 

DO 

F0 

EA 

EA 

EA 

E5 

4549 


20 

20 

20 

20 

OD 

OD 

00 

4C 

57 

3F21 

3 

4E 

2E 

OD 

C9 

48 

52 

45 

20 

6F 

4239 

: 

20 

D6 

09 

D3 

49 

45 

20 

48 

51 

4551 


13 

35 

EA 

EA 

EA 

20 

D6 

09 

34 

3F29 

3 

C6 

4C 

55 

43 

48 

54 

20 

48 

OB 

4241 

: 

45 

42 

45 

4E 

20 

44 

49 

45 

96 

4559 


CD 

41 

4E 

20 

48 

4F 

45 

52 

17 

3F31 

3 

41 

42 

45 

4E 

20 

53 

49 

45 

FB 

4249 

3 

20 

D3 

54 

45 

49 

4E 

50 

4C 

Fl 

4561 


54 

20 

D7 

41 

53 

53 

45 

52 

6D 

3F39 

3 

20 

4C 

45 

47 

44 

45 

52 

20 

F2 

4251 


41 

54 

54 

45 

20 

55 

4E 

44 

E9 

4569 


20 

56 

4F 

4E 

20 

44 

45 

52 

30 

3F41 

3 

4E 

55 

52 

20 

20 

20 

20 

20 

96 
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20 
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47 

45 

4E 
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53 

C8 

4571 
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45 

43 
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45 

20 

54 
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20 

20 

20 

47 
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52 

41 

2D 

4261 


49 

45 

20 

57 
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41 

4E 

44 

01 

4579 


52 

4F 

50 

46 

45 

4E 

2E 

20 

OF 

3F51 

3 

45 

55 

4D 

54 

20 

2D 

20 

45 

95 

4269 

: 

45 

52 

53 

20 

41 

42 

2E 

20 

CF 

4581 


20 

20 

20 

20 

20 

20 

OD 

00 

F5 

3F59 

3 

49 

4E 

20 

D7 

55 

4E 

53 

43 

68 

4271 


20 

OD 

OD 

00 

A9 

01 

A2 

OD 

A2 

4589 


4C 

13 

35 

C9 

06 

FO 

03 

4C 

72 

3F61 

3 

48 

54 

52 

41 

55 

4D 

2E 

OD 

23 

4279 


9D 

ID 

24 

A9 

02 

8D 

23 

29 

4F 

4591 


5F 

46 

AD 

FB 

09 

C9 

OC 

DO 

AF 

3F69 


OD 

D6 

45 

52 

53 

55 

43 

48 

FA 

4281 


4C 

13 

35 

C9 

02 

FO 

03 

4C 

2A 

4599 


03 

4C 

IE 

41 
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15 

DO 

03 

01 

3F71 


45 
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20 

53 

49 

45 

20 

45 

1A 

42B9 
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43 
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FO 
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45A1 
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42 

C9 

16 

FO 
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60 
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48B1 

48B9 


21 

00 

20 

EA 

20 

EA 

20 

EA 

20 

4C 

20 

13 

OD 

35 

OD 

EA 

40 

4E 

4BC9 

4BD1 

: 

54 

49 

20 

4D 

4E 

20 

49 

C2 

43 

4F 

48 

54 

54 

54 

20 

49 

F2 

9D 

45A9 

: 

EA 

EA 

EA 

4C 

C4 

45 

20 

19 

76 

48C1 


EA 

EA 

20 

19 

35 

OD 

FC 

09 

OD 

4BD9 


43 

48 

2E 

20 

20 

20 

20 

20 

94 

45B1 

s 

35 

OD 

FC 

09 

OD 

FD 

09 

OD 

cc 

48C9 


OD 

FD 

09 

OD 

FF 

09 

FO 

Ol 

C7 

4BE1 


20 

20 

20 

OD 

00 

4C 

13 

35 

D4 

45B9 


FE 

09 

OD 

FF 

09 

DO 

01 

60 

5B 

48D1 


60 

AD 

FE 

09 

C9 

04 

FO 

01 

6B 

4BE9 


20 

D6 

09 

C4 

45 

52 

20 

C2 

3C 

45C1 

: 

68 

68 

60 

20 

AF 

45 

AD 

2E 

B2 

4BD9 


60 

AD 

21 

24 

FO 

2D 

20 

D6 

83 

4BF1 


4F 

54 

54 

49 

43 

48 

20 

49 

32 

45C9 

s 

24 

C9 

06 

DO 

36 

20 

D6 

09 

3F 

48E1 


09 

D3 

49 

45 

20 

53 

43 

4B 

09 

4BF9 


53 

54 

20 

47 

52 

4F 

53 

53 

FB 

45D1 

: 

D3 

49 

45 

20 

48 

4F 

45 

52 

57 

4BE9 


4C 

49 

45 

53 

53 

45 

4E 

20 

6E 

4C01 


2E 

20 

20 

20 

20 

20 

20 

20 

OF 

45D9 

: 

45 

4E 

20 

4E 

SS 

52 

20 

44 

08 

48F1 


44 

45 

4E 

20 

D3 

43 

48 

52 

8D 

4C09 


20 

20 

20 

20 

20 

20 

20 

20 

09 

4SE1 

: 

45 

4E 

20 

D7 

41 

45 

52 

54 

81 

48F9 


41 
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24 

C9 

01 

4B 

50D1 


EA 

EA 

EA 

EA 

EA 

EA 

EA 

60 

BB 

53E9 

X 

DO 

FB 

AD 

F5 

23 

C9 

03 

DO 

BE 

5701 

X 

FO 

03 

4C 

45 

57 

20 

D6 

09 

12 

50D9 


EA 

EA 

EA 

20 

19 

35 

OD 

FC 

60 

53F1 


Fl 

AD 

OD 

24 

4C 

7D 

53 

AD 

DA 

5709 


CF 

4B 

2E 

20 

D3 

49 

45 

20 

EA 

50E1 


09 

OD 

FD 

09 

OD 

FF 

09 

FO 

EB 

53F9 

X 

DF 

23 

C9 

01 

DO 

E4 

AD 

F5 

D3 

5711 

X 

4C 

45 

47 

45 

4E 

20 

45 

54 

IE 

S0E9 


01 

60 

AD 

FE 

09 

C9 

OC 

DO 

16 

5401 

X 

23 

C9 

03 

DO 

DD 

AD 

OD 

24 

AB 

5719 

X 

57 

41 

53 

20 

49 

4E 

20 

44 

FA 

50F1 


FB 

EA 

EA 

EA 

A9 

60 

BD 

D3 

F2 

5409 

X 

4C 

99 

53 

4C 

16 

54 

A9 

00 

2B 

5721 

X 

45 

4E 

20 

C3 

4F 

4E 

54 

41 

49 

50F9 


23 

A9 

00 

BD 

D4 

23 

4C 

B7 

AA 

5411 

X 

85 

C6 

4C 

99 

3F 

C9 

24 

FO 

F4 

5729 

X 

49 

4E 

45 

52 

2E 

20 

20 

20 

DA 

5101 


3D 

EA 

EA 

EA 

20 

19 

35 

OD 

B5 

5419 

X 

03 

4C 

09 

58 

AD 

FB 

09 

C9 

02 

5731 

X 

20 

OD 

OD 

00 

A9 

OB 

9D 

D5 

18 

5109 


FC 

09 

OD 

FD 

09 

OD 

FF 

09 

9B 

5421 

X 

OB 

DO 

03 

4C 

D9 

50 

C9 

OC 

3E 

5739 

X 

23 

A9 

01 

9D 

EB 

23 

4C 

13 

54 

5111 


FO 

01 

60 

AD 

FE 

09 

C9 

OC 

C7 

5429 

X 

DO 

03 

4C 

IE 

41 

C9 

15 

DO 

AA 

5741 

X 

35 

4C 

46 

4D 

20 

D6 

09 

C4 

3E 

5119 


DO 

FB 

EA 

EA 

EA 

A9 

20 

BD 

15 

5431 

X 

03 

4C 

59 

54 

C9 

16 

DO 

03 

D2 

5749 

X 

45 

52 

20 

C3 

4F 

4E 

54 

41 

73 

5121 


D3 

23 

A9 

OO 

4C 

FC 

SO 

EA 

B4 

5439 

X 

4C 

B5 

55 

C9 

1B 

DO 

03 

4C 

B3 

5751 

X 

49 

4E 

45 

52 

20 

49 

53 

54 

9F 

5129 


EA 

EA 

20 

19 

35 

OD 

FD 

09 

79 

5441 

X 

EO 

55 

C9 

19 

DO 

03 

4C 

D3 

5F 

5759 

X 

20 

47 

45 

53 

43 

4B 

4C 

4F 

1F 

5131 


OD 

FD 

09 

OD 

FF 

09 

FO 

01 

2F 

5449 

1 

56 

C9 

IC 

DO 

03 

4C 

5A 

56 

4E 

5761 

X 

53 

53 

45 

4E 

21 

20 

20 

20 

4D 

5139 


60 

AD 

FE 

09 

C9 

03 

DO 

FB 

3A 

5451 

X 

C9 

ID 

DO 

03 

4C 

71 

57 

60 

AC 

5769 

X 

20 

20 

OD 

OD 

00 

4C 

13 

35 

97 

5141 


AD 

FC 

09 

C9 

OB 

DO 

Fl 

AD 

42 

5459 

1 

20 

19 

35 

OD 

FD 

09 

OD 

FF 

51 

5771 

X 

20 

19 

35 

OD 

FD 

09 

OD 

FF 

69 

5149 


EO 

23 

C9 

01 

DO 

EA 

AD 

F6 

56 

5461 

X 

Of 

FO 

01 

60 

AD 

FE 

09 

C9 

B9 

5779 

X 

09 

FO 

01 

60 

AD 

FE 

09 

C9 

Dl 

5151 


23 

C9 

03 

DO 

E3 

EA 

EA 

EA 

4B 

5469 

X 

OB 

FO 

03 

4C 

DB 

42 

AE 

FC 

BB 

5781 

X 

OB 

DO 

FB 

AE 

FC 

09 

FO 

F3 

C9 

5159 


20 

D6 

09 

D3 

49 

45 

20 

5A 

95 

5471 

X 

09 

DO 

03 

4C 

CA 

54 

AD 

25 

7D 

5789 

X 

BD 

D5 

23 

C9 

OB 

DO 

4C 

BD 

E7 

5161 


45 

52 

53 

54 

4F 

45 

52 

45 

22 

5479 

X 

24 

C9 

01 

FO 

03 

4C 

59 

55 

B3 

5791 

X 

EB 

23 

C9 

01 

DO 

45 

AD 

25 

D9 

5169 


4E 

20 

44 

45 

4E 

20 

CB 

41 

19 

54B1 

X 

BD 

D5 

23 

C9 

OB 

FO 

03 

4C 

DB 

5799 

X 

24 

C9 

01 

FO 

03 

4C 

DF 

57 

CI 

5171 


53 

54 

45 

4E 

2E 

20 

20 

20 

AE 

5489 

X 

98 

54 

BD 

EB 

23 

C9 

01 

FO 

9E 

57A1 

X 

20 

D6 

09 

D3 

49 

45 

20 

4E 

C5 

5179 


20 

20 

20 

20 

20 

20 

20 

20 

79 

5491 

X 

03 

4C 

9B 

54 

4C 

6F 

47 

20 

09 

S7A9 

: 

45 

48 

4D 

45 

4E 

20 

45 

54 

B2 

5181 


20 

20 

20 

C5 

54 

57 

41 

53 

IE 

5499 

X 

D6 

09 

C4 

45 

52 

20 

C7 

45 

9D 

57B1 

X 

57 

41 

53 

20 

41 

55 

53 

20 

CE 

51B9 


20 

4B 

4C 

49 

52 

52 

54 

20 

D4 

54A1 

X 

47 

45 

4E 

53 

54 

41 

4E 

44 

9A 

57B9 

X 

44 

45 

4D 

20 

C3 

4F 

4E 

54 

90 

5191 


4C 

45 

49 

53 

45 

2E 

20 

20 

C3 

54A9 

X 

20 

49 

53 

54 

20 

4E 

49 

43 

ED 

57C1 

1 

41 

49 

4E 

45 

52 

2E 

20 

20 

3A 

5199 


OD 

OD 

00 

A9 

20 

BD 

DF 

23 

96 

54B1 

X 

48 

54 

20 

49 

4D 

20 

C3 

4F 

DB 

57C9 

X 

20 

20 

20 

20 

OD 

00 

A9 

01 

7F 

51 Al 


A9 

00 

BD 

F5 

23 

A9 

01 

BD 

OB 

54B9 

X 

4E 

54 

41 

49 

4E 

45 

52 

2E 

60 

57D1 

X 

90 

D5 

23 

A9 

03 

9D 

EB 

23 

6A 

51A9 


20 

24 

4C 

13 

35 

EA 

EA 

EA 

7D 

54C1 

X 

20 

20 

20 

20 

OD 

00 

4C 

13 

26 

57D9 

X 

4C 

13 

35 

4C 

Dl 

4D 

20 

D6 

3B 

51B1 


20 

AF 

45 

AD 

31 

24 

C9 

IE 

47 

54C9 

X 

35 

AD 

25 

24 

C9 

01 

FO 

35 

76 

57E1 

X 

09 

C4 

45 

52 

20 

C3 

4F 

4E 

E2 

51B9 


DO 

2A 

20 

D6 

09 

D6 

4F 

4E 

A2 

54D1 

X 

20 

D6 

09 

D3 

49 

45 

20 

53 

FF 

57E9 

X 

54 

41 

49 

4E 

45 

52 

20 

49 

F4 

51C1 


20 

D3 

55 

45 

44 

57 

45 

53 

B4 

54D9 

X 

45 

48 

45 

4E 

20 

45 

49 

4E 

4B 

57F1 


53 

54 

20 

47 

45 

53 

43 

48 

EC 

51C9 


54 

45 

4E 

20 

4B 

4F 

4D 

4D 

56 

54E1 

X 

45 

4E 

20 

47 

45 

53 

43 

48 

CB 

57F9 

X 

4C 

4F 

53 

53 

45 

4E 

21 

20 

BB 

51D1 


54 

20 

4A 

45 

4D 

41 

4E 

44 

11 

54E9 

X 

4C 

4F 

53 

53 

45 

4E 

45 

4E 

95 

5B01 

X 

20 

20 

OD 

OD 

00 

4C 

13 

35 

2F 

51D9 


21 

20 

20 

20 

20 

20 

OD 

OD 

68 

54F1 

1 

20 

C3 

4F 

4E 

54 

41 

49 

4E 

A2 

5B09 


C9 

25 

FO 

03 

4C 

4A 

59 

AD 

D9 

51E1 


00 

4C 

13 

35 

20 

D6 

09 

D3 

F7 

54F9 


45 

52 

2E 

20 

20 

20 

20 

20 

BB 

5B11 


FB 

09 

C9 

OC 

FO 

03 

4 C 

OB 

ED 

51E9 


49 

45 

20 

48 

4F 

45 

52 

45 

D9 

5501 

X 

OD 

00 

4C 

13 

35 

20 

D6 

09 

46 

5B19 


59 

20 

AF 

45 

20 

D6 

09 

D3 

9B 

51F1 


4E 

20 

44 

41 

53 

20 

D7 

41 

Al 

5509 


D3 

49 

45 

20 

53 

45 

48 

45 

El 

5821 


49 

45 

20 

4B 

41 

42 

45 

20 

99 
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C64 


Listing »Freiheit« (Fortsetzung) 


5B29 


4E 

4F 

43 

48 

20 

49 

48 

52 

OB 

5B31 

3 

45 

4E 

20 

D3 

54 

52 

41 

45 

87 

5B39 


46 

4C 

49 

4E 

47 

53 

41 

4E 

72 

5841 

: 

5A 

55 

47 

20 

20 

20 

20 

41 

22 

5B49 

: 

4E 

2E 

20 

CI 

45 

4E 

44 

45 

51 

5851 

8 

52 

4E 

20 

53 

49 

45 

20 

44 

05 

5859 

: 

41 

53 

2C 

20 

53 

4F 

4E 

53 

E3 

5B61 

: 

54 

20 

57 

45 

52 

44 

48 

4E 

3D 

5869 

: 

20 

53 

49 

45 

OD 

56 

4F 

4E 

BB 

5871 

: 

20 

4A 

45 

44 

45 

52 

20 

D3 

9F 

5B79 

3 

54 

52 

45 

49 

46 

45 

20 

45 

OA 

5881 

3 

52 

4B 

41 

4E 

4E 

54 

21 

OD 

B9 

5BB9 

3 

CI 

55 

53 

53 

45 

52 

48 

41 

BF 

5891 

3 

4C 

42 

20 

44 

45 

53 

20 

CF 

9E 

5899 

3 

52 

54 

45 

53 

20 

47 

49 

42 

B7 

58A1 

3 

54 

20 

45 

53 

20 

49 

52 

47 

ES 

5BA9 

8 

45 

4E 

44 

57 

4F 

20 

20 

20 

CB 

5BB1 

t 

45 

49 

4E 

45 

20 

DO 

4F 

4C 

35 

58B9 

3 

49 

5A 

45 

49 

4B 

4F 

4E 

54 

BB 

58C1 

3 

52 

4F 

4C 

4C 

45 

2C 

20 

57 

3C 

5BC9 

: 

4F 

20 

53 

49 

45 

20 

49 

4E 

3D 

S8D1 

3 

20 

4A 

45 

44 

45 

4D 

OD 

C6 

71 

5BD9 

: 

41 

4C 

4C 

45 

20 

45 

S2 

4B 

OB 

SBE1 

: 

41 

4E 

4E 

54 

20 

57 

55 

45 

04 

58E9 

3 

52 

44 

45 

4E 

21 

20 

20 

20 

4C 

58F1 

3 

20 

20 

20 

20 

20 

20 

20 

20 

Fl 

58F9 

3 

20 

20 

20 

20 

20 

20 

20 

20 

F9 

5901 

3 

20 

20 

OD 

00 

4C 

13 

35 

C9 

3A 

5909 

: 

15 

DO 

03 

4C 

DB 

42 

C9 

16 

C4 

5911 

3 

DO 

36 

20 

AF 

45 

20 

D6 

09 

BD 

5919 

3 

D3 

49 

45 

20 

48 

4F 

45 

52 

9F 

5921 

3 

45 

4E 

20 

4E 

55 

52 

20 

4C 

60 

5929 

3 

41 

55 

54 

45 

20 

CI 

4C 

4C 

AC 

5931 

3 

54 

41 

47 

53 

47 

45 

52 

41 

CD 

5939 


45 

55 

53 

43 

48 

45 

2E 

20 

OE 

5941 


20 

20 

20 

OD 

00 

4C 

13 

35 

34 

5949 


60 

C9 

26 

FO 

03 

4C 

BD 

59 

Bl 

5951 


AD 

FB 

09 

C9 

OC 

DO 

03 

4C 

63 

5959 

3 

IE 

41 

C9 

15 

DO 

03 

4C 

DB 

35 

5961 


42 

C9 

16 

FO 

01 

60 

20 

AF 

IE 

5969 


45 

20 

D6 

09 

D3 

49 

45 

20 

72 

5971 


48 

4F 

45 

52 

45 

4E 

20 

4C 

DC 

5979 

: 

45 

49 

53 

45 

20 

CD 

55 

53 

4D 

5981 

3 

49 

4B 

2E 

20 

20 

20 

OD 

OD 

51 

5989 


00 

4C 

13 

35 

C9 

27 

FO 

03 

BA 

5991 

3 

4C 

AD 

59 

AD 

FB 

09 

C9 

OC 

07 

5999 

: 

DO 

03 

4C 

IE 

41 

C9 

15 

DO 

1A 

59A1 

3 

03 

4C 

D8 

42 

C9 

16 

FO 

01 

5C 

59A9 


60 

4C 

13 

59 

C9 

28 

FO 

03 

C7 

59B1 


4C 

F7 

59 

AD 

FB 

09 

C9 

OC 

4C 

59B9 


DO 

03 

4C 

IE 

41 

C9 

15 

DO 

3A 

59C1 

: 

03 

4C 

D8 

42 

C9 

16 

FO 

01 

7C 

59C9 


60 

20 

AF 

45 

20 

D6 

09 

D3 

52 

59D1 

3 

49 

45 

20 

48 

4F 

45 

52 

45 

CI 

59D9 


4E 

20 

4E 

49 

43 

48 

54 

53 

63 

59E1 

3 

20 

C2 

45 

53 

4F 

4E 

44 

45 

21 

59E9 


52 

45 

53 

2E 

20 

20 

20 

20 

3C 

59F1 

3 

OD 

OD 

00 

4C 

13 

35 

C9 

29 

63 

59F9 

3 

DO 

03 

4C 

37 

50 

C9 

2A 

FO 

23 

5A01 

3 

03 

4C 

B7 

5B 

AD 

FB 

09 

C9 

F6 

5AÖ9 

3 

OC 

DO 

03 

4C 

IE 

41 

C9 

15 

05 

5A11 

3 

DO 

03 

4C 

2C 

5A 

C9 

16 

DO 

E9 

5A19 

3 

03 

4C 

13 

59 

C9 

19 

DO 

03 

El 

5A21 

8 

4C 

F4 

5A 

C9 

ID 

DO 

03 

4C 

B4 

5A29 

8 

53 

5B 

60 

20 

19 

35 

OD 

FD 

Bl 

5A31 

3 

09 

OD 

FF 

09 

FO 

01 

60 

AD 

D6 

5A39 

8 

FE 

09 

C9 

06 

FO 

03 

4C 

D8 

F9 

5A41 

3 

42 

AE 

FC 

09 

DO 

03 

4C 

9F 

DO 

5 A4 9 

3 

5A 

BD 

D5 

23 

C9 

06 

FO 

03 

F2 

5A51 

3 

4C 

61 

5A 

BD 

EB 

23 

C9 

01 

9D 

5A59 

8 

FO 

03 

4C 

61 

5A 

4C 

6F 

47 

5E 

5A61 

8 

20 

D6 

09 

C4 

45 

52 

20 

C7 

BE 

5A69 

3 

45 

47 

45 

4E 

53 

54 

41 

4E 

E6 

5A71 

3 

44 

20 

49 

53 

54 

20 

4E 

49 

94 

5A79 

8 

43 

48 

54 

20 

49 

4E 

20 

44 

OA 

5A81 

3 

45 

4D 

20 

20 

20 

20 

20 

20 

3D 

5AB9 

3 

20 

20 

20 

C2 

45 

48 

41 

45 

40 

5A91 

3 

4C 

54 

45 

52 

2E 

20 

20 

20 

48 

5A99 

3 

OD 

OD 

00 

4C 

13 

35 

20 

D6 

CO 

5AA1 

3 

09 

D3 

49 

45 

20 

53 

45 

48 

Dl 

5AA9 

3 

45 

4E 

20 

45 

49 

4E 

45 

4E 

7F 

5AB1 

3 

20 

C2 

45 

48 

41 

45 

4C 

54 

A5 

5AB9 


45 

52 

2E 

20 

20 

20 

20 

20 

7B 

5AC1 

3 

20 

20 

20 

20 

20 

20 

20 

20 

CI 

5AC9 

3 

20 

C4 

41 

52 

49 

4E 

20 

53 

14 

5AD1 

3 

45 

48 

45 

4E 

20 

5 S 

49 

45 

A2 

5AD9 

8 

3A 

20 

20 

20 

20 

00 

A9 

00 

D8 

5AE1 

8 

SD 

09 

OB 

A9 

06 

BD 

3B 

32 

09 

5AE9 

3 

A9 

01 

BD 

3C 

32 

20 

3E 

32 

7F 

5AF1 

3 

4C 

13 

35 

20 

19 

35 

OD 

FD 

84 

5AF9 

3 

09 

OD 

FF 

09 

FO 

01 

60 

AD 

9E 

5B01 

3 

FE 

09 

C9 

06 

DO 

FB 

AE 

FC 

40 

5B09 

3 

09 

FO 

F3 

BD 

D5 

23 

C9 

01 

DE 

5B11 


DO 

3D 

BD 

EB 

23 

C9 

03 

DO 

9B 

5B19 


36 

20 

D6 

09 

D3 

49 

45 

20 

13 

5B21 


4C 

45 

47 

45 

4E 

20 

45 

54 

2E 

5B29 


57 

41 

53 

20 

49 

4E 

20 

44 

OA 


5B31 


45 

4E 

20 

C2 

45 

48 

41 

45 

24 

5B39 


4C 

54 

45 

52 

2E 

20 

20 

OD 

C9 

5B41 


OD 

00 

A9 

06 

9D 

D5 

23 

A9 

E2 

5B49 


01 

9D 

EB 

23 

4C 

13 

35 

4C 

43 

5B51 


46 

4D 

20 

19 

35 

OD 

FD 

09 

2F 

5B59 


OD 

FF 

09 

FO 

01 

60 

AD 

FE 

BE 

5B61 


09 

C9 

06 

DO 

FB 

AE 

FC 

09 

F5 

5B69 


FO 

F3 

BD 

D5 

23 

C9 

06 

DO 

B7 

5B71 


42 

BD 

EB 

23 

C9 

01 

DO 

3B 

4F 

5B79 


20 

D6 

09 

D3 

49 

45 

20 

4E 

9D 

5BB1 


45 

48 

4D 

45 

4E 

20 

45 

54 

8A 

5BB9 


57 
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03 

4C 

IE 

41 

C9 

15 

DO 

03 

Al 

6411 

3 

09 

FO 

01 

60 

AD 

FE 

09 

C9 

69 

6729 

8 

4C 

6E 

66 

AD 

IE 

24 

C9 

01 

28 

6A41 

3 

4C 

DB 

42 

C9 

16 

FO 

01 

60 

71 

6419 

3 

01 

FO 

03 

4C 

D8 

42 

AE 

FC 

31 

6731 

8 

DO 

29 

20 

D6 

09 

C4 

49 

45 

DF 

6A49 

8 

20 

AF 

45 

20 

D6 

09 

D3 

49 

2E 

6421 

3 

09 

DO 

03 

4C 

79 

64 

AD 

IE 

8A 

6739 

8 

20 

CB 

49 

53 

54 

45 

20 

49 

7E 

6A51 

3 

45 

20 

48 

4F 

45 

52 

45 

4E 

3B 

6429 

3 

24 

C9 

01 

FO 

03 

4C 

FE 

64 

E8 

6741 

8 

53 

54 

20 

42 

45 

52 

45 

49 

9D 

6A59 

: 

20 

CD 

55 

53 

49 

4B 

2E 

20 

08 

6431 

3 

BD 

D5 

23 

C9 

01 

FO 

03 

4C 

17 

6749 

8 

54 

53 

20 

4F 

46 

46 

45 

4E 

81 

6A61 

3 

20 

20 

OD 

OD 

00 

4C 

13 

35 

BF 

6439 

8 

48 

64 

BD 

EB 

23 

C9 

01 

FO 

06 

6751 

8 

2E 

20 

20 

20 

20 

OD 

OD 

00 

3A 

6A69 

8 

C9 

60 

90 

01 

60 

4C 

33 

6A 

Bl 

6441 

3 

03 

4C 

48 

64 

4C 

6F 

47 

20 

A7 

6759 


4C 

13 

35 

A9 

01 

BD 

IE 

24 

EF 

6A71 

3 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

70 

6449 

3 

D6 

09 

C4 

45 

52 

20 

C7 

45 

4D 

6761 


20 

D6 

09 

D3 

49 

45 

20 

4F 

87 

6A79 

3 

EA 

EA 

EA 

EA 

EA 

EA 

60 

EA 

4E 

6451 


47 

45 

4E 

53 

54 

41 

4E 

44 

4A 

6769 


45 

46 

46 

4E 

45 

4E 

20 

44 

FD 

6 ABI 


EA 

EA 

20 

3F 

6C 

20 

49 

6C 

96 

6459 

3 

20 

49 

53 

54 

20 

4E 

49 

43 

9D 

6771 

3 

49 

45 

20 

CB 

49 

53 

54 

45 

E9 

6AB9 

3 

20 

AC 

6C 

20 

El 

6C 

20 

20 

61 

6461 

3 

48 

54 

20 

49 

4E 

20 

44 

45 

86 

6779 

3 

2E 

20 

AO 

20 

20 

20 

20 

OD 

81 

6A91 

3 

6D 

20 

5A 

6D 

20 

8F 

6D 

20 

C7 

6469 

3 

52 

20 

CB 

49 

53 

54 

45 

2E 

31 

6781 


OD 

00 

4C 

13 

35 

C9 

43 

DO 

54 

6A99 


E5 

6E 

20 

D5 

6E 

20 

A7 

6F 

DD 

6471 

3 

20 

20 

20 

OD 

00 

4C 

13 

35 

64 

6789 


03 

4C 

37 

50 

C9 

44 

FO 

F9 

01 

6AA1 


20 

B3 

70 

20 

19 

71 

20 

46 

E5 
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Listing »Freiheit« (Fortsetzuna) 


6DB1 


24 

DO 

F7 

4C 

6F 

6C 

22 

23 

EE 

70C9 


D4 

23 

DO 

F7 

EA 

EA 

EA 

20 

54 












6DB9 

: 

00 

00 

00 

00 

00 

00 

00 

A2 

FF 

70D1 

: 

D6 

09 

C4 

45 

52 

20 

C2 

41 

B9 

6AA9 

: 

71 

20 

EC 

71 

20 

30 

72 

20 

21 

6DC1 

: 

09 

BD 

76 

24 

C9 

00 

DO 

43 

31 

70D9 

: 

55 

45 

52 

20 

48 

55 

53 

54 

BF 

6AÖ1 


D2 

72 

20 

OD 

73 

20 

7D 

75 

7F 

6DC9 

: 

20 

D6 

09 

C4 

45 

52 

20 

CB 

2E 

70E1 


45 

54 

20 

46 

55 

45 

52 

43 

71 

6AB9 

: 

20 

AB 

74 

20 

OC 

75 

20 

10 

DD 

6DD1 


45 

4C 

4C 

4E 

45 

52 

20 

53 

27 

70E9 

: 

48 

54 

45 

52 

4C 

49 

43 

48 

A4 

6AC1 


75 

20 

95 

73 

20 

57 

76 

20 

Fl 

6DD9 

: 

41 

47 

54 

3A 

20 

27 

C5 

49 

FF 

70F1 

: 

2E 

20 

20 

20 

OD 

OD 

00 

A2 

BA 

6AC9 

: 

91 

76 

20 

EB 

76 

20 

D5 

6A 

4F 

6DE1 

: 

4E 

20 

53 

43 

48 

4F 

45 

4E 

2D 

70F9 

: 

05 

BD 

D5 

23 

C9 

OC 

FO 

01 

79 

6AD1 

: 

EA 

EA 

EA 

60 

4C 

54 

6 E« 

C9 

AO 

6DE9 

: 

45 

52 

20 

D4 

41 

47 

20 

20 

09 

7101 

: 

60 

BD 

EB 

23 

C9 

03 

DO 

FB 

89 

6AD9 

3 

01 

DO 

22 

20 

D6 

09 

D3 

49 

67 

6DF1 

: 

20 

20 

20 

4B 

45 

55 

54 

45 

OD 

7109 

: 

A9 

01 

A2 

04 

9D 

D5 

23 

A9 

C4 

6AE1 

: 

45 

20 

53 

49 

4E 

44 

20 

56 

69 

6DF9 

: 

2C 

20 

4E 

49 

43 

48 

54 

20 

FA 

7111 

: 

03 

9D 

EB 

23 

EA 

4C 

6B 

77 

FO 

6AE9 

: 

45 

52 

48 

55 

4E 

47 

45 

52 

ED 

6E01 

: 

57 

41 

48 

52 

3F 

27 

20 

20 

43 

7119 


A2 

OD 

20 

41 

71 

CB 

B9 

2B 

OD 

6AF1 

: 

54 

2E 

2E 

2E 

OD 

00 

68 

6B 

Fl 

6E09 

: 

OD 

OD 

00 

A2 

09 

BD 

76 

24 

92 

7121 

: 

71 

DO 

04 

AO 

00 

DO 

F7 

4C 

OE 

6AF9 

: 

68 

68 

4C 

E3 

3E 

C9 

OB 

BO 

ES 

6E1 1 

8 

C9 

01 

DO 

2E 

20 

D6 

09 

C4 

BB 

7129 

: 

39 

71 

42 

25 

27 

2B 

30 

32 

41 

6B01 

: 

2D 

20 

D6 

09 

D3 

49 

45 

20 

F2 

6E19 

: 

45 

52 

20 

CB 

45 

4C 

4C 

4E 

8D 

7131 

3 

30 

2B 

27 

25 

00 

00 

00 

00 

65 

6B09 

: 

53 

49 

4E 

44 

20 

4B 

55 

52 

73 

6E21 

8 

45 

52 

20 

53 

41 

47 

54 

3A 

16 

7139 

: 

9D 

2B 

24 

98 

9D 

5D 

24 

60 

9E 

6B11 

3 

5A 

20 

56 

4F 

52 

20 

44 

45 

BD 

6E29 

8 

20 

27 

D3 

49 

45 

20 

57 

55 

58 

7141 

: 

BD 

5D 

24 

AB 

60 

A2 

OE 

BD 

9A 

£>B19 

: 

4D 

20 

D6 

45 

52 

48 

55 

4E 

2E 

6E31 

8 

45 

4E 

53 

43 

48 

45 

4E 

3F 

41 

7149 

3 

76 

24 

C9 

37 

FO 

F6 

AD 

D3 

50 

6B21 

: 

47 

45 

52 

4E 

21 

20 

20 

20 

3D 

6E39 

8 

27 

20 

20 

20 

20 

20 

20 

20 

40 

7151 

3 

23 

C9 

4B 

DO 

EF 

AD 

D4 

23 

4C 

6B29 

: 

OD 

OD 

00 

4C 

4E 

6B 

20 

D6 

B5 

6E41 

8 

OD 

00 

A2 

09 

BD 

76 

24 

18 

68 

7159 

3 

C9 

00 

DO 

E8 

A9 

49 

8D 

D3 

36 

6B31 

: 

09 

D3 

49 

45 

20 

53 

49 

4E 

7D 

6E49 

8 

69 

01 

C9 

04 

90 

02 

A9 

00 

E5 

7161 

3 

23 

EA 

EA 

EA 

20 

D6 

09 

C5 

7A 

6B39 

: 

44 

20 

53 

45 

4B 

52 

20 

48 

33 

6E51 

: 

9D 

76 

24 

EA 

AD 

DE 

23 

C9 

B2 

7169 

3 

49 

4E 

20 

DO 

4F 

4C 

49 

5A 

2D 

6B41 

: 

55 

4E 

47 

52 

49 

47 

21 

20 

6D 

6E59 

8 

01 

DO 

35 

AD 

F4 

23 

C9 

03 

5B 

7171 

3 

49 

53 

54 

20 

48 

4t 

54 

20 

9D 

6B49 

: 

20 

20 

OD 

OD 

00 

CE 

77 

24 

FB 

6E61 

8 

DO 

2E 

20 

D6 

09 

C4 

45 

52 

9C 

7179 

3 

53 

49 

45 

20 

4E 

41 

4 3 

48 

53 

6B51 

: 

4C 

5C 

6B 

AD 

77 

24 

FO 

FB 

AA 

6E69 

8 

20 

CB 

45 

4C 

4C 

4E 

45 

52 

3B 

7181 

3 

20 

D3 

55 

45 

44 

45 

4E 

20 

71 

6B59 

: 

4C 

D8 

6A 

EA 

EA 

EA 

AD 

D3 

6E 

6E71 

: 

20 

53 

41 

47 

54 

3A 

20 

27 

5A 

7189 

3 

5A 

55 

20 

OD 

45 

49 

4E 

45 

9A 

6B61 

3 

23 

C9 

5E 

FO 

01 

60 

AD 

D4 

92 

6E79 

8 

C7 

55 

54 

45 

4E 

20 

CI 

50 

36 

7191 

3 

52 

20 

DO 

4F 

4C 

49 

5A 

45 

14 

6B69 

: 

23 

C9 

00 

DO 

FB 

AD 

FB 

09 

8A 

6EB1 

8 

50 

45 

54 

49 

54 

21 

27 

20 

DD 

7199 

3 

49 

4B 

4F 

4E 

54 

52 

4F 

4C 

D3 

6B71 

: 

C9 

12 

DO 

Fl 

6B 

68 

68 

68 

F2 

6EB9 

: 

20 

20 

20 

20 

20 

20 

OD 

00 

FD 

71 Al 

3 

4C 

45 

20 

4D 

49 

54 

47 

45 

20 

6879 

: 

4C 

Bl 

3E 

A9 

OD 

20 

D2 

FF 

6B 

6E91 

8 

A2 

15 

BD 

D5 

23 

C9 

09 

DO 

2E 

71A9 

3 

4E 

4F 

4D 

4D 

45 

4E 

2C 

OD 

2D 

6681 

: 

4C 

BO 

6A 

20 

BC 

3D 

4C 

AF 

F2 

6E99 

8 

3A 

BD 

EB 

23 

C9 

03 

DO 

33 

6F 

71B1 

3 

45 

53 

20 

53 

49 

4E 

44 

20 

6B 

6BB9 

3 

29 

A2 

02 

A9 

FF 

9D 

76 

24 

CB 

6EA1 


20 

35 

77 

EA 

EA 

20 

D6 

09 

B4 

71B9 


41 

42 

45 

52 

20 

4E 

4F 

43 

EF 

6B91 

: 

20 

D6 

09 

C5 

44 

45 

20 

53 

AD 

6EA9 


C4 

45 

52 

20 

CB 

45 

4C 

4C 

59 

71C1 


48 

20 

DO 

45 

52 

53 

4F 

4E 

90 

6B99 

: 

41 

47 

54 

2C 

20 

45 

52 

20 

CE 

6EB1 


4E 

45 

52 

20 

47 

49 

42 

54 

AB 

71C9 

3 

45 

4L 

20 

56 

4F 

52 

20 

49 

A3 

6BA1 

s 

57 

45 

52 

44 

45 

20 

42 

41 

99 

6EB9 

8 

20 

49 

48 

4E 

45 

4E 

20 

45 

2C 

71D1 

3 

48 

4E 

45 

4E 

OD 

41 

4E 

20 

BO 

6BA9 

3 

4C 

44 

20 

45 

4E 

54 

4C 

41 

03 

6EC1 

8 

54 

57 

41 

53 

20 

5A 

55 

20 

E6 

71D9 

3 

44 

45 

52 

20 

D2 

45 

49 

48 

65 

6BB1 

3 

53 

53 

45 

4E 

2E 

OD 

D7 

45 

FE 

6EC9 


45 

53 

53 

45 

4E 

2E 

20 

20 

4C 

71E1 

8 

45 

2E 

20 

20 

20 

OD 

OD 

00 

E8 

6BB9 

3 

4E 

4E 

20 

53 

49 

45 

20 

46 

6D 

6ED1 


20 

OD 

00 

60 

4C 

F6 

6E 

A2 

FF 

71E9 

3 

4C 

CB 

72 

AD 

D3 

23 

C9 

49 

FC 

6BC1 


4C 

49 

.45 

48 

45 

4E 

20 

57 

02 

6ED9 


09 

A9 

01 

9D 

D5 

23 

A9 

03 

CE 

71F1 


DO 

3C 

AD 

D4 

23 

C9 

00 

DO 

07 

6BC9 


4F 

4C 

4C 

54 

45 

4E 

2C 

20 

94 

6EE1 


9D 

EB 

23 

60 

AD 

D3 

23 

C9 

E2 

71F9 


35 

20 

D6 

09 

C5 

49 

4E 

20 

35 

6BD1 


53 

4F 

4C 

4C 

54 

45 

4E 

20 

51 

6EE9 


26 

DO 

F8 

AD 

D4 

23 

C9 

00 

F9 

7201 

3 

DO 

4F 

4C 

49 

5A 

49 

53 

54 

9B 

6BD9 

3 

53 

49 

45 

OD 

56 

45 

52 

53 

43 

6EF1 

8 

DO 

Fl 

4C 

CO 

6D 

AD 

D3 

23 

BF 

7209 

3 

20 

52 

45 

44 

45 

54 

20 

4D 

3E 

6BE1 


55 

43 

48 

45 

4E 

2C 

20 

41 

DC 

6EF9 

8 

C9 

2F 

DO 

E7 

AD 

D4 

23 

C9 

2C 

7211 


49 

54 

20 

45 

49 

4E 

45 

4D 

EC 

6BE9 


55 

46 

20 

44 

49 

45 

20 

CE 

CF 

6F01 


00 

DO 

EO 

20 

D6 

09 

C4 

45 

F9 

7219 


20 

DO 

41 

53 

53 

41 

4E 

54 

7D 

6BF1 


41 

43 

48 

42 

41 

52 

49 

4E 

97 

6F09 


52 

20 

CB 

4C 

45 

49 

44 

45 

22 

7221 


45 

4E 

2E 

20 

20 

20 

20 

20 

El 

6BF9 


53 

45 

4C 

20 

5A 

55 

OD 

47 

19 

6F1 1 


52 

56 

45 

52 

4B 

41 

45 

55 

A8 

7229 


20 

20 

20 

OD 

OD 

00 

60 

A2 

9B 

6C01 


45 

4C 

41 

4E 

47 

45 

4E 

20 

9F 

6F19 


46 

45 

52 

20 

53 

41 

47 

54 

9F 

7231 


10 

BD 

5D 

24 

A8 

C8 

B9 

43 

3A 

6C09 

3 

55 

4E 

44 

20 

44 

4F 

52 

54 

4B 

6F21 


3A 

20 

27 

C9 

43 

48 

20 

48 

F6 

7239 

: 

72 

DO 

04 

AO 

00 

FO 

F7 

4C 

28 

6C11 


20 

45 

49 

4E 

20 

C6 

4C 

55 

04 

6F29 


41 

42 

45 

20 

20 

20 

47 

45 

8B 

7241 


55 

72 

29 

3A 

3A 

3A 

29 

25 

C5 

6C19 


47 

5A 

45 

55 

47 

20 

4E 

45 

C3 

6F31 


4E 

41 55 

20 

44 41 c_. 

20 

55 

7249 


29 

29 

29 

29 

29 

29 

29 

00 

F7 

6C21 


4B 

4D 

45 

4E 

2E 

OD 

OD 

C5 

36 

6F39 


D2 

49 

43 

48 

54 

49 47 

45 

CI 

7251 


00 

00 

00 

00 

9D 

2B 

24 

98 

46 

6C29 


44 

45 

20 

53 

43 

48 

4C 

55 

D5 

6F41 


20 

46 

55 

45 

52 

20 

53 

49 

88 

7259 


9D 

5D 

24 

EA 

AD 

D3 

23 

DD 

CD 

6C31 


4D 

4D 

45 

52 

54 

20 

45 

49 

AE 

6F49 


45 

21 

20 

20 

20 

20 

20 

OD 

C9 

7261 


2B 

24 

FO 

01 

60 

AD 

D4 

23 

08 

6C39 


4E 

2E 

OD 

OD 

00 

60 

A2 

02 

15 

6F51 


OD 

00 

A2 

07 

BD 

DS 

23 

C9 

92 

7269 


DD 

44 

24 

DO 

F7 

A2 

06 

BD 

B4 

6C41 


BD 

76 

24 

DO 

F8 

4C 

8A 

6B 

4F 

6F59 


OA 

FO 

01 

60 

BD 

EB 

23 

C9 

83 

7271 

: 

D5 

23 

C9 

01 

DO 

07 

BD 

EB 

7E 

6C49 


A2 

03 

BD 

5D 

24 

AB 

CB 

B9 

A6 

6F61 


03 

DO 

F8 

20 

D6 

09 

C4 

45 

62 

7279 


23 

C9 

03 

FO 

E7 

20 

D6 

09 

4D 

6C51 

3 

9A 

6C 

DO 

05 

AO 

00 

4C 

50 

D2 

6F69 


52 

20 

CB 

4C 

45 

49 

44 

45 

82 

7281 


D3 

49 

45 

20 

57 

45 

52 

44 

CO 

6C59 

3 

6C 

9D 

2B 

24 

9B 

9D 

5D 

24 

17 

6F71 


52 

56 

45 

52 

4B 

41 

45 

55 

OB 

7289 


45 

4E 

20 

56 

4F 

4E 

20 

45 

3B 

6C61 


AD 

D4 

23 

FO 

01 

60 

AD 

D3 

Dl 

6F79 


46 

45 

52 

20 

47 

49 

42 

54 

6B 

7291 


49 

4E 

45 

52 

20 

D3 

54 

52 

34 

6C69 


23 

DD 

2B 

24 

DO 

F7 

20 

D6 

C5 

6FB1 


20 

49 

48 

4E 

45 

4E 

20 

45 

F4 

7299 

3 

45 

49 

46 

45 

20 

41 

55 

46 

AB 

6C71 

3 

09 

C4 

45 

52 

20 

D7 

41 

45 

C8 

6FB9 


49 

4E 

45 

4E 

20 

20 

CI 

4E 

BB 

72A1 


20 

44 

45 

52 

20 

20 

20 

20 

43 

6C79 


52 

54 

45 

52 

20 

48 

41 

54 

B3 
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Listing 

»Freiheit« (SchluD) 





Adventure satt! 


F ür alle Adventure-Freaks, die noch Lust auf mehr Aben¬ 
teuerspiele haben, geben wir Ihnen hier eine Übersicht 
über die besten in den 64’er-Sonderheften erschiene¬ 
nen Adventures. 

Zauberschloß: In diesem Adventure haben Sie die Aufgabe, 
in einem geheimen Schloß eine sich erst im Spiel herauskri¬ 
stallisierende Aufgabe zu lösen. Natürlich besteht das Schloß 
aus vielen Gängen, Kammern und einem Kerker. Behindert 
werden Sie dabei von Ihnen auflauernden Kobolden, die Sie 
bei falscher Vorgehensweise in einen Zwerg verwandeln. 

(SH2/85) 

Adventure 2000: Der Erde droht der dritte Weltkrieg. Der 
Präsident der Vereinigten Staaten beauftragt Sie, den 
Ernstfall zu verhindern. Sie sollen die Atomrakete, die den 
Krieg auslösen wird, finden und entschärfen. Ein Chinese 
kann Ihnen Hilfe geben. Auf Ihrem Weg liegen viele Gefahren 
und fremde Länder. Nicht zuletzt wird es auch ein Wettlauf 
gegen die Zeit. (SH2/85) 

Quasimodo: Das Volk der Kartanen hat Sie dazu bestimmt, 
den tyrannischen Herrscher des Landes aufzuspüren und 
zur Strecke zu bringen. Leider wissen Sie von ihm nur, daß 
er Quasimodo heißt und Hexenmeister ist. Als Sie sich bereit 
erklären, den Auftrag zu übernehmen, werden Sie von Ihren 
Landsleuten durch einen Geheimgang in sein Gewölbe 
geführt. (SH2/85) 

Mario: Dieses Adventure verlangt von Ihnen nicht etwa, einen 
Drachen zu töten oder Schätze zu finden. Sie müssen »nur« 
ein Höhlensystem durchqueren. Doch es ist alles andere als 
leicht. Sie werden auf Ihrem Weg von Orks, einer Spinne und 
dem Ralbog gebremst, wenn nicht getötet. (SH2/85) 


Zeittunnel: Gelangen Sie von Ihrem heimischen Wohnzim¬ 
mer aus durch den Zeittunnel in die ferne Zukunft. Finden Sie 
sich auf dem nur von Robotern, Maschinen und Computern 
bevölkerten Kristallplaneten wieder. Nun möchten Sie wie¬ 
der nach Hause in Ihr eigenes, bekanntes Wohnzimmer. 
Doch dazu müssen Sie erst viele Abenteuer in der Zukunft 
bestehen und noch mehr Rätsel lösen. (SH2/85) 

Crantor: Es geschah einst in ferner Zukunft, als ein garstiger 
Imperator namens Crantor die Andromeda-Galaxis erobern 
wollte, indem er sämtliche Imbißstuben zerstören ließ. Das 
hypergalaktische Imbißdepot beauftragt Sie, den Jäger des 
verlorenen Hamburgers, den garstigen Herrscher in handli¬ 
che Portionen zu zerlegen. (SH2/85) 

Odyssee: Dieses Programm ist kein Adventure im üblichen 
Sinn. Es gehört vielmehr zur Gattung der Fantasy-Rollen¬ 
spiele wie etwa Ultima ll/lll oder Questron. Die Reise führt Sie 
ins Land des Zauberers Saruman, in dem viele Gefahren auf 
Sie lauern. (SH2/85) 

Zauberschloß II: Der Zauberer, den Sie vor einem Jahr 
schon einmal vertrieben hatten, ist nach einer Erholungs¬ 
pause zurückgekehrt, um Sie, den neuen König, zu stürzen 
und sich an Ihnen für seine erlittene Niederlage zu rächen. 
Nun müssen Sie ihm wieder die Stirn bieten und ihn endgültig 
besiegen. (SH3/85) 

Dark Tower: Das landschaftlich so schöne Dreistromland 
droht unter der Herrschaft des Bösen zusammenzubrechen. 
Helfen Sie der geknechteten Bevölkerung, ihr Dasein wieder 
in Ruhe und Frieden zu leben. Dabei werden Sie durch Sied¬ 
lungen und Wälder streifen, Zaubersprüche lernen und zwi¬ 
schen Gut und Böse unterscheiden müssen. (SH3/85) 
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